export de 2 feuille dans un nouveau classeur et sauveagrde

Le
sleg
Bonjour,

J'ai un classeur avec 8 feuilles et j'aimerais copier 2 feuilles dans
un nouveau classeur et enregistrer ce classeur sur le reseau
directement.

j'ai trouvé ce code mais je ne vois pas comment l'adapter pour 2
feuilles.


merci de votre aide.

bonne soirée.

macro :
Sub Export2()
Dim Cl As Workbook
Dim Fe As Worksheet
Set Fe = Worksheets("Feuil1")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
.SaveAs ("eseau" & "DDe_" & Format(Date, "ddmmyyyy") & ".xls")
Fe.Copy .Worksheets("Feuil1")
Application.DisplayAlerts = False
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe = Nothing
Set Cl = Nothing
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #18114101
Salut à toi

Pour 2 feuilles mets comme ceci :

Sub Export2()
Dim Cl As Workbook
Dim Fe1 As Worksheet
Dim Fe2 As Worksheet
Set Fe1 = Worksheets("MaFeuille1")
Set Fe2 = Worksheets("MaFeuille2")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
.SaveAs ("\reseau" & "DDe_" & Format(Date, "ddmmyyyy") & ".xls")
Fe1.Copy .Worksheets("Feuil1")
ActiveSheet.Name = "MaFeuille1"
Fe2.Copy .Worksheets("Feuil2")
ActiveSheet.Name = "MaFeuille2"
Application.DisplayAlerts = False
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe1 = Nothing
Set Fe2 = Nothing
Set Cl = Nothing
Ens Sub

Adapte les paramètres "MaFeuille1" et "MaFeuille2" en fonction du nom de tes
feuilles à recopier et le paramètre "\reseau" & "DDe_" & Format(Date,
"ddmmyyyy") & ".xls" en fonction du chemin et du nom à donner à ton classeur

Celà devrait convenir
Dis moi !!!!
sleg
Le #18118261
Bonjour,

Grand merci ça marche nickel

bonne journée.


On 11 déc, 17:52, FFO
Salut à toi

Pour 2 feuilles mets comme ceci :

Sub Export2()
Dim Cl As Workbook
Dim Fe1 As Worksheet
Dim Fe2 As Worksheet
Set Fe1 = Worksheets("MaFeuille1")
Set Fe2 = Worksheets("MaFeuille2")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
.SaveAs ("\reseau" & "DDe_" & Format(Date, "ddmmyyyy") & ".xls")
Fe1.Copy .Worksheets("Feuil1")
ActiveSheet.Name = "MaFeuille1"
Fe2.Copy .Worksheets("Feuil2")
ActiveSheet.Name = "MaFeuille2"
Application.DisplayAlerts = False
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe1 = Nothing
Set Fe2 = Nothing
Set Cl = Nothing
Ens Sub

Adapte les paramètres "MaFeuille1" et "MaFeuille2" en fonction du nom d e tes
feuilles à recopier et le paramètre "\reseau" & "DDe_" & Format(Dat e,
"ddmmyyyy") & ".xls" en fonction du chemin et du nom à donner à ton c lasseur

Celà devrait convenir
Dis moi !!!!


Publicité
Poster une réponse
Anonyme