rudy dehaudt
XLDnaute Occasionnel
bonjour,
dans le bout de code ci dessous je voudrai ajouter le contenu de la cellule E14 à la suite de E15, merci de votre aide
A+
Application.ScreenUpdating = False
Chemin = "E:\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(Now, "dd-mm-yy hhmmss")
Application.DisplayAlerts = True
.Close
End With
dans le bout de code ci dessous je voudrai ajouter le contenu de la cellule E14 à la suite de E15, merci de votre aide
A+
Application.ScreenUpdating = False
Chemin = "E:\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(Now, "dd-mm-yy hhmmss")
Application.DisplayAlerts = True
.Close
End With