Appliquer une macro excel à partir d'access

[freddo6]

bonjours à tous,

voilà ,à partir d'access j'envoie une base sur excel afin que sous excel j'arrive à convertir une colonne, mais je n'arrive pas sous VBA à faire éxécuter cette macro, si quelqu'un pouvait me donner l'instruction qui me permettrai d'éxécuter cette macro excel ce serai super sympa,
merci

 

[michael]

Bonjour,

tu dois assigner Excel à un variable :

Dim MonExcel As Object

Set MonExcel = CreateObject("Excel.Application")

Tu peux ensuite manipuler MonExcel comme tu le souhaite.

Pour ouvrir un classeur bien déterminer tu peux utilier :

Dim MonClasseurExcel As Object

Set MonClasseurExcel = GetObject(CheminDuFichier)

J'espère que ca pourra t'aider pour commencer.

Michael

 

[Philippe]

Voici une solution possible

'Déclarations des variables
Dim tblReponse2 As TableDef, rstTableImport As Recordset
Dim dbsSrc, dbsDest As Database
dim strDestFile as string , strNomBase as string
Const strNomBaseCentral = "MaBaseDeDonnées.mdb"
'*************************************************
Sub Macro1
strDestFile = ActiveWorkbook.Path & "\" & strNomBase
Set dbsDest = OpenDatabase(strDestFile, dbDriverNoPrompt, False, "MS ACCESS;PWD=AlfredSirven")

Set rstTableImport = MaDB.OpenRecordset("tblReponse2") 'Ouvre la table tblReponse2 dans un objet Recordset

With Sheets(Réponse)
.Cells.Clear
For i = 0 To TableImport.Fields.Count - 1 'Copie les noms en en-tête
.Range("IT1").Cells(1, i + 1).Value = TableImport.Fields(i).Name
Next
.Range("IT2").CopyFromRecordset rstTableImport 'Importe les données
End With

rstTableImport.close 'Ferme le Recordset
dbsDest.close'Ferme la base Access
end sub

Cordialement

 

[freddo6]

je vous remercie beaucoup pour tous ces efforts, je vais de suite essayer,
cordialement,