Bonjour,
j'essaye de créer un bouton me permettant de sauvegarder des données dans le même dossier que j'utilise en prenant en compte comme nom de sauvegarde:
la date de sauvegarde
et un numéro à l'intérieur de ma cellule B10:
Voici mon programme lié à mon bouton:
Public Sub Guardar() 'copie sauvegarde classeur
Dim nom As String
nom = 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
où dois-je placer ma formule de ma cellule B10, je suppose en [B10].value... pour obtenir un enregistrement dans le meme dossier sous la forme: date_"ma valeur en B10".xlsm
Merci, tout ce que j'ai essayé beugait :S
j'essaye de créer un bouton me permettant de sauvegarder des données dans le même dossier que j'utilise en prenant en compte comme nom de sauvegarde:
la date de sauvegarde
et un numéro à l'intérieur de ma cellule B10:
Voici mon programme lié à mon bouton:
Public Sub Guardar() 'copie sauvegarde classeur
Dim nom As String
nom = 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
où dois-je placer ma formule de ma cellule B10, je suppose en [B10].value... pour obtenir un enregistrement dans le meme dossier sous la forme: date_"ma valeur en B10".xlsm
Merci, tout ce que j'ai essayé beugait :S
Dernière édition: