none
DoCmd.TransferSpreadsheet RRS feed

  • Question

  • Bonjour

    Est-il possible de modifier la commande suivante
    pour que le fichier EXCEL s'ouvre et s'affiche quand le transfer est  complété?

      DoCmd.TransferSpreadsheet acExport, 8, "RQT Groupes", CurrentProject.Path & "\RQT Groupes.xls ", True, ""

    Merci

    Albert


    vendredi 19 janvier 2018 20:37

Réponses

Toutes les réponses

  • Il y a différents solutions qui se basent sur une/des commandes après la creation du fichier.

    DoCmd.TransferSpreadsheet acExport, 8, "RQT Groupes", CurrentProject.Path & "\RQT Groupes.xls", True
    Application.FollowHyperlink CurrentProject.Path & "\RQT Groupes.xls"

    ou quelque chose du genre

    Dim xlApp As Object ... DoCmd.TransferSpreadsheet acExport, 8, "RQT Groupes", CurrentProject.Path & "\RQT Groupes.xls", True Set xlApp = CreateObject("Excel.Application") xlApp.Workbooks.Open(CurrentProject.Path & "\RQT Groupes.xls") xlApp.Visible = True
    xlApp.UserControl = True
    Set xlApp= Nothing



    Daniel Pineault, 2010-2017 Microsoft MVP
    Professional Support: http://www.cardaconsultants.com
    MS Access Tips and Code Samples: http://www.devhut.net

    samedi 20 janvier 2018 02:04
  • Bonjour et merci

    L'ajout du code de votre réponse fait bien cela,  Application.FollowHyperlink CurrentProject.Path & "\RQT Groupes.xls.

    Mais j’ai encore besoin de votre aide, Mon PC W7 et Access 10 affiche l’Avis de sécurité, voir 

    https://cjoint.com/c/HAuoT3LY1oo   

     

    Mon autre PC  W10 avec Access 2007 ne l’affiche pas   ???

    Pouvez- vous m’aider?

     

    Autre demande est-ce possible d’ajouter aussi :

     « Exporter les données avec la mise en forme et la mise en page ».

     

    Un grand merci

    samedi 20 janvier 2018 18:19
  • Dans ce cas là, tu pourrais utliser le deuxième bloc de code (automatisation d'excel directement) ou bien la function de Allen Browne GoHyperlink au lieu de Application.FollowHyperlink

    Pour ce qui est de la mise en forme et la mise en page, dans un tel cas, je créerais un Workbook modèle, puis j'utiliserais de Automatisation Excel pour faire le transfert des données... Tu trouveras un exemple de tel code au http://www.devhut.net/2017/03/15/ms-access-vba-export-recordset-to-excel/


    Daniel Pineault, 2010-2017 Microsoft MVP
    Professional Support: http://www.cardaconsultants.com
    MS Access Tips and Code Samples: http://www.devhut.net


    dimanche 21 janvier 2018 01:45
  • Bonjour et MERCI

    Nous allons tolérer l'avis de sécurité, ce n'est pas une si grande nuisance.

    Pour la mise en forme nous avons une alternative.

    Merci

    Albert

    lundi 22 janvier 2018 13:29
  • Bonjour,

    Pour ma part, je préfère un :

    Call Shell ("EXCEL.EXE" & " " & Chr(34) & strWorkbookFileName & Chr(34), 1)


    qu'une procédure via Automation.

    Pour ce qui est de l'Avis de sécurité, il faut que le chemin final soit approuvé. Cela peut se définir dynamiquement en amont dans le Registre de Windows par code ou encore via un Shell (encore un) d'un fichier *.reg dûment rédigé en mode Hidden.


    Argy

    jeudi 25 janvier 2018 12:18
    Modérateur