La class .Run d'un objet Excel

Fermé
jamsom Messages postés 242 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017 - 21 mai 2016 à 00:35
f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 - 22 mai 2016 à 07:53
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
A voir également:

1 réponse

f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 1 711
21 mai 2016 à 10:33
Bonjour,

.Workbooks.Open("Mon_fichier")

Il doit y avoir le chemin complet + nom de fichier
0
jamsom Messages postés 242 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017
21 mai 2016 à 10:37
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
0
f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 1 711 > jamsom Messages postés 242 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017
Modifié par f894009 le 21/05/2016 à 12:06
Re,

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
0
jamsom Messages postés 242 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017 > f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024
21 mai 2016 à 17:37
moi je sais son emplacement donc je dois pas la rechercher

en tout cas merci
0
f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 1 711 > jamsom Messages postés 242 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017
22 mai 2016 à 07:53
Bonjour,

si vous connaissez son emplacement ou est le problème ?????
0