XL 2013 Renommer Fichier Excel a partir de valeur de plusieurs Cellules

[Moireau]

Bonjour à tous,

J'ai un Bon de commande et je souhaite lorsque que l'on va cliquer sur le bouton Enregistrer la commande que celle-ci s'enregistrer dans le dossier indiquer mais surtout en associant les cellules B14 - B15 - B21
EX : Bon de Commande Mr Lacy 2019 - B14 - B15 -B21.xlsm

Je n'y arrive malheureusement pas. Je n'y arrive qu'avec une seule cellule mais celle-ci se met après l’extension .xlsm et je souhaiterais que se positionne avant l'extension .xlsm

Par avance merci pour votre aide et en espérant avoir été claire.

Maud

 

[mapomme]

Bonjour @Moireau,

Essayez:

Sub Enregistre()
Dim NouveauNom
   NouveauNom = "P:\Commercial\Gestion des commandes\Bon de Commande Mr Lacy 2019"
   NouveauNom = NouveauNom & " - " & [B14] & " - " & [B15] & " - " & [B21] & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=NouveauNom
End Sub

 

[Moireau]

Bonjour @Moireau,

Essayez:

Sub Enregistre()
Dim NouveauNom
   NouveauNom = "P:\Commercial\Gestion des commandes\Bon de Commande Mr Lacy 2019"
   NouveauNom = NouveauNom & " - " & [B14] & " - " & [B15] & " - " & [B21] & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=NouveauNom
End Sub

Merci Beaucoup. ça fonctionne parfaitement.

Maud

 

[Moireau]

Bonjour @Moireau,

Essayez:

Sub Enregistre()
Dim NouveauNom
   NouveauNom = "P:\Commercial\Gestion des commandes\Bon de Commande Mr Lacy 2019"
   NouveauNom = NouveauNom & " - " & [B14] & " - " & [B15] & " - " & [B21] & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=NouveauNom
End Sub

Bonjour,
je souhaite modifier et renommer avec le code client et la date que j'ai ajouté en D2 mais cela ne fonctionne pas et je trouve pas pourquoi ?
Merci pour votre aide.

Maud

 

[Hasco]

Bonjour,

1 - les '/' sont interdits dans les noms de fichier windows.=> formatage de la date
2 - s'il y a quelque chose en B15 ça va très bien.

Le code ci-dessous fonctionne chez moi avec un autre chemin bien entendu.

Sub Enregistre()
Dim NouveauNom As String
   NouveauNom = "P:\Commercial\Gestion des commandes\Bon de Commande Mr Lacy 2019"
   NouveauNom = NouveauNom & " - " & [B15] & " - " & Format([D2], "dd-mm-yyyy") & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=NouveauNom
End Sub

Bonne soirée

 

[Moireau]

Bonjour,

1 - les '/' sont interdits dans les noms de fichier windows.=> formatage de la date
2 - s'il y a quelque chose en B15 ça va très bien.

Le code ci-dessous fonctionne chez moi avec un autre chemin bien entendu.

Sub Enregistre()
Dim NouveauNom As String
   NouveauNom = "P:\Commercial\Gestion des commandes\Bon de Commande Mr Lacy 2019"
   NouveauNom = NouveauNom & " - " & [B15] & " - " & Format([D2], "dd-mm-yyyy") & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=NouveauNom
End Sub

Bonne soirée

Bonjour,

Merci beaucoup c'est parfait et surtout je comprends mon erreur.
Bonne journée,