Sauvegarde auto en PDF sans écraser
Bonjour,
J'ai pas mal fouillé sur internet et ce forum sans approcher d'une solution.
J'ai bien vu un sujet similaire mais sans que je puisse me l'expliquer le code VBA est en français.
Voici mon code :
Sub savePDF()
ActiveSheet.PageSetup.PrintArea = "B2:D25"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Username\Desktop\" & Range("A1").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Ce que je souhaite faire, c'est une sauvegarde sans écraser. Si un fichier porte déjà le même nom il me faudrait une nouvelle sauvegarde se terminant par "_(2e)", puis "_(3e)", puis "_(4e)", jusqu'à 9 pour être tranquille.
Pas fort du tout en VBA, désolé pour mon ignorance et merci pour votre aide.
Bonjour,
une possibilité est d'utiliser une variable comme celle-ci,
x = Format(Now, "yyyymmddhhmmss")à tester
Sub savePDF()
x = Format(Now, "yyyymmddhhmmss")
ActiveSheet.PageSetup.PrintArea = "B2:D25"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Username\Desktop\" & Range("A1").Value & x & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End SubMerci i20100,
Je n'ai pas pu opter pour ta solution, le fichier est automatiquement nommé lors de son enregistrement selon le contenu d'une cellule qui contient entre autres la date format anglo-saxon (mm;dd;yyyy) pour classer chronologiquement les sauvegardes.
Du coup, tu m'as donné l'idée d'ajouter à cette cellule de laquelle dépend le nom de la sauvegarde l'heure au format (hh;mm;ss).
Plus de problème d'écrasement avec cela.
Je te remercie pour ton aide !
Merci i20100,
Je n'ai pas pu opter pour ta solution, le fichier est automatiquement nommé lors de son enregistrement selon le contenu d'une cellule qui contient entre autres la date format anglo-saxon (mm;dd;yyyy) pour classer chronologiquement les sauvegardes.
Du coup, tu m'as donné l'idée d'ajouter à cette cellule de laquelle dépend le nom de la sauvegarde l'heure au format (hh;mm;ss).
Plus de problème d'écrasement avec cela.
Je te remercie pour ton aide !
C'est super Sk8Strong, j'suis bien contente que le problème soit résolu. Merci pour ce retour.