Bonjour,
Je me heurte à une difficulté que je n'arrive pas à résoudre.
J'ai réalisé un fichier où on doit rentrer nom, prénom, n°identifiant, service. J'ai créé un bouton enregistrement dans lequel je déclare un nom automatique du type :
Nom_prénom_identifiant_service_jj-mm-aaaa_nomdefichier.xls
et le faire enregistrer automatiquement sans passer par une boite de dialogue dans le dossier où se trouve le fichier source.
j'ai créé un code VB qui à priori ne fonctionne pas bien et je ne comprends pas pourquoi.
voici le code :
Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim nom As String
nom = Range("B3") & "_" & Range("E3") & "_" & Range("H3") & "_" & Range("E4") & "_" & Range("H5") & "_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
'ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub
Merci d'avance à toutes les bonnes volontés.
Arnaud.
Je me heurte à une difficulté que je n'arrive pas à résoudre.
J'ai réalisé un fichier où on doit rentrer nom, prénom, n°identifiant, service. J'ai créé un bouton enregistrement dans lequel je déclare un nom automatique du type :
Nom_prénom_identifiant_service_jj-mm-aaaa_nomdefichier.xls
et le faire enregistrer automatiquement sans passer par une boite de dialogue dans le dossier où se trouve le fichier source.
j'ai créé un code VB qui à priori ne fonctionne pas bien et je ne comprends pas pourquoi.
voici le code :
Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim nom As String
nom = Range("B3") & "_" & Range("E3") & "_" & Range("H3") & "_" & Range("E4") & "_" & Range("H5") & "_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
'ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub
Merci d'avance à toutes les bonnes volontés.
Arnaud.