Lancer un macro EXCEL depuis VB Access
Bonjour,
En m'inspirant des réponses contenues dans le message suivant (http://www.developpez.net/forums/d45...artir-daccess/),
j'ai essayé de lancer une macro XLS dans du code VBA mais cela ne fonctionne pas : pas de message d'erreur, affichage d'une feuille XLS bizarre (sans cellule et avec un titre correspondant à la macro, impossible d'intervenir sur la feuille, seule la fermeture du fichier est possible).
Cette macro fonctionne sous EXCEL
Ci-après le code VBA
Code:
1
2
3
4
5
| Set objApp = CreateObject("excel.application")
FichierExcel = "F:\Mes Documents Société Générale\03- mission GTS-SCE\Outil Devis\Modèle Synthèse Devis.xls"
Set objbook = objApp.Workbooks.Open(FichierExcel, ReadOnly:=True)
Set objsheet = objbook.Worksheets("Projet")
objApp.Visible = True 'si on veut visualiser |
Exécution de plusieurs commandes XLS ensuite
Code:
1
2
3
4
5
6
| With objsheet
.Activate
' Données générales
.Range("CodeMAO").Value = CodeMAO
...
End With |
Puis exécution de ma macro XLS
Code:
1
2
3
| With objApp
.Run ("Masquer_Ligne_nulle")
End With |
Si quelqu'un a une idée de ce qui ne va pas ...
Merci d'avance pour votre aide
