Bonjour à toutes et a tous.
J'ai trouvé et adapté à mon besoin une macro qui me permet d'enregistrer automatiquement le non de mon fichier Excel avec le n° du bon de commande et la date du jour et d'incrémenter le n° du bon suivant.
Private Sub Workbook_Open()
Range("B4") = Range("B4") + 1
'ou B4 est le numéro du bon
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Numéro_bon As Integer,
Chemin = ActiveWorkbook.Path
Numéro_bon = Range("B4")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\Bon " & Numéro_bon & "-" & Non_Client & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "-" & Hour(Time) & "h" & Minute(Time) & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Ce code fonctionne parfaitement, mais j'aimerai ajouter le contenu de la cellule "F4" à mon nom de fichier (le nom du client)
J'ai modifié la macro.... mais cela ne fonctionne pas.
Private Sub Workbook_Open()
Range("B4") = Range("B4") + 1
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Numéro_bon As Integer, Nom_Client As Integer
Chemin = ActiveWorkbook.Path
Numéro_bon = Range("B4")
Application.DisplayAlerts = False
Chemin = ActiveWorkbook.Path
Nom_Client = Range("F4")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\Bon " & Numéro_bon & "-" & Non_Client & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "-" & Hour(Time) & "h" & Minute(Time) & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Je suis preneur de toutes suggestions.
Merci d'avance
Igor
J'ai trouvé et adapté à mon besoin une macro qui me permet d'enregistrer automatiquement le non de mon fichier Excel avec le n° du bon de commande et la date du jour et d'incrémenter le n° du bon suivant.
Private Sub Workbook_Open()
Range("B4") = Range("B4") + 1
'ou B4 est le numéro du bon
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Numéro_bon As Integer,
Chemin = ActiveWorkbook.Path
Numéro_bon = Range("B4")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\Bon " & Numéro_bon & "-" & Non_Client & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "-" & Hour(Time) & "h" & Minute(Time) & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Ce code fonctionne parfaitement, mais j'aimerai ajouter le contenu de la cellule "F4" à mon nom de fichier (le nom du client)
J'ai modifié la macro.... mais cela ne fonctionne pas.
Private Sub Workbook_Open()
Range("B4") = Range("B4") + 1
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Numéro_bon As Integer, Nom_Client As Integer
Chemin = ActiveWorkbook.Path
Numéro_bon = Range("B4")
Application.DisplayAlerts = False
Chemin = ActiveWorkbook.Path
Nom_Client = Range("F4")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\Bon " & Numéro_bon & "-" & Non_Client & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "-" & Hour(Time) & "h" & Minute(Time) & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Je suis preneur de toutes suggestions.
Merci d'avance
Igor