Apr=E8s avoir cherch=E9 longuement je me permets une nouvelle fois de
vous demander votre aide.
Voil=E0, j'essaye par une macro de cr=E9er un classeur contenant
uniquement 2 feuilles.
Mais voil=E0, l'instruction que j'utilise me cr=E9e bien un classeur mais
avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider?
Merci d'avance
PS : Voici mon bout de code pour cr=E9er le classeur
Set newBook =3D Workbooks.Add
With newBook
.Title =3D AnneeEnCours
.SheetsInNewWorkbook =3D 2
.SaveAs Filename:=3DCheminClasseur
End With
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
Ardus Petus
Dim lSaveSINW as long
lSaveSINW=Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook =2 Set newBook = Workbooks.Add With newBook .Title = AnneeEnCours .SaveAs Filename:=CheminClasseur End With
Application.SheetsInNewWorkbook =lSaveSINW
Et voilà!
Cordialement, -- AP
a écrit dans le message de news:
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de vous demander votre aide. Voilà, j'essaye par une macro de créer un classeur contenant uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur mais avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider? Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add With newBook .Title = AnneeEnCours .SheetsInNewWorkbook = 2 .SaveAs Filename:=CheminClasseur End With
Dim lSaveSINW as long
lSaveSINW=Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook =2
Set newBook = Workbooks.Add
With newBook
.Title = AnneeEnCours
.SaveAs Filename:=CheminClasseur
End With
Application.SheetsInNewWorkbook =lSaveSINW
Et voilà!
Cordialement,
--
AP
<escoune@gmail.com> a écrit dans le message de news:
1151308093.701070.159110@y41g2000cwy.googlegroups.com...
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de
vous demander votre aide.
Voilà, j'essaye par une macro de créer un classeur contenant
uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur mais
avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider?
Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add
With newBook
.Title = AnneeEnCours
.SheetsInNewWorkbook = 2
.SaveAs Filename:=CheminClasseur
End With
lSaveSINW=Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook =2 Set newBook = Workbooks.Add With newBook .Title = AnneeEnCours .SaveAs Filename:=CheminClasseur End With
Application.SheetsInNewWorkbook =lSaveSINW
Et voilà!
Cordialement, -- AP
a écrit dans le message de news:
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de vous demander votre aide. Voilà, j'essaye par une macro de créer un classeur contenant uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur mais avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider? Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add With newBook .Title = AnneeEnCours .SheetsInNewWorkbook = 2 .SaveAs Filename:=CheminClasseur End With
Nicolas B.
Salut,
SheetsInNewWorkbook modifie le paramètre pour tous les nouveaux classeurs et tu ne peux pas l'appliquer à un classeur précis.
Une autre solution que celle de Ardus Petus :
Set newBook = Workbooks.Add(xlWBATWorksheet) With newBook .Title = AnneeEnCours .Sheets.Add .SaveAs Filename:=CheminClasseur End With
A+ Nicolas B.
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de vous demander votre aide. Voilà, j'essaye par une macro de créer un classeur contenant uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur mais avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider? Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add With newBook .Title = AnneeEnCours .SheetsInNewWorkbook = 2 .SaveAs Filename:=CheminClasseur End With
Salut,
SheetsInNewWorkbook modifie le paramètre pour tous les nouveaux
classeurs et tu ne peux pas l'appliquer à un classeur précis.
Une autre solution que celle de Ardus Petus :
Set newBook = Workbooks.Add(xlWBATWorksheet)
With newBook
.Title = AnneeEnCours
.Sheets.Add
.SaveAs Filename:=CheminClasseur
End With
A+
Nicolas B.
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de
vous demander votre aide.
Voilà, j'essaye par une macro de créer un classeur contenant
uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur mais
avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider?
Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add
With newBook
.Title = AnneeEnCours
.SheetsInNewWorkbook = 2
.SaveAs Filename:=CheminClasseur
End With
SheetsInNewWorkbook modifie le paramètre pour tous les nouveaux classeurs et tu ne peux pas l'appliquer à un classeur précis.
Une autre solution que celle de Ardus Petus :
Set newBook = Workbooks.Add(xlWBATWorksheet) With newBook .Title = AnneeEnCours .Sheets.Add .SaveAs Filename:=CheminClasseur End With
A+ Nicolas B.
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de vous demander votre aide. Voilà, j'essaye par une macro de créer un classeur contenant uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur mais avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider? Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add With newBook .Title = AnneeEnCours .SheetsInNewWorkbook = 2 .SaveAs Filename:=CheminClasseur End With
escoune
Merci à vous 2 :)
Salut,
SheetsInNewWorkbook modifie le paramètre pour tous les nouveaux classeurs et tu ne peux pas l'appliquer à un classeur précis.
Une autre solution que celle de Ardus Petus :
Set newBook = Workbooks.Add(xlWBATWorksheet) With newBook .Title = AnneeEnCours .Sheets.Add .SaveAs Filename:=CheminClasseur End With
A+ Nicolas B.
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de vous demander votre aide. Voilà, j'essaye par une macro de créer un classeur contenant uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur ma is avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider? Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add With newBook .Title = AnneeEnCours .SheetsInNewWorkbook = 2 .SaveAs Filename:=CheminClasseur End With
Merci à vous 2 :)
Salut,
SheetsInNewWorkbook modifie le paramètre pour tous les nouveaux
classeurs et tu ne peux pas l'appliquer à un classeur précis.
Une autre solution que celle de Ardus Petus :
Set newBook = Workbooks.Add(xlWBATWorksheet)
With newBook
.Title = AnneeEnCours
.Sheets.Add
.SaveAs Filename:=CheminClasseur
End With
A+
Nicolas B.
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de
vous demander votre aide.
Voilà, j'essaye par une macro de créer un classeur contenant
uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur ma is
avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider?
Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add
With newBook
.Title = AnneeEnCours
.SheetsInNewWorkbook = 2
.SaveAs Filename:=CheminClasseur
End With
SheetsInNewWorkbook modifie le paramètre pour tous les nouveaux classeurs et tu ne peux pas l'appliquer à un classeur précis.
Une autre solution que celle de Ardus Petus :
Set newBook = Workbooks.Add(xlWBATWorksheet) With newBook .Title = AnneeEnCours .Sheets.Add .SaveAs Filename:=CheminClasseur End With
A+ Nicolas B.
Salut à tous,
Après avoir cherché longuement je me permets une nouvelle fois de vous demander votre aide. Voilà, j'essaye par une macro de créer un classeur contenant uniquement 2 feuilles.
Mais voilà, l'instruction que j'utilise me crée bien un classeur ma is avec 3 feuilles! Le drame :s
Apparemment mon instruction SheetsInNewWorkbook ne marche pas trop :/
Quelqu'un pourrait-il m'aider? Merci d'avance
PS : Voici mon bout de code pour créer le classeur
Set newBook = Workbooks.Add With newBook .Title = AnneeEnCours .SheetsInNewWorkbook = 2 .SaveAs Filename:=CheminClasseur End With
