Vba renommer un fichier excel

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

33 réponses

  • 1
  • 2
Résumé de la discussion

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.

Bobot (l'IA à votre service)
  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  2. lolo35000
     
    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
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,
    Vous pouvez montrer le code que vous avez ecrit?
    0
  4. lolo35000
     
    ActiveWorkbooks.SaveAs "G:\chemin\ CP " & Userform.Textbox1.text & ""

    j ai inscrit ce code dans un module...
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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?
    0
  7. lolo35000
     
    Variable objet ou variable de bloc With non definie
    0
  8. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,
    Le UserForm a quel nom? Et pour l'extension ??
    0
  9. lolo35000
     
    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...
    0
  10. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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.
    0
  11. lolo35000
     
    Oui le fichier s enregistre bien au format xls mais pas avec la date...
    0
  12. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,
    Pourriez-vous mettre un fichier sur ci-joint.com avec seulement le VBA (Userform compris) et des feuilles excel vides?
    0
  13. lolo35000
     
    Helas j ecrit a partir d un smartphome, mon internet etant bloqué...
    0
  14. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,
    En attendant, le nom de la textebox est le bon dans la ligne
    ActiveWorkbooks.SaveAs "G:\chemin\ CP " & Userform.Textbox1.text & "" ?

    A bientot
    0
  15. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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+
    0
  16. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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??????
    0
  17. lolo35000
     
    Pour moi ils sont bon.

    Je ne comprends pas la question... :-)
    0
  18. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  19. lolo35000
     
    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.
    0
  • 1
  • 2