Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel export de 2 feuille dans un nouveau classeur et sauveagrde

export de 2 feuille dans un nouveau classeur et sauveagrde

2 réponses
Avatar
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=E9 ce code mais je ne vois pas comment l'adapter pour 2
feuilles.


merci de votre aide.

bonne soir=E9e.

macro :
Sub Export2()
Dim Cl As Workbook
Dim Fe As Worksheet
Set Fe =3D Worksheets("Feuil1")
Application.ScreenUpdating =3D False
Set Cl =3D Workbooks.Add
With Cl
.SaveAs ("\\reseau\" & "DDe_" & Format(Date, "ddmmyyyy") & ".xls")
Fe.Copy .Worksheets("Feuil1")
Application.DisplayAlerts =3D False
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
Application.DisplayAlerts =3D True
.Save
.Close
End With
Application.ScreenUpdating =3D True
Set Fe =3D Nothing
Set Cl =3D Nothing
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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 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 !!!!
Avatar
sleg
Bonjour,

Grand merci ça marche nickel

bonne journée.


On 11 déc, 17:52, FFO wrote:
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 !!!!