Je suis en train de mettre en place une document excel avec plusieurs pages concernant mon boulot. J'ai créé une macros de sauvegarde automatique dans un dossier de mon choix à l'aide d'un bouton. Mon problème est donc que je souhaiterais sauvegarder seulement une feuille de ce classeur en PDF dans ce dossier.
Pourriez vous m'aider ?
Voici le code en question :
Sub SauvegardeAuto()
Application.DisplayAlerts = False
Dim dName$, vName$
dName = Range("A1")
vName = ActiveWorkbook.FullName
ActiveWorkbook.SaveCopyAs "S:\...\" & dName & " " & Format(Date, "DD.MM.YY") & " à " & Format(Time, "hh.mm.ss") & ".xlsm"
ActiveWorkbook.SaveAs vName
Application.DisplayAlerts = True
End Sub
la ligne ActiveWorkbook.SaveAs vName tente de faire une copie du fichier sur lui-même puisque vName = ActiveWorkbook.FullName
Donc ActiveWorkBook.Save est suffisant
De plus la propriété FullName renvoie le nom complet (chemin, nom de fichier et extension)
La copie serait sans doute :