Bonjour
Je souhait enregistrer une seule feuille d'un classeur sans les macros dans un nouveau classeur ni les boutons qui se trouve sur la feuille et pouvoir choisir le dossier et le nom du fichier pour l'enregistrement.voici le code que j'ai, mais il supprime que les modules avec les macros et il me copie toutes les feuilles avec les boutons.
Merci si vous avez une solution.
Private Sub CommandButton2_Click()
Dim W1 As Workbook
Dim W2 As Workbook
Dim i&
Dim Suggere As Variant
Dim Reponse As Variant
On Error GoTo Erreur
Application.ScreenUpdating = False
'---- Votre classeur instance de xlt ----
Set W1 = ThisWorkbook
'---- Classeur cible à enregistrer ----
Set W2 = Workbooks.Add(xlWBATWorksheet)
'---- Nom feuille bidon pour éviter conflit ----
W2.Sheets(1).Name = "_tEmPo_"
'---- Copie de toutes les feuilles avec leurs ----
'---- formats et mise en page d'impression ----
For i& = 1 To W1.Sheets.Count
W1.Sheets(i&).Copy after:=W2.Sheets(W2.Sheets.Count)
Next i&
'---- Destruction de la feuille bidon ----
Application.DisplayAlerts = False
W2.Sheets(1).Delete
'---- Sauvegarde du classeur cible ----
Suggere = "A remplacer par votre variable nom"
Reponse = Application.GetSaveAsFilename( _
InitialFileName:=Suggere, _
fileFilter:="Classeur Microsoft Excel (*.xls), *.xls")
If Reponse <> False Then W2.SaveAs Filename:=Reponse
'#### LIGNES A OCCULTER SELON VOTRE GRE ####
'---- Ferme sans sauvegarder votre instance de xlt ----
W1.Saved = True
'###########################################
'---- Pseudo traitement d'erreur ----
'---- Si plantage on remet les choses en place ----
Erreur:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Je souhait enregistrer une seule feuille d'un classeur sans les macros dans un nouveau classeur ni les boutons qui se trouve sur la feuille et pouvoir choisir le dossier et le nom du fichier pour l'enregistrement.voici le code que j'ai, mais il supprime que les modules avec les macros et il me copie toutes les feuilles avec les boutons.
Merci si vous avez une solution.
Private Sub CommandButton2_Click()
Dim W1 As Workbook
Dim W2 As Workbook
Dim i&
Dim Suggere As Variant
Dim Reponse As Variant
On Error GoTo Erreur
Application.ScreenUpdating = False
'---- Votre classeur instance de xlt ----
Set W1 = ThisWorkbook
'---- Classeur cible à enregistrer ----
Set W2 = Workbooks.Add(xlWBATWorksheet)
'---- Nom feuille bidon pour éviter conflit ----
W2.Sheets(1).Name = "_tEmPo_"
'---- Copie de toutes les feuilles avec leurs ----
'---- formats et mise en page d'impression ----
For i& = 1 To W1.Sheets.Count
W1.Sheets(i&).Copy after:=W2.Sheets(W2.Sheets.Count)
Next i&
'---- Destruction de la feuille bidon ----
Application.DisplayAlerts = False
W2.Sheets(1).Delete
'---- Sauvegarde du classeur cible ----
Suggere = "A remplacer par votre variable nom"
Reponse = Application.GetSaveAsFilename( _
InitialFileName:=Suggere, _
fileFilter:="Classeur Microsoft Excel (*.xls), *.xls")
If Reponse <> False Then W2.SaveAs Filename:=Reponse
'#### LIGNES A OCCULTER SELON VOTRE GRE ####
'---- Ferme sans sauvegarder votre instance de xlt ----
W1.Saved = True
'###########################################
'---- Pseudo traitement d'erreur ----
'---- Si plantage on remet les choses en place ----
Erreur:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub