"enregistrer.sous" avec un nom de fichier récupéré dans une variable

Bonjour,

Pour éviter une quelconque erreur, je souhaiterais savoir s'il est possible d'"enregistrer.sous" un nom de fichier connu comme variable.

Pour être plus précis, comment insérer, par macro, la variable dans "nom de fichier" de la boite de dialogue "Enregistrer sous".

J'ai bien en tête qu'il faut que "mon" nom de fichier contienne tout le chemin du répertoire où sera enregistré le dit fichier. Ma variable en tiendra compte.

Merci de votre aide,
Cordialement,
Maurice

un exemple

Code:

---

1 2 3 4 5

Dim Chemin As String, NomFichier As String   Chemin = "C:\Users\user\Desktop\" NomFichier = "Test.xls" ThisWorkbook.SaveAs Chemin & NomFichier

---

Bonjour Mercatog,

D'abord merci pour le coup de main !

Ensuite, je demande un coup de main supplémentaire car je n'arrive pas à faire tourner, dans mon cas précis, la macro.

En recopiant/adaptant votre proposition, je tombe sur un bug :

Code:

---

1 2 3 4

Dim Chemin As String, NomFichier As String Chemin = "C:\Users\Maurice GUILLIER\Desktop\" NomFichier = "Bon de livraison N°" & NoBonCommandeVal ThisWorkbook.SaveAs Chemin & NomFichier

---

où "Bon de commande" est une chaîne de caractères et où " NoBonCommandeVal " est une variable définie auparavant. De plus,il faut enregistrer ce classeur en ".xlm".

Ainsi, si la variable "NoBonCommandeVal" est, par exemple, 8, je devrais avoir un fichier (.xlm) intitulé Bon de livraison N° 8

Si vous pouviez me guider dans les corrections à apporter, ce serait formidable.

Bon après-midi,
Maurice

salut

si tu faisais un simple et tout bête (c'est le tout premier réflexe à avoir) :

Code:

---

1 2	NomFichier = "Bon de livraison N°" & NoBonCommandeVal msgbox NomFichier

---

tu découvrirais que NomFichier = "Bon de livraison N°8" et non "Bon de livraison N° 8" !
il te manque un (petit ?) espace !

Code:

---

1 2 3 4 5 6 7

Dim Chemin As String, NomFichier As String Dim NoBonCommandeVal As Integer   NoBonCommandeVal = 8 'par exemple et pour l'exemple Chemin = "C:\Users\Maurice GUILLIER\Desktop\" NomFichier = "Bon de livraison N° " & NoBonCommandeVal & ".xlsm" ThisWorkbook.SaveAs Chemin & NomFichier

---

Super à vous deux !

J'ai juste ajouté la commande du format de fichier. En effet, j'ai eu quelques ratés : un ou deux coups très réussis et la suite avec échec sur le type de fichiers par rapport à la nécessaire prise en charge des macros présentes. Pas encore compris ce qui s'est passé entre les différents essais.

Du coup, le code, pour moi, devient :

Code:

---

1 2 3 4 5

Dim Chemin As String, NomFichier As String Chemin = "C:\Users\Maurice GUILLIER\Desktop\" NomFichier = "Bon de livraison N° " & NoBonCommandeVal & ".xlsm" ThisWorkbook.SaveAs Chemin & NomFichier, FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---

sachant que la variable NoBonCommande a été définie plus haut dans la macro.

En tout cas, un grand merci pour ce déblocage qui va permettre à ma voisine de ne pas faire de mauvaises manipulations à l'enregistrement de ses fichiers hebdomadaires.:zoubi: :ccool:

Cordialement,
Maurice