désolé mais je ne comprends pas bien la fonction que tu m'a indiqué et où je renseigné la feuille à tester
merci
-----Message d'origine----- bonjour xavier,
On Error Resume Next Set fichier = Application.Windows("Classeur1.xls") If fichier <> Empty Then fichier.Close Set fichier = Nothing
isabelle
bonjour,
je voudrais pouvoir tester si une feuille est encore ouverte dans le classeur afin de la fermer si c'est le cas
quel en est la macro
merci .
isabelle
désolé mais je ne comprends pas bien la fonction que tu m'a indiqué et où je renseigné la feuille à tester
lorsque tu écrit "feuille" veut tu dire un fichier "WorkBooks" ?
si c'est bien ça modidifie comme suit :
Sub Test() wb = InputBox("Entrer le nom du fichier à tester ( sans l'extention .xls)") On Error Resume Next Set fichier = Application.Windows("" & wb & ".xls") If fichier <> Empty Then fichier.Close Set fichier = Nothing End Sub
isabelle
désolé mais je ne comprends pas bien la fonction que tu
m'a indiqué et où je renseigné la feuille à tester
lorsque tu écrit "feuille" veut tu dire un fichier "WorkBooks" ?
si c'est bien ça modidifie comme suit :
Sub Test()
wb = InputBox("Entrer le nom du fichier à tester ( sans l'extention
.xls)")
On Error Resume Next
Set fichier = Application.Windows("" & wb & ".xls")
If fichier <> Empty Then fichier.Close
Set fichier = Nothing
End Sub
désolé mais je ne comprends pas bien la fonction que tu m'a indiqué et où je renseigné la feuille à tester
lorsque tu écrit "feuille" veut tu dire un fichier "WorkBooks" ?
si c'est bien ça modidifie comme suit :
Sub Test() wb = InputBox("Entrer le nom du fichier à tester ( sans l'extention .xls)") On Error Resume Next Set fichier = Application.Windows("" & wb & ".xls") If fichier <> Empty Then fichier.Close Set fichier = Nothing End Sub
isabelle
xavier
non quand je parle d'une feuille je parle d'une sheets dans le classeur
ici sheets("transfert conseiller)
-----Message d'origine-----
désolé mais je ne comprends pas bien la fonction que tu m'a indiqué et où je renseigné la feuille à tester
lorsque tu écrit "feuille" veut tu dire un fichier "WorkBooks" ?
si c'est bien ça modidifie comme suit :
Sub Test() wb = InputBox("Entrer le nom du fichier à tester ( sans l'extention
..xls)") On Error Resume Next Set fichier = Application.Windows("" & wb & ".xls") If fichier <> Empty Then fichier.Close Set fichier = Nothing End Sub
isabelle .
non quand je parle d'une feuille je parle d'une sheets
dans le classeur
ici sheets("transfert conseiller)
-----Message d'origine-----
désolé mais je ne comprends pas bien la fonction que tu
m'a indiqué et où je renseigné la feuille à tester
lorsque tu écrit "feuille" veut tu dire un
fichier "WorkBooks" ?
si c'est bien ça modidifie comme suit :
Sub Test()
wb = InputBox("Entrer le nom du fichier à tester ( sans
l'extention
..xls)")
On Error Resume Next
Set fichier = Application.Windows("" & wb & ".xls")
If fichier <> Empty Then fichier.Close
Set fichier = Nothing
End Sub
pour éviter d'avoir le message de confirmation de fermeture
-----Message d'origine----- dit moi, comment fait tu pour fermer une feuille ?
isabelle
non quand je parle d'une feuille je parle d'une sheets dans le classeur
ici sheets("transfert conseiller)
-----Message d'origine-----
désolé mais je ne comprends pas bien la fonction que tu
m'a indiqué et où je renseigné la feuille à tester
lorsque tu écrit "feuille" veut tu dire un fichier "WorkBooks" ?
si c'est bien ça modidifie comme suit :
Sub Test() wb = InputBox("Entrer le nom du fichier à tester ( sans
l'extention
..xls)") On Error Resume Next Set fichier = Application.Windows("" & wb & ".xls") If fichier <> Empty Then fichier.Close Set fichier = Nothing End Sub
isabelle .
.
Jacky
Bonjour Xavier
Il est impossible de fermer une feuille(sweet) dans un classeur, tout au plus tu peux la rendre 'non visible' avec: Sheets(nom de la feuille).Visible = false et visible avec: Sheets(nom de la feuille).Visible = true
Si tu souhaites une macro pour cela revient.
Salutations JJ
"xavier" a écrit dans le message de news:1b2f301c44f9c$8550e420$
bonjour,
je voudrais pouvoir tester si une feuille est encore ouverte dans le classeur afin de la fermer si c'est le cas
quel en est la macro
merci
Bonjour Xavier
Il est impossible de fermer une feuille(sweet) dans un classeur, tout au
plus tu peux la rendre 'non visible'
avec:
Sheets(nom de la feuille).Visible = false
et visible avec:
Sheets(nom de la feuille).Visible = true
Si tu souhaites une macro pour cela revient.
Salutations
JJ
"xavier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1b2f301c44f9c$8550e420$a401280a@phx.gbl...
bonjour,
je voudrais pouvoir tester si une feuille est encore
ouverte dans le classeur afin de la fermer si c'est le cas
Il est impossible de fermer une feuille(sweet) dans un classeur, tout au plus tu peux la rendre 'non visible' avec: Sheets(nom de la feuille).Visible = false et visible avec: Sheets(nom de la feuille).Visible = true
Si tu souhaites une macro pour cela revient.
Salutations JJ
"xavier" a écrit dans le message de news:1b2f301c44f9c$8550e420$
bonjour,
je voudrais pouvoir tester si une feuille est encore ouverte dans le classeur afin de la fermer si c'est le cas
quel en est la macro
merci
Jacky
Re..
ActiveWindow.SelectedSheets.Delete Avec ce code, tu ne fermes pas une feuille, tu la supprime, il te sera
impossible de la récupérer.
JJ
"xavier" a écrit dans le message de news:1b3b401c44fb7$6c891870$
pour éviter d'avoir le message de confirmation de fermeture
-----Message d'origine----- dit moi, comment fait tu pour fermer une feuille ?
isabelle
non quand je parle d'une feuille je parle d'une sheets dans le classeur
ici sheets("transfert conseiller)
-----Message d'origine-----
désolé mais je ne comprends pas bien la fonction que tu
m'a indiqué et où je renseigné la feuille à tester
lorsque tu écrit "feuille" veut tu dire un fichier "WorkBooks" ?
si c'est bien ça modidifie comme suit :
Sub Test() wb = InputBox("Entrer le nom du fichier à tester ( sans
l'extention
..xls)") On Error Resume Next Set fichier = Application.Windows("" & wb & ".xls") If fichier <> Empty Then fichier.Close Set fichier = Nothing End Sub
isabelle .
.
.
Hum et Pfffff
je voudrais pouvoir tester si une feuille est encore
ouverte dans le classeur afin de la fermer si c'est le cas
Alors applique le code de Sitting Hoax
Salutations
JJ
"xavier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1b15f01c44fbb$7fe37bf0$a301280a@phx.gbl...
je sais que je la supprime et c'est bien ce qui doit ce
passer
-----Message d'origine-----
Re..
ActiveWindow.SelectedSheets.Delete
Avec ce code, tu ne fermes pas une feuille, tu la
supprime, il te sera
impossible de la récupérer.
JJ
"xavier" <anonymous@discussions.microsoft.com> a écrit
dans le message de