Discussion :

[mauriceguillier]

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

[mercatog]

un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mauriceguillier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[babaothe]

salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mauriceguillier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

Cordialement,
Maurice