Bonjour,
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
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