OVH Cloud OVH Cloud

Vérifier si un classeur est déjà ouvert

3 réponses
Avatar
Florian
Bonsoir
Je souhaite dire enVBA
si ce classeur est déjà ouvert, le laisser ouvert :
ceci afin de ne pas avoir l'alerte qui me dit qu'un classeur est déjà ouvert
Merci
Flo riant

Workbooks.Open Application.DefaultFilePath & "\Questions\" & "Les
statistiques.xls"

3 réponses

Avatar
anonymousA
bonjour,

un truc classique

on error resume next
set wbk=workbooks("Les statistiques.xls")
if wbk is nothing then msgbox "fichier pas ouvert"
on error goto 0

On peut en faire une fonction bien sur.

A+

Bonsoir
Je souhaite dire enVBA
si ce classeur est déjà ouvert, le laisser ouvert :
ceci afin de ne pas avoir l'alerte qui me dit qu'un classeur est déjà ouvert
Merci
Flo riant

Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"




Avatar
Florian
Bonsoir AnonymousA
Je te remercie pour ta célérité !
Mais je ne comprends pas bien si je veux par exemple par un bouton l'ouvrir,
et si il est déjà ouvert ne pas avoir ce message, mais le laisser ouvert
pour les manip à suivre.
Merci encore
Flo riant

Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"


"anonymousA" a écrit dans le message de news:
4327160e$0$5366$
bonjour,

un truc classique

on error resume next
set wbk=workbooks("Les statistiques.xls")
if wbk is nothing then msgbox "fichier pas ouvert"
on error goto 0

On peut en faire une fonction bien sur.

A+

Bonsoir
Je souhaite dire enVBA
si ce classeur est déjà ouvert, le laisser ouvert :
ceci afin de ne pas avoir l'alerte qui me dit qu'un classeur est déjà
ouvert
Merci
Flo riant

Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"





Avatar
anonymousA
on error resume next
set wbk=workbooks("Les statistiques.xls")
if wbk is nothing then Workbooks.Open Application.DefaultFilePath &
"Questions" & "Les statistiques.xls"
on error goto 0

A+

Bonsoir AnonymousA
Je te remercie pour ta célérité !
Mais je ne comprends pas bien si je veux par exemple par un bouton l'ouvrir,
et si il est déjà ouvert ne pas avoir ce message, mais le laisser ouvert
pour les manip à suivre.
Merci encore
Flo riant

Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"


"anonymousA" a écrit dans le message de news:
4327160e$0$5366$

bonjour,

un truc classique

on error resume next
set wbk=workbooks("Les statistiques.xls")
if wbk is nothing then msgbox "fichier pas ouvert"
on error goto 0

On peut en faire une fonction bien sur.

A+


Bonsoir
Je souhaite dire enVBA
si ce classeur est déjà ouvert, le laisser ouvert :
ceci afin de ne pas avoir l'alerte qui me dit qu'un classeur est déjà
ouvert
Merci
Flo riant

Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"