vba renommer un fichier excel

Question

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!!!

f894009 · Answer

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

lolo35000 · Answer

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

f894009 · Answer

Bonjour,
Vous pouvez montrer le code que vous avez ecrit?

lolo35000 · Answer

ActiveWorkbooks.SaveAs "G:\chemin\ CP " & Userform.Textbox1.text & ""


j ai inscrit ce code dans un module...

f894009 · Answer

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?

lolo35000 · Answer

Variable objet ou variable de bloc With non definie

f894009 · Answer

Re, 
Le UserForm a quel nom? Et pour l'extension ??

lolo35000 · Answer

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...

f894009 · Answer

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.

lolo35000 · Answer

Oui le fichier s enregistre bien au format xls mais pas avec la date...

f894009 · Answer

Re, 
Pourriez-vous mettre un fichier sur ci-joint.com avec seulement le VBA (Userform compris) et des feuilles excel vides?

lolo35000 · Answer

Helas j ecrit a partir d un smartphome, mon internet etant bloqué...

f894009 · Answer

Re,
En attendant, le nom de la textebox est le bon dans la ligne 
ActiveWorkbooks.SaveAs "G:\chemin\ CP " & Userform.Textbox1.text & "" ?

A bientot

lolo35000 · Answer

Oui il est bon

f894009 · Answer

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+

lolo35000 · Answer

X = vide

f894009 · Answer

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??????

lolo35000 · Answer

Pour moi ils sont bon.

Je ne comprends pas la question... :-)

f894009 · Answer

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

lolo35000 · Answer

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.

lolo35000 · Answer

Le nom du fichier sauvegardé:
CP_

f894009 · Answer

Re,
Si j'ai bien compris, vous pouvez faire la sauvegarde de deux endroits:
a partir d'un userform et ca marche
 ou 
a partir d'un "formulaire" et la ca ne marche pas.

Je valide, le formulaire se quitte.  qu'est ce????

lolo35000 · Answer

Je me suis mal expliqué. 

Le userform que j ai créé ds VB apparait a l'ouverture du fichier excel.

Lorsque je rentre une date ds le userform sous vb et que realise la macro cela fonctionne.

Quand j ouvre avec excel le userform appagrait je rentre ma  date je valide. 
Le userform disparait, realise l extraction.

Lorsque je clik sur le bouton sensé crée le nouveau fichier j ai bien un nouveaux classeur 
qui se creé mais n est pas renommé avec la date que j ai rentré dans le userform.

Esperant avoir ete clair....

Merci bcp de votre aide!! :-))

f894009 · Answer

Bonjour,
Il faut que la date que vous entrez dans votre TextBox soit mise dans une variable commune a tout vos programmes car votre TextBox est un objet local a votre UserForm donc TextBox1.text n'existe plus des que vous fermez le UserForm.

Pour que cela fonctionne:
1/ Vous allez inserez un module ou vous definierez une varialble:
ex: 

Public Date_Fichier ' Date de sauvegarde


2/ dans le UserForm, vous inserez une ligne

Date_Fichier=TextBox1.Text


3/ dans le code de votre bouton de sauvegarde vous remplacez TextBox1.Text par Date_Fichier

A+

lolo35000 · Answer

J ai realisé a la lettre les 3 etapes.

Lorsque je rentre la date ds le userform j ai un message d erreur qui s affiche ds vb.l:

variable ou procedure attendue, et non un module

f894009 · Answer

Re,

2/ dans le UserForm, vous inserez une ligne

Date_Fichier=TextBox1.Text 

Cette ligne est a inserer dans le code ou par exemple vous lancez l'extraction de votre fichier.

lolo35000 · Answer

J ai inséré la ligne a la fin de ce code.

Lorsque je click sur le boutton pour creer le nouveau fichier, le fichier se nomme(
Cp_

il manque encore la date. P-e ai-je une erreur au niveau de save.as..

Comment faut-il extire apres "saveas"(....   ???

f894009 · Answer

Re,



ActiveWorkbook.SaveAs "G:\chemin\CP_" & Date_Fichier


A+

lolo35000 · Answer

Meme en iscrivant ca, meme probleme....

lolo35000 · Answer

En fait en inscrivant le code

Date_Fichiet = textbox1.text 

j ai un message d erreur

impossible d affecter a un tableau

f894009 · Answer

Re,
Vous n'avez toujours pas acces a internet???

lolo35000 · Answer

Je peux acceder au site VB france...

f894009 · Answer

Re,
Cela ne va pas etre simple si je ne peux pas voir le code que vous avez ecrit.

Vba renommer un fichier excel

33 réponses

Votre réponse

Discussions similaires

Newsletters