FAQ MS-Access - Club d'entraide des développeurs francophones

Comment piloter une autre application Office à partir de MS Access ?

[haut]

auteur : Bidou

    Dim xlApp As Object
    Dim mySheet As Object
    
    Set xlApp = CreateObject("Excel.Application")
    Set mySheet = xlApp.Workbooks.Open("D:\EXCEL\test.xls") ' Définit le fichier EXCEL à ouvrir
    
    ' endroit où mettre le code de pilotage

    ' Code de fermeture
    mySheet.Save
    mySheet.Close
    xlApp.Quit
    Set xlApp = Nothing
    Set mySheet = Nothing

Remarque : si vous créez un nouveau fichier plutôt que d'en ouvrir un nouveau en utilisant

    Set mySheet = xlApp.Workbooks.Add

vous devrez obligatoirement remplacer

     mySheet.Save

par

     mySheet.SaveAs "NomDuFichier"

Car quand le nom du fichier n'est pas connu la méthode Save affiche une boîte de dialogue ne sera visible que si Excel l'est, ce qui n'est pas le cas dans notre exemple. En dehors de la phase de test il est préférable de ne pas rendre l'application visible pour éviter que l'utilisateur n'interfère, par exemple en fermant Excel.

lien :

Utiliser Excel à partir de Visual Basic
lien :

VB/VBA : Programmer efficacement avec Excel

Comment exécuter une macro Access depuis n'importe quelle application Office supportant VBA ?

[haut]

auteur : tibadabo

Sub ExécuterMacroAccess()
 Dim MonAccess As New Access.Application
 MonAccess.OpenCurrentDatabase "D:\etude.mdb" 'Ici le chemin de la bdd Access
 DoCmd.RunMacro "Export" 'Ici le nom de la macro
 MonAccess.Quit acquitsaveNone
 Set MonAccess = Nothing
End Sub

Comment exécuter une procédure Access depuis n'importe quelle application Office supportant VBA ?

[haut]

auteur : Lucifer

Dans Access on fait une procédure dans un module.

exemple :

Public Sub test(pArg as string)
MsgBox "Bonjour Maître "  & pArg
End Sub

et on l'appelle de la façon suivante depuis Excel ou tout autre application office-vba :

Sub Bouton1_QuandClic()
Dim MonAccess As New Access.Application
MonAccess.OpenCurrentDatabase "D:\etude.mdb"
MonAccess.run "test", "Lucifer"
MonAccess.Quit acquitsaveNone
Set MonAccess = Nothing
End Sub

Comment, depuis n'importe quelle application Office supportant VBA, commander l'exportation de tables ou requêtes Access au format Excel ?

[haut]

auteur : Lucifer

On définit au préalable dans un module Access, la procédure d'exportation :

exemple :

Public Sub Export()
DoCmd.TransferSpreadsheet acExport, , "table1", "D:\Etudes1.xls", False, ""
DoCmd.TransferSpreadsheet acExport, , "table2", "D:\Etudes2.xls", False, ""
DoCmd.TransferSpreadsheet acExport, , "requête3", " D:\EtudesSuite.xls ", False, ""
DoCmd.TransferSpreadsheet acExport, , "requête4", " D:\EtudesSuite.xls ", False, ""
DoCmd.TransferSpreadsheet acExport, , "X OPCVM brut", " D:\EtudesAutre.xls ", False, ""
End Sub

Ensuite on appelle la procédure Export de la façon suivante depuis excel ou tout autre application office-vba :

Sub Bouton1_QuandClic()
Dim MonAccess As New Access.Application
MonAccess.OpenCurrentDatabase "D:\etude.mdb"
MonAccess.run "Export"
MonAccess.Quit acquitsaveNone
Set MonAccess = Nothing
End Sub

Consultez les autres F.A.Q's

Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2004 Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.