Comment excécuter un module Excel à partir d'Access
1 réponse
Fasas
Bonjour à tous,
Mon problème, je copie des données d'Access dans excel par l'exportation de
donnée ci-dessous
- DoCmd.TransferSpreadsheet acExport, 6, TableAExporter , CheminExport&
NomFeuille".XLS", False, ""
et ensuite je souhaite excécuter un module vb Excel à la suite de cette
ligne de code.
Pouvez-vous m'aider soit par une serveur DDE ou autre ???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut à toi aprés avoir coché dans la bibliothèque la Référence "Microsoft Excel 11.0 Object Library" ou une autre version (prendre la plus récente)
Utilises ces quelques lignes :
Dim wdApp As Excel.Application Set wdApp = CreateObject("Excel.Application") With wdApp ' on ouvre le fichier .Workbooks.Open "CheminExportNomFeuille".XLS" 'on le fait apparaitre à l'écran .Visible = True 'on exécute la macro .Run ("Mamacro") 'on ferme le fichier .ActiveWorkbook.Close End With 'on ferme l'application Excel wdApp.Quit
Celà devrait te convenir Dis moi !!!!
Salut à toi
aprés avoir coché dans la bibliothèque la Référence "Microsoft Excel 11.0
Object Library" ou une autre version (prendre la plus récente)
Utilises ces quelques lignes :
Dim wdApp As Excel.Application
Set wdApp = CreateObject("Excel.Application")
With wdApp
' on ouvre le fichier
.Workbooks.Open "CheminExportNomFeuille".XLS"
'on le fait apparaitre à l'écran
.Visible = True
'on exécute la macro
.Run ("Mamacro")
'on ferme le fichier
.ActiveWorkbook.Close
End With
'on ferme l'application Excel
wdApp.Quit
Salut à toi aprés avoir coché dans la bibliothèque la Référence "Microsoft Excel 11.0 Object Library" ou une autre version (prendre la plus récente)
Utilises ces quelques lignes :
Dim wdApp As Excel.Application Set wdApp = CreateObject("Excel.Application") With wdApp ' on ouvre le fichier .Workbooks.Open "CheminExportNomFeuille".XLS" 'on le fait apparaitre à l'écran .Visible = True 'on exécute la macro .Run ("Mamacro") 'on ferme le fichier .ActiveWorkbook.Close End With 'on ferme l'application Excel wdApp.Quit