Vba renommer un fichier excel
lolo35000
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
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!!!
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
Suivant
-
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
Suivant
