bonjour
question à 1?
comment ne sauvegarder qu'une seule feuille d'un classeur (qui en contient
plusieurs)
vers un nouveau classeur qui ne contiendrait que cette feuille.
En bref, le code VB pour réaliser ActiveWorksBook.sheets("feuil1") ..( à
plusieurs feuilles) en save as....toto.xls (classeur à feuille unique)
salut
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
Denis Michon
Bonjour Gaston,
Un truc du genre : Adapte le nom de la feuille
'--------------------------- Sub sauvegargerUneFeuille()
Dim Chemin As String With Worksheets("Feuil1") Chemin = .Parent.Path .Copy End With With ActiveWorkbook .SaveAs Chemin & "toto.xls" 'Et pour le fermer. .close false End With
End Sub '---------------------------
Salutations!
"gaston.py" a écrit dans le message de news:bqijnd$dek$ bonjour question à 1? comment ne sauvegarder qu'une seule feuille d'un classeur (qui en contient plusieurs) vers un nouveau classeur qui ne contiendrait que cette feuille. En bref, le code VB pour réaliser ActiveWorksBook.sheets("feuil1") ..( à plusieurs feuilles) en save as....toto.xls (classeur à feuille unique) salut
Bonjour Gaston,
Un truc du genre : Adapte le nom de la feuille
'---------------------------
Sub sauvegargerUneFeuille()
Dim Chemin As String
With Worksheets("Feuil1")
Chemin = .Parent.Path
.Copy
End With
With ActiveWorkbook
.SaveAs Chemin & "toto.xls"
'Et pour le fermer.
.close false
End With
End Sub
'---------------------------
Salutations!
"gaston.py" <gaston.py@wanadoo.fr> a écrit dans le message de news:bqijnd$dek$1@news-reader3.wanadoo.fr...
bonjour
question à 1?
comment ne sauvegarder qu'une seule feuille d'un classeur (qui en contient
plusieurs)
vers un nouveau classeur qui ne contiendrait que cette feuille.
En bref, le code VB pour réaliser ActiveWorksBook.sheets("feuil1") ..( à
plusieurs feuilles) en save as....toto.xls (classeur à feuille unique)
salut
'--------------------------- Sub sauvegargerUneFeuille()
Dim Chemin As String With Worksheets("Feuil1") Chemin = .Parent.Path .Copy End With With ActiveWorkbook .SaveAs Chemin & "toto.xls" 'Et pour le fermer. .close false End With
End Sub '---------------------------
Salutations!
"gaston.py" a écrit dans le message de news:bqijnd$dek$ bonjour question à 1? comment ne sauvegarder qu'une seule feuille d'un classeur (qui en contient plusieurs) vers un nouveau classeur qui ne contiendrait que cette feuille. En bref, le code VB pour réaliser ActiveWorksBook.sheets("feuil1") ..( à plusieurs feuilles) en save as....toto.xls (classeur à feuille unique) salut
