Bonjour,
Mon code me permet de sauvegarder mon classeur dans un dossier sous le nom que je souhaite. Mon classeur contient plusieurs feuille
J'aimerai pouvoir sauvegarder seulement 1 ou 2 feuilles
et si possible en PDF
Merci
Mon code me permet de sauvegarder mon classeur dans un dossier sous le nom que je souhaite. Mon classeur contient plusieurs feuille
J'aimerai pouvoir sauvegarder seulement 1 ou 2 feuilles
et si possible en PDF
Merci
Code:
Private Sub CommandButton1_Click()
On Error Resume Next
MkDir "C:\Documents and Settings\peyret\Mes documents\camille\Affaire n° " & Range("G4").Value
On Error GoTo 0
monfichier = "C:\Documents and Settings\peyret\Mes documents\camille\Affaire n° " & Range("G4").Value & "\" & "Appareil n° " & Range("C4").Value
If Dir(monfichier & ".xls") <> "" Then
jour = Format(Now, "dd-mm-yy hh mm ss")
monfichier = monfichier & " " & jour
End If
monfichier = monfichier & ".xls"
ThisWorkbook.SaveCopyAs monfichier
MsgBox "Sauvegarde terminée."
End Sub