Je souhaiterai exporter une feuille d'un classeur dans un répertoire (data
par exemple) et savoir s'il est possible d'inclure cette commande dans une
macro.
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
Hervé
Salut Wallace, Est ce que ceci te conviens ? La feuille est copiée dans un nouveau classeur qui est enregistré dans C:Data sous le nom de Export.xls et seule la feuille exportée est gardée (supprime les 3 autres créées par défaut).
Sub Export() Dim Cl As Workbook Dim Fe As Worksheet Set Fe = Worksheets("Feuil1") Application.ScreenUpdating = False Set Cl = Workbooks.Add With Cl .SaveAs "C:DataExport.xls" Fe.Copy .Worksheets("Feuil1") .ActiveSheet.Name = "Sauvegarde" 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
Hervé.
"Wallace" a écrit dans le message news: bk3lgl$bko$
Salut à tous
Voici ma demande :
Je souhaiterai exporter une feuille d'un classeur dans un répertoire (data par exemple) et savoir s'il est possible d'inclure cette commande dans une macro.
Merci à tous
@ +
Salut Wallace,
Est ce que ceci te conviens ? La feuille est copiée dans un nouveau classeur
qui est enregistré dans C:Data sous le nom de Export.xls et seule la
feuille exportée est gardée (supprime les 3 autres créées par défaut).
Sub Export()
Dim Cl As Workbook
Dim Fe As Worksheet
Set Fe = Worksheets("Feuil1")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
.SaveAs "C:DataExport.xls"
Fe.Copy .Worksheets("Feuil1")
.ActiveSheet.Name = "Sauvegarde"
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
Hervé.
"Wallace" <cbolmont@ch-dreux.fr> a écrit dans le message news:
bk3lgl$bko$1@s1.read.news.oleane.net...
Salut à tous
Voici ma demande :
Je souhaiterai exporter une feuille d'un classeur dans un répertoire (data
par exemple) et savoir s'il est possible d'inclure cette commande dans une
macro.
Salut Wallace, Est ce que ceci te conviens ? La feuille est copiée dans un nouveau classeur qui est enregistré dans C:Data sous le nom de Export.xls et seule la feuille exportée est gardée (supprime les 3 autres créées par défaut).
Sub Export() Dim Cl As Workbook Dim Fe As Worksheet Set Fe = Worksheets("Feuil1") Application.ScreenUpdating = False Set Cl = Workbooks.Add With Cl .SaveAs "C:DataExport.xls" Fe.Copy .Worksheets("Feuil1") .ActiveSheet.Name = "Sauvegarde" 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
Hervé.
"Wallace" a écrit dans le message news: bk3lgl$bko$
Salut à tous
Voici ma demande :
Je souhaiterai exporter une feuille d'un classeur dans un répertoire (data par exemple) et savoir s'il est possible d'inclure cette commande dans une macro.
