Problème macro quand on renomme le fichier excel Résolu

Question

Bonjour, 

Dans un fichier Excel qui se nomme "Fiche Ecoles", j'ai une macro qui appelle d'autres macros. Voici les lignes de programmation.

Sub Toutassembler()

'    Application.Run _
        "'Fiches Ecoles.xlsm'!Assemblagefeuilles1a9"
    Application.Run _
        "'Fiches Ecoles.xlsm'!Assemblagefeuilles10a20"
    
End Sub

Cette macro fonctionne parfaitement, à la seule condition qu'on ne renomme surtout pas le fichier "Fiches Ecoles"... Comment faire pour que cette macro fonctionne même si le nom du fichier qui héberge cette macro change ???

Je comprends bien que dans mes lignes de codes la partie 'Fiches Ecoles.xlsm' ne convient pas... mais par quoi la remplacer... J'ai essayé 'thisworkbook' sans succés... 
help !!!

Configuration: Windows 7 / Chrome 42.0.2311.152

ccm81 · Answer

Bonjour

Si les macros sont dans le fichier où elles s'exécutent, essaies en remplaçant
' Application.Run "'Fiches Ecoles.xlsm'!Assemblagefeuilles1a9" 
par 
Call Assemblagefeuilles1a9

RQ. tes macros doivent être déclarées Publiques
Public Sub Assemblagefeuilles1a9()
...
End Sub

Cdlmnt

cs_Le Pivert · Answer

Bonjour,

Pour avoir le nom du classeur:

MsgBox ThisWorkbook.Name 

Tu remplaces le MsgBox par une variable

Problème macro quand on renomme le fichier excel

2 réponses

Votre réponse