Re-bonjour à tous,
voici mon nouveau soucis :
j'ai un classeur avec une feuille que je souhaite enregister a part.
Je passe par le code suivant :
'Enregistre la feuille de vente dans un nouveau classeur
Dim Chr As String 'déclare la variable
Dim Rapport As String
Rapport = Feuil2.Range("D2").Value
Chr = Feuil1.Range("C3").Value & Right("00" & Feuil1.Range("D3").Value, 3)
Sheets("Facture").Copy
ChDrive "C"
ChDir "C:\Documents and Settings\Planète Bloc\Mes documents\Factures" 'Change le répertoire
ActiveWorkbook.SaveAs Filename:=(Chr)
cette feuille contient des boutons et listbox qui servent dans le classeur de départ.
Comment faire pour tous les supprimer dans le nouveau classeur ?
D'avance merci.
voici mon nouveau soucis :
j'ai un classeur avec une feuille que je souhaite enregister a part.
Je passe par le code suivant :
'Enregistre la feuille de vente dans un nouveau classeur
Dim Chr As String 'déclare la variable
Dim Rapport As String
Rapport = Feuil2.Range("D2").Value
Chr = Feuil1.Range("C3").Value & Right("00" & Feuil1.Range("D3").Value, 3)
Sheets("Facture").Copy
ChDrive "C"
ChDir "C:\Documents and Settings\Planète Bloc\Mes documents\Factures" 'Change le répertoire
ActiveWorkbook.SaveAs Filename:=(Chr)
cette feuille contient des boutons et listbox qui servent dans le classeur de départ.
Comment faire pour tous les supprimer dans le nouveau classeur ?
D'avance merci.