Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel fermer un classeur (ou ne pas l'ouvrir)

fermer un classeur (ou ne pas l'ouvrir)

4 réponses
Avatar
Pierre F.
Bonsoir toutes et tous

Encore une question simple :-)

Dans un classeur de 15 pages, j'ai une petite macro qui me cr=E9e un=20
nouveau classeur (d'une page)

----------
Sheets("Tout").Copy
ActiveWorkbook.SaveAs Filename:=3D _
"InvMusiqSauv.xls"
----------

Tout se passe tr=E8s bien sauf que le nouveau classeur en question s'ouvr=
e=20
automatiquement d=E8s sa cr=E9ation.

Existe-t-il un moyen pour que ce nouveau soit cr=E9=E9 mais qu'il ne s'ou=
vre=20
pas ?

Merci.

Cordialement,
Pierre F.
Signaler un problème avec ce contenu

4 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
Quetzalcoatl
Bonsoir,

Essaye :
ActiveWorkbook.SaveCopyAs Filename:="InvMusiqSauv.xls"


"Pierre F." a écrit dans le message de news: c03f5$4654ae30$55da2b80$

Bonsoir toutes et tous

Encore une question simple :-)

Dans un classeur de 15 pages, j'ai une petite macro qui me crée un
nouveau classeur (d'une page)

----------
Sheets("Tout").Copy
ActiveWorkbook.SaveAs Filename:= _
"InvMusiqSauv.xls"
----------

Tout se passe très bien sauf que le nouveau classeur en question s'ouvre
automatiquement dès sa création.

Existe-t-il un moyen pour que ce nouveau soit créé mais qu'il ne s'ouvre
pas ?

Merci.

Cordialement,
Pierre F.
Avatar
Pierre F.
Bonsoir,

Essaye :
ActiveWorkbook.SaveCopyAs Filename:="InvMusiqSauv.xls"


Merci;

Même problème : il m'ouvre un classeur2.xls et n'enregistre pas le
fichier sous le nom voulu :-(

Cordialement,
Pierre F.

Avatar
garnote
Salut Pierre,

Et si tu essayais ceci :

Sub Nouveau_Classeur()
Application.ScreenUpdating = False
Sheets("Tout").Copy
ActiveWorkbook.SaveAs Filename:="InvMusiqSauv.xls"
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Serge


"Pierre F." a écrit dans le message de news: c03f5$4654ae30$55da2b80$

Bonsoir toutes et tous

Encore une question simple :-)

Dans un classeur de 15 pages, j'ai une petite macro qui me crée un
nouveau classeur (d'une page)

----------
Sheets("Tout").Copy
ActiveWorkbook.SaveAs Filename:= _
"InvMusiqSauv.xls"
----------

Tout se passe très bien sauf que le nouveau classeur en question s'ouvre
automatiquement dès sa création.

Existe-t-il un moyen pour que ce nouveau soit créé mais qu'il ne s'ouvre
pas ?

Merci.

Cordialement,
Pierre F.
Avatar
Pierre F.
Salut Pierre,

Et si tu essayais ceci :

Sub Nouveau_Classeur()
Application.ScreenUpdating = False
Sheets("Tout").Copy
ActiveWorkbook.SaveAs Filename:="InvMusiqSauv.xls"
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub



Génial, ça marche !!
MERCI !

Cordialement,
Pierre F.