Bonjour à tous

Comment recuperer le nom de fichier pour le mettre dans une variable pour eviter de modifier la macro contenant le nom du fichier

Chaque fois que je renomme mon fichier il faut fair une modif dans la macro

Je veux garder le fichier "Original" est le renommer en Fichier_07 ; Fichier_08 etc etc ...

A la place de :("Original.xls"). je voudrais mettre une variable qui recupere le nom de fichier pour eviter de modifier la macro

Je charge le Fichier "Original" qui lui charge le fichier "Liste"

Private Sub Workbook_Open()
Workbooks.Open Filename:="D:\Mes Documents\Travail\"Liste.xls"
Windows ("Original.xls").Activate
Sheets("Inscrits").Select
End Sub

Si quelqu' un a une idée ?

Bonne journée à tous et Merci

Bonjour

Pourquoi ne pas faire un modele .xlt au lieu d'un .xls comme cela l'original serait conservé ?

Cdlt

Bonjour,

utilise ThisWorkbook.Name :

Sub Test()
Z = ThisWorkbook.Name
MsgBox Z
End Sub

A+

Bonjour à tous

Merci Galopin cela fonctionne.

Mais comment garder la valeur se trouvant dans la variable "Z" jusqu"a la fermeture des fichiers ?

Private Sub Workbook_Open()
z = ThisWorkbook.Name

Workbooks.Open Filename:="D:\Mes Documents\Travail\Liste.xls"
Windows(z).Activate
Sheets("Inscrits").Select

End Sub

Merci de l'aide

Bonjour,

Dans un module standart (Module1...) mettre :

Public z

en tête du module avant toute procédure.

... mébon, tu n'as sans doute pas besoin de stocker ça dans une variable. Tu peux appeler ThisWorkbook à tout moment : ThisWorkbook est toujours le classeur qui exécute la macro.

A+

Bonsoir à tous

Merci Galopin , j'ai encore une question:

Comment peut on étendre le variable z au 2° classeur

Private Sub Workbook_Open()
z = ThisWorkbook.Name 1° Classeur

Workbooks.Open Filename:="D:\Mes Documents\Travail\Liste.xls" 2° Classeur
Windows(z).Activate 1° Classeur
Sheets("Inscrits").Select

End Sub

En mettant Public z dans module1 du 2° classeur cela ne fonctionne pas ( en tout début)

Bonne soiré à tous et Merci

Ben...
ça me semble vraiment alambiqué ton truc. Je t'ai dit que le premier classeur n'a pas besoin de z. Quand c'est lui qui a la main, il sait toujours que c'est bien lui (ThisWorkbook)

Si tu souhaites appeler un autre classeur et lui dire qui l'a appelé tu peux par exemple écrire cette donnée "en dur" dans une cellule cachée :

Workbooks.Open Filename:="D:\Mes Documents\Travail\"Liste.xls"
ActiveWorkbook.Worksheets("cachée").Range("A1") = "blabla.xls"
ThisWorkbook.Activate
Sheets("Inscrits").Select

Il y a bien d'autres possibilités, mais pour l'instant ta construction (ou l'explication) m'est incompréhensible. (illogique) Si tu veux bien me décortiquer le problème de manière plus détaillée, on verra comment adapter une solution à ton besoin.

A+

Bonsoir à tous, Bonsoir Galopin

J'ai 2 Classeurs

1-Tournoi_Original (que je renomme en Tournoi_07 etc etc) avec plusieurs feuiles:Inscrits; Tournoi etc etc...

2-Liste_Scrabbleurs avec 1 feuille :Liste (ma base de données)

J'ouvre le classeur 1-Tournoi_Originam ou Tounoi_07 Par l'intermediaire de This Worbook j'ouvre le classeur 2-Liste_scrabbleurs

Private Sub Workbook_Open()

z = ThisWorkbook.Name
Workbooks.Open Filename:="D:\Mes Documents\Fichiers_Excel\Travail\Liste_Scrabbleurs.xls"
Windows(z).Activate
Sheets("Inscrits").Select

End Sub

Pour pouvoir me servir du classeur: Tournoi_Original en Tournoi_07, dans l'UserForm2 j'ai des commandes qui se servent de mon classeur pour travailler , si je garde Tournoi_Original et que le classeur s'appelle Tournoi_07 plus ne fonctionne j' ai changé ceci par la variable "z" qui modifie le nom du classeur et tout fonctionne.

(Quand je clique sur Inscription de la feuille Inscrit)

Quelques fois il faut que je change de Classeur ( 2-Liste_Scrabbleurs) pour ajouter ou modifier 1 ou plusieurs joueurs, quand je veux retourner dans mon classeur Tournoi_07 par mon UserForm1 cela ne fonctionne pas voilà ou est le probleme.

Ci joint les 2 classeurs pour bien comprendre le probleme

Bonne nuit et merci à Galopin pour son dévouement

http://cjoint.com/?jyakOuTJZN