Aide pour améliorer mon code

  • Initiateur de la discussion Initiateur de la discussion teamtat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

teamtat

XLDnaute Occasionnel
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


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
 
Re : Aide pour améliorer mon code

J'ai essayé avec ce code mais il me met erreur d'execution '9' :
L'indice n'appartient pas a la selection

Sheets("feuil12").CopyActiveWorkbook.SaveCopyAs Filename:=monfichier (cette ligne qui ne va pas)

Code:
 Private Sub CommandButton1_Click()

Dim wk As Workbook
Dim ws As Worksheet

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"
   
Sheets("feuil12").CopyActiveWorkbook.SaveCopyAs Filename:=monfichier

MsgBox "Sauvegarde terminée."

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
418
Réponses
10
Affichages
843
Réponses
2
Affichages
1 K
Retour