Re : chemin d acces c:\Bureau ne fonctionne pas ?
Bonjour, Pierrot93
je viens de taper ton code mais cela me donne une erreur ( la ligne en rouge )
Application.ScreenUpdating = False
Dim chemin As String
chemin = CreateObject("WScript.Shell").specialfolders("Desktop")
chemin = "C:\Bureau\details des bons de commande\"
'Chemin = ThisWorkbook.Path & "\"
Sheets("bon de commande 1").Copy
ActiveSheet.Shapes("CommandButton1").Delete
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=chemin & Feuil5.Range("E15") & Format(Feuil5.Range("G1"), "ddmmyyyy") & " " & Format(Now, "hhmmss")
Application.DisplayAlerts = True
.Close
End With
A+