Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Récuperation nom du fichier

  • Initiateur de la discussion Initiateur de la discussion adi399
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

adi399

XLDnaute Occasionnel
Bonjour le forum,

J'ai un petit problème pour récupérer le nom de mon fichier actif. le sujet à déjà été traité mais je n'arrive pas à mettre la solution en place 🙁

voici mon code que je devrai copier coller dans d'autre fichier, j'aimerai que le nom du fichier soit renseigner automatiquement...

Private Sub CommandButton1_Click()
Dim TOTO As String
TOTO = ActiveWorkbook.Name

ActiveWorkbook.SaveAs Filename:= _
"S:\dossier\dossier1\dossier2\dossier3\TOTO" & Format(Now, "dd-mm_hhmm") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Quit
End Sub

Merci d'avance !
 
Re : Récuperation nom du fichier

Bonjour,

Sans doute confonds-tu le classeur Actif (ActiveWorkBook) et le classeur qui contient la macro (ThisWorkBook).

Code:
Dim Toto As String
Toto=ThisworkBook.Name
 
ThisWorkBook.SaveAs.......

A+
 
Re : Récuperation nom du fichier

Re,

ThisWorkBook.SaveAs FileName := "S:\dossier\dossier1\dossier2\dossier3\" & TOTO & Format(Now, "dd-mm_hhmm") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

A+
[Edit] Hello Pierrot🙂
 
Dernière modification par un modérateur:
Re : Récuperation nom du fichier

Merci hasco ça fonctionne, Pierrot93 j'ai justement pensé que ma question n'était pas forcément liée à mon précedent poste mais utilisable dans d'autres situation... ça m'aide dans le suivi des mes postes mais si le forum veux que je regroupe tout pas de problème 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
Réponses
5
Affichages
2 K
MOA_Excel
M
Réponses
20
Affichages
4 K
L
Réponses
1
Affichages
1 K
Ludwig74
L
L
  • Question Question
Réponses
2
Affichages
719
linebich
L
Réponses
2
Affichages
769
L
Réponses
14
Affichages
1 K
limon
L
S
Réponses
0
Affichages
948
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…