Macro de sauvegarde

Bonjour Jean-philippe94


Au secours = Inutile ...... On s'en doute =>lire la Charte

Un essai avec mofif de la macro d'enregistrement

@+ GD

Bonsoir Jean-Philippe, bonsoir le forum,

Attention ! dans ton fichier joint la macro affectée au bouton Sauvegarder la feuille sous le nom du client semble être une autre que Sauvdevis (référence à un autre classeur...)

Sinon, j'ai modifié la macro Sauvdevis. Ça marche mais il te faudra gérer le cas où tu tapes un deuxième devis pour le même client ou pour un homonyme car sinon le fichier écrasera l'ancien...

Sub sauvdevis()
Const chem As String = "R:\Commun\Word\Client\Neuf\"
Dim nom As String
nom = Range("B2").Value 'attention, tu demandes A2 mais le nom est en B2
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=chem & nom & ".xls"
ActiveWindow.Close
Range("A1").Select
End Sub

À plus,

Robert

Re Jean-Phillipe, le forum, bonsoir Gérard,

Désolé, Gérard, j'ai pas mis au frigo...

À plus,

Robert

Re Robert

OK pour le risque d'écrasement il faudrait alors ajouter au nom de client un code de date par exemple ou qq chose de bien particulier (N° Facture ...)

Attendons de voir ce que JP94 en pense....

@+ GD

Bonjour,
Merci pour vos réponses, j'ai pu modifier comme j'ai voulu le code et finalement je sauvegarde sous un nom d'une autre cellule qui me genere automatiquement un n° de devis.

Merci a tous c super sympa

A bientôt.