Macro changer le nom du fichier excel

[toinou69]

Bonjour à tous,

Je suis actuellement stagiaire dans une entreprise du Rhône et j'ai créé dans le cadre de mon stage une fiche d'évaluation. Je me suis rendu compte que suivant la personne qui remplissait la fiche, le nom donné au fichier une fois enregistré était différent. C'est pourquoi j'ai besoin de votre aide!
Je souhaiterais créer une macro qui se servirait des données dans les différentes cellules pour nommer le fichier en fonction. Je souhaiterais que le fichier ressorte ainsi :
Evaluation_jj-mm-aa_nom du fournisseur_nom de l'évaluateur.xls

Sachant que la date, le nom du fournisseur et le nom de l'évaluateur sont saisies dans des cellules du fichier excel.

Merci par avance pour vos réponses.🙂

 

[suistrop]

Re : Macro changer le nom du fichier excel

Hello,

Je suis moi aussi stagiaire .... vla un peu d aide !

Sub cartman()
'ici tu recuperes les nom pour la sauvegarde de ton fichier
premier = Cells(1, 1)
deux = Cells(2, 1)
trois = Cells(3, 1)

'ici tu met le chemin d acces ou tu veux le sauvegarder
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\FDL\Bureau\" & premier & deux & trois, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

Le plus simple est quand meme que tu me donne un fichier avec juste les info nécessaire a la réalisation de ce que tu veux !
​

 

[toinou69]

Re : Macro changer le nom du fichier excel

Merci pour ta réponse rapide. Voilà ce que je souhaite voir apparaître dans mon fichier.

 

[suistrop]

Re : Macro changer le nom du fichier excel

Sub cartman()
'ici tu recuperes les nom pour la sauvegarde de ton fichier
fournisseur = Cells(1, 3)
redacteur = Cells(2, 3)
ladate = Cells(3, 3)

'ici tu met le chemin d acces ou tu veux le sauvegarder
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\FDL\Bureau\" & fournisseur & "_" & redacteur & "_" & ladate, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

il faut que tu change le nom de destination "C:\Documents and Settings\FDL\Bureau\"

pour ouvrir VBA c est alt+F11 et ensuite tu va dans module !

 

[toinou69]

Re : Macro changer le nom du fichier excel

Merci encore pour tes réponses. Je vais essayer ça dès que je peux.😀

 

[toinou69]

Re : Macro changer le nom du fichier excel

Salut "suistrop"!
Ta macro marche à la perfection c'est super!
Mais voilà (y a toujours un mais^^)...
La modification du nom du fichier marche à merveille et je souhaite conserver cette partie de la macro, en fait je ne souhaite changer que le chemin d'enregistrement. Je t'explique : je me demandais s'il était possible que le fichier soit automatiquement envoyé à une boîte mail et plus à un répertoire de fichiers???

Merci pour ta réponse.

 

[suistrop]

Re : Macro changer le nom du fichier excel

hello,

je ne sais pas faire mais regarde le lien ca a l air de répondre a ton probleme :

ENVOI AUTOMATIQUE DE MAIL (AVEC PIÈCE JOINTE) EN VBA : EXCEL, WORD OU ACCESS PAR OULOOK EXPRESS OU MODZILLA THUNDERBIRD OU D'AUTRES mail, automatique, pièce jointe, envoi mail, VBA, Source N°3154