Vba renommer un fichier excel

Fermé
lolo35000 - 1 mars 2012 à 15:21
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 8 mars 2012 à 16:07
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!!!

33 réponses

Le nom du fichier sauvegardé:
CP_
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
7 mars 2012 à 16:46
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????
0
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!! :-))
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
8 mars 2012 à 10:05
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+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
8 mars 2012 à 11:37
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.
0
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"(.... ???
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
8 mars 2012 à 12:16
Re,



ActiveWorkbook.SaveAs "G:\chemin\CP_" & Date_Fichier


A+
0
Meme en iscrivant ca, meme probleme....
0
En fait en inscrivant le code

Date_Fichiet = textbox1.text

j ai un message d erreur

impossible d affecter a un tableau
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
8 mars 2012 à 15:22
Re,
Vous n'avez toujours pas acces a internet???
0
Je peux acceder au site VB france...
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
8 mars 2012 à 16:07
Re,
Cela ne va pas etre simple si je ne peux pas voir le code que vous avez ecrit.
0