La class .Run d'un objet Excel
Bonjour,
j'ai réalisé une application avec Visual basic 2010 Express,
mon problème c'est comment utiliser Run pour exécuter un fichier dans un emplacement
j'ai un fichier Excel qui contient un ensemble de macro, ce fichier est enregistré dans le dossiers mes documents
mon code :
Dim appExcel As Object
appExcel = CreateObject("Excel.Application")
appExcel.Visible = False
With appExcel
.Workbooks.Open("Mon_fichier")
.Run("macros.xlsm!somme")
End With
appExcel.Quit()
appExcel = Nothing
après l’exécution de ce code tout marche bien la macro somme s’exécute sur le fichier " Mon fichier"
mais lorsque je déplace le fichier qui contient les macros dans C:\ le code ne fonctionne pas
j'ai réalisé une application avec Visual basic 2010 Express,
mon problème c'est comment utiliser Run pour exécuter un fichier dans un emplacement
j'ai un fichier Excel qui contient un ensemble de macro, ce fichier est enregistré dans le dossiers mes documents
mon code :
Dim appExcel As Object
appExcel = CreateObject("Excel.Application")
appExcel.Visible = False
With appExcel
.Workbooks.Open("Mon_fichier")
.Run("macros.xlsm!somme")
End With
appExcel.Quit()
appExcel = Nothing
après l’exécution de ce code tout marche bien la macro somme s’exécute sur le fichier " Mon fichier"
mais lorsque je déplace le fichier qui contient les macros dans C:\ le code ne fonctionne pas
1 réponse
-
Bonjour,
.Workbooks.Open("Mon_fichier")
Il doit y avoir le chemin complet + nom de fichier-
ok je t'explique
j'ai créer un fichier Excel Macro qui contient plusieurs macro, et je le stocké dans "C: \ Users \jamsom \ Documents \ macros.xlsm
Sur visual basic un bouton contient le code suivant:
Dim appExcel As Object
appExcel = CreateObject("Excel.Application")
appExcel.Visible = False
With appExcel
.Workbooks.Open("C:\Monfichier)
.Run("macros.xlsm!somme")
End With
appExcel.Quit()
appExcel = Nothing
lorsque je clique sur le bouton qui contient ce code, la macro somme s’exécute sur le fichier ouvert Monfchier.
lorsque je déplace le fichier qui contient la macro dans le disque "C:\"
il m'affiche qu'il y a un problème au niveau de la ligne .Run("macros.xlsm!somme")
un message qui annonce que le fichier macro n'existe pas dans Mes documents
je veux que .Run("macros.xlsm!somme") vas dans le répertoire C:\ pour trouver ce fichier -
@jamsomRe,
ok je t'explique Tout a fait Thierry, Si vous deplacez le ficher excel, vous devez le rechercher sur le disque pour retrouver le chemin
https://www.commentcamarche.net/faq/34066-vb-net-rechercher-un-fichier-sur-un-dd -
-
-
