Enregistrer un fichier en récupérant le nom sur une valeur de cellule ou d'une variable

Bonjour Daniel,


Prend soin d'identifier le nom de la feuille et l'adresse de la cellule qui contient le nom du fichier.
Attention à l'extension du fichier. La procédure tient compte du fait que le nom du fichier dans la cellule ne contient pas
d'extension. Si cette affirmation est fausse ... il faudra revoir la procédure.

Certains symboles insérés dans le nom du fichier sont susceptibles de générer une erreur. La procédure ne fait pas la gestion
de ce type d'erreur ! Est-ce nécessaire ?


'-------------------------
Sub Enregistrer()

Dim Chemin As String, Fichier As String, A As String

Chemin = ThisWorkbook.Path & ""
Fichier = Worksheets("Feuil1").Range("A1") & ".xls"

'Vérifie si le fichier existe déjà
A = Dir(Chemin & Fichier)

If A = "" Then
ThisWorkbook.SaveAs Chemin & Fichier
Else
If MsgBox("Ce fichier existe déjà." & vbCrLf & vbCrLf & _
"Désirez-vous l'écraser?", vbCritical + vbYesNo, "Attention") = vbYes Then
Application.DisplayAlerts = False

'On pourrait ici simplement utiliser la commande :
'ThisWorkbook.Save
'cela dépend de ce que tu désires avoir comme résultat ....
ThisWorkbook.SaveAs Chemin & Fichier
Else
MsgBox "Opération annulée."
End If
End If

End Sub
'------------------------


Salutations!



"Dan" <Dan---@wanadoo.fr> a écrit dans le message de news:Ot2zhOQYDHA.4020@tk2msftngp13.phx.gbl...
Bonjour à tous

Je cherche à enregistrer un fichier en ayant pour nom
la valeur contenue dans une cellule ou dans une variable

merci pour votre aide...

Daniel

J'essaie dès ce soir ces 2 procèdures,
merci beaucoup

"Dan" <Dan---@wanadoo.fr> a écrit dans le message de
news:Ot2zhOQYDHA.4020@tk2msftngp13.phx.gbl...

Bonjour à tous

Je cherche à enregistrer un fichier en ayant pour nom
la valeur contenue dans une cellule ou dans une variable

merci pour votre aide...

Daniel

Bonjour Dan,
Tu constateras que celle de Denis est beaucoup moins sommaire et plus sécurisée, même si la mienne peut
fonctionner.
;o))
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Dan" <Dan---@wanadoo.fr> a écrit dans le message de news:%23GHJKSVYDHA.656@tk2msftngp13.phx.gbl...

J'essaie dès ce soir ces 2 procèdures,
merci beaucoup

"Dan" <Dan---@wanadoo.fr> a écrit dans le message de
news:Ot2zhOQYDHA.4020@tk2msftngp13.phx.gbl...

Bonjour à tous

Je cherche à enregistrer un fichier en ayant pour nom
la valeur contenue dans une cellule ou dans une variable

merci pour votre aide...

Daniel