Vba renommer un fichier excel
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
J ai realisé ds un fichier excel un formulaire avec le VB.
Dans la textbox1 je tape une date (aaaammjj) permettant l extraction d un fichier que j importe ds ce fichier.
Dans ce meme fichier, j ai realisé une macro qui creer un nouveau classeur.
J aurai souhaité que ce fichier soit nommé : CP aaaammjj
aaaajjmm etant le texte se trouvant ds la textbox1.
Quelqu un a une soluce pr renommer le fichier de cette facon??
Merci d avance!!!
33 réponses
- 1
- 2
L'objectif est de nommer automatiquement un nouveau classeur créé par une macro Excel avec le préfixe CP suivi de la date saisie dans une TextBox d'un UserForm (format aaaammjj). Plusieurs intervenants suggèrent de stocker la date dans une variable publique Date_Fichier et d'utiliser cette variable dans SaveAs plutôt que TextBox1.Text. Il faut aussi veiller à déclarer la variable dans un module, vérifier les noms (UserForm vs FormName, TexteBox) et inclure l'extension du fichier (.xls/.xlsm). Des échanges évoquent des erreurs comme 'variable ou procédure attendue' liées à l'emplacement du code ou à l'absence de déclaration; la solution est de placer correctement le code et de rendre la variable accessible.
-
Bonjour,
si TextBox1 sur feuille calcul:
Nom_du_fichier = "CP" & Feuil1.TextBox1.Value
ou
Nom_du_fichier = "CP " & Feuil1.TextBox1.Value
si UserForm
Nom_du_fichier = "CP" & UserForm1.TextBox1.Value
ou
Nom_du_fichier = "CP " & UserForm1.TextBox1.Value
Bonne suite -
Bonjour et merci de la reponse.
J'avais oublié de mettre "userform" devant "textbox"
Cependant, cela bloque qd meme.
Une fois que j ai renseigné la date dans mon userform, je click sur un boutton pour le cacher.
Et quand je créé le fchier la date ne s affiche pas dans le nom.
Comment faire?? :-/
Merci d'avance -
Bonjour,
Vous pouvez montrer le code que vous avez ecrit? -
ActiveWorkbooks.SaveAs "G:\chemin\ CP " & Userform.Textbox1.text & ""
j ai inscrit ce code dans un module... -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
ActiveWorkbooks.SaveAs "G:\chemin\ CP " & Userform.Textbox1.text & ""
Si vous mettez un point d'arret devant cette ligne, des que le programme s'arrete, en mettant le curseur de la souris sur Userform.Textbox1.text que voyez vous du contenu de cette objet? -
-
Re,
Le UserForm a quel nom? Et pour l'extension ?? -
Il s appelle " parametres". En fait dans le code precedent j'ai remplacé veritablement userform par parametres (j ai laissé userform sur ce post pour la comprehension...)
Par contre je ne sais pas comment voi l'extension... -
Re,
Est-ce que cela fonctionne ou pas?
L'extension est a mettre, dans votre code il n'y a pas l'extension ".XLS" ou ".XLSM" si vous voulez des fichiers EXCEL. -
-
Re,
Pourriez-vous mettre un fichier sur ci-joint.com avec seulement le VBA (Userform compris) et des feuilles excel vides? -
-
Re,
En attendant, le nom de la textebox est le bon dans la ligne
ActiveWorkbooks.SaveAs "G:\chemin\ CP " & Userform.Textbox1.text & "" ?
A bientot -
-
Re,
Vous allez mettre la ligne ci-dessous
x="G:\chemin\ CP " & Userform.Textbox1.text & ""
devant celle ci
ActiveWorkbooks.SaveAs "G:\chemin\ CP " & Userform.Textbox1.text & ""
mettez un point d'arret sur la ligne ci-dessus, lancer et que vaux x?
A+ -
-
Re,
Il aurait dun etre au moins egal a "G:\chemin\ CP ".
J'espere que vous avez mis les bon nom de userform et texteBox.
Si x est vide, sous quel nom et chemin est sauvegarde votre fichier?????? -
-
Re,
X aurait du etre au moins egal a "G:\chemin\ CP ".
Si x est vide, sous quel nom et chemin est sauvegarde votre fichier??????
Je vous demande quel est le nom du fichier sauvegarder -
En quand j inscrit une date dans le userform ds vb cela fonctionne.
Quand j ouvre avec excel le formulaire s affiche j inscrit la date.
Je valide, le formulaire se quitte.
Lorsque je clik sur le boutton pr realisé la macro permettamt de nommer le nouveau fichier, la ca ne fonctionne pas.
- 1
- 2