Problème macro quand on renomme le fichier excel

Résolu/Fermé
Frantoc Messages postés 5 Date d'inscription mercredi 20 mai 2015 Statut Membre Dernière intervention 2 février 2018 - 20 mai 2015 à 16:28
Frantoc Messages postés 5 Date d'inscription mercredi 20 mai 2015 Statut Membre Dernière intervention 2 février 2018 - 20 mai 2015 à 19:25
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 !!!

A voir également:

2 réponses

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
20 mai 2015 à 16:58
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
0
Frantoc Messages postés 5 Date d'inscription mercredi 20 mai 2015 Statut Membre Dernière intervention 2 février 2018
20 mai 2015 à 19:25
Un très grand merci CCM81. Je viens de tester, c'est exactement la commande qui me manquait ! Ca marche impec !!!
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
20 mai 2015 à 17:05
Bonjour,

Pour avoir le nom du classeur:

MsgBox ThisWorkbook.Name


Tu remplaces le MsgBox par une variable
0
Frantoc Messages postés 5 Date d'inscription mercredi 20 mai 2015 Statut Membre Dernière intervention 2 février 2018
20 mai 2015 à 19:25
Merci . A tous les deux de votre aide.
0