Call ou run dans autre fichier
bonjour ,
je cherche une code pour depuis mon fichier A , à l'aide d'un bouton, ouvrir un fichier B et executer dans ce second fichier une macro contenu egalement dans ce 2e fichier.
j'ai essaye avec CALL et RUN mais je n'y arrive pas. je doit surement oublié quelque chose...
merci d'avance .
Sub analyse_automatique()
'le second fichier que j'ouvre'
Workbooks.Open "le chemin de mon fichier", ReadOnly:=True
'le nom de ma macro dans le fichier qui vient d'etre ouvert'
Application.Run Macro1
End SubBonjour
Une réponse par Theve dans ce fil --> https://forum.excel-pratique.com/s/goto/1178158
Si terminé pensez à
Cordialement
ça ne fonctionne pas.
erreur : objet requis
Vous avez lu tout le fil et notamment ce que Theve propose à 20h06 ?
trop complexe pour moi , je n'a jamais utilisé de script
Rien de compliqué
Vous reprenez le code de Theve ici --> https://forum.excel-pratique.com/s/goto/1178248
Vous remplacez
- cheminfichier = .... qui est dans le code par votre répertoire en laissant les guillemets
- Macro2 par Macro1
NB : Vos deux fichiers sont-ils dans le même répertoire ou pas
dan,
NB : Vos deux fichiers sont-ils dans le même répertoire ou pas
pas de contrainte de ce coté là; que me conseillez vous ?
re
Essayez comme ceci
Sub test()
Dim cheminfichier As String
Dim classeur As Object
cheminfichier = ThisWorkbook.Path & "\" & "nomfichier"
Set classeur = Workbooks.Open(cheminfichier)
Application.Run "'" & classeur.Name & "'!macro1"
' Libérez la mémoire
Set classeur = Nothing
End SubConditions :
- Nomfichier est le nom de votre fichier contenant la macro 1 avec l'extension XLSM
- Les deux fichiers sont dans le même répertoire
Si ok pensez à
Crdlt
dan,
merci beaucoup ça marche nickel .
par contre , ou faut il ajouter ReadOnly:=True , stp ?
le fichier cible est protégé par un mdp et je veux forcer l'ouverture en lecture seule.
par contre , ou faut il ajouter ReadOnly:=True , stp ?
Dans la ligne "Set Classeur=.... " juste après cheminfichier. Mettez deux virgules puis votre instruction