Bonjour,
il y a 2 problemes:
lancer une sub depuis un autre classeur. J'ai essayé UtilisationTemplate.xlsm!g_Menu.RAZMenuIHM et la meme chose avec run application, mais ca ne fonctionne pas tel quel.
et ce code:je copie un fichier qui m'en ouvre un autre qui lui meme modifie le premier fichier, du coup je veux refaire cette action depuis un 3eme fichier (je rajoute a la main un 2 a la place du 1 (UtilisationTemplate2)), mais il effectue les modif sur le 1er fichier et pas le 2nd.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile ThisWorkbook.Path & "\UtilisationTemplate.xlsm", ThisWorkbook.Path & "\" & "UtilisationTemplate1.xlsm" Dim wbNew As Object Set oXlApp = CreateObject("Excel.Application") oXlApp.Visible = True Set wbNew = oXlApp.Workbooks.Open(ThisWorkbook.Path & "\" & "UtilisationTemplate1.xlsm") Set wbNew = GetObject(ThisWorkbook.Path & "\" & "UtilisationTemplate1.xlsm")
:s
Merci pour votre aide !
Partager