breizhoneg
XLDnaute Nouveau
Bonjour le forum,
Une fois de plus, je me tourne vers vous afin de trouver une solution à mon problème. Voila ce qui se passe. J’ai une macro qui exporte et importe un module VBA d’un fichier A vers le fichier B. Ci-joint le code utiliser :
Sub test ()
'exporter
ThisWorkbook.VBProject.VBComponents (" module1").Export ("c:\module1.bas")
'importer
Workbooks("LeClasseurCible.xls").VBProject.VBComponents.Import ("c:\module1.bas")
Kill "c:\module1.bas"
msgbox "c'est fait"
End sub
L’exportation se déroule bien, arrivé a la ligne pour importer, la commande n’est pas exécutée (aucun message d’erreur) et va directement sur la ligne « End sub » sans m’afficher mon message box, ni effacer le module du disque dur. De plus a chaque exécution de cette macro, j’ai mon antivirus (symantec) qui me renvoi une alerte…
Si un de vous avez une idée de comment résoudre ce petit souci ?
Merci d’avance
BzH
Une fois de plus, je me tourne vers vous afin de trouver une solution à mon problème. Voila ce qui se passe. J’ai une macro qui exporte et importe un module VBA d’un fichier A vers le fichier B. Ci-joint le code utiliser :
Sub test ()
'exporter
ThisWorkbook.VBProject.VBComponents (" module1").Export ("c:\module1.bas")
'importer
Workbooks("LeClasseurCible.xls").VBProject.VBComponents.Import ("c:\module1.bas")
Kill "c:\module1.bas"
msgbox "c'est fait"
End sub
L’exportation se déroule bien, arrivé a la ligne pour importer, la commande n’est pas exécutée (aucun message d’erreur) et va directement sur la ligne « End sub » sans m’afficher mon message box, ni effacer le module du disque dur. De plus a chaque exécution de cette macro, j’ai mon antivirus (symantec) qui me renvoi une alerte…
Si un de vous avez une idée de comment résoudre ce petit souci ?
Merci d’avance
BzH