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
michdenis
Bonjour Florian,
dim Wk as workbook on error resume next Set wk = workbooks("Les statistiques.xls") if err<>0 then on error goto 0 msgbox "classeur fermé" else Msgbox "classeur ouvert" end if
Salutations!
"Florian" a écrit dans le message de news: Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
dim Wk as workbook
on error resume next
Set wk = workbooks("Les statistiques.xls")
if err<>0 then
on error goto 0
msgbox "classeur fermé"
else
Msgbox "classeur ouvert"
end if
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news: upAOAwiuFHA.3452@TK2MSFTNGP14.phx.gbl...
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est
déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
dim Wk as workbook on error resume next Set wk = workbooks("Les statistiques.xls") if err<>0 then on error goto 0 msgbox "classeur fermé" else Msgbox "classeur ouvert" end if
Salutations!
"Florian" a écrit dans le message de news: Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
C'est parfait ! Mais puis-je avoir la même mais inversée c'est à dire :
classeur ouvert else classeur fermé
Merci Flo riant
"michdenis" a écrit dans le message de news:
Bonjour Florian,
dim Wk as workbook on error resume next Set wk = workbooks("Les statistiques.xls") if err<>0 then on error goto 0 msgbox "classeur fermé" else Msgbox "classeur ouvert" end if
Salutations!
"Florian" a écrit dans le message de news:
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
C'est parfait ! Mais puis-je avoir la même mais inversée
c'est à dire :
classeur ouvert
else
classeur fermé
Merci
Flo riant
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eHVrr9iuFHA.2512@TK2MSFTNGP10.phx.gbl...
Bonjour Florian,
dim Wk as workbook
on error resume next
Set wk = workbooks("Les statistiques.xls")
if err<>0 then
on error goto 0
msgbox "classeur fermé"
else
Msgbox "classeur ouvert"
end if
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news:
upAOAwiuFHA.3452@TK2MSFTNGP14.phx.gbl...
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci
est
déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
C'est parfait ! Mais puis-je avoir la même mais inversée c'est à dire :
classeur ouvert else classeur fermé
Merci Flo riant
"michdenis" a écrit dans le message de news:
Bonjour Florian,
dim Wk as workbook on error resume next Set wk = workbooks("Les statistiques.xls") if err<>0 then on error goto 0 msgbox "classeur fermé" else Msgbox "classeur ouvert" end if
Salutations!
"Florian" a écrit dans le message de news:
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
'----------------------------- dim Wk as workbook On Error Resume Next Set wk = Workbooks("classeur15") If Err = 0 Then MsgBox "classeur ouvert" Else On Error GoTo 0 MsgBox "classeur fermé" End If '-----------------------------
Salutations!
"Florian" a écrit dans le message de news: C'est parfait ! Mais puis-je avoir la même mais inversée c'est à dire :
classeur ouvert else classeur fermé
Merci Flo riant
"michdenis" a écrit dans le message de news:
Bonjour Florian,
dim Wk as workbook on error resume next Set wk = workbooks("Les statistiques.xls") if err<>0 then on error goto 0 msgbox "classeur fermé" else Msgbox "classeur ouvert" end if
Salutations!
"Florian" a écrit dans le message de news:
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
'-----------------------------
dim Wk as workbook
On Error Resume Next
Set wk = Workbooks("classeur15")
If Err = 0 Then
MsgBox "classeur ouvert"
Else
On Error GoTo 0
MsgBox "classeur fermé"
End If
'-----------------------------
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news: usdvOLjuFHA.3012@TK2MSFTNGP10.phx.gbl...
C'est parfait ! Mais puis-je avoir la même mais inversée
c'est à dire :
classeur ouvert
else
classeur fermé
Merci
Flo riant
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eHVrr9iuFHA.2512@TK2MSFTNGP10.phx.gbl...
Bonjour Florian,
dim Wk as workbook
on error resume next
Set wk = workbooks("Les statistiques.xls")
if err<>0 then
on error goto 0
msgbox "classeur fermé"
else
Msgbox "classeur ouvert"
end if
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news:
upAOAwiuFHA.3452@TK2MSFTNGP14.phx.gbl...
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci
est
déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
'----------------------------- dim Wk as workbook On Error Resume Next Set wk = Workbooks("classeur15") If Err = 0 Then MsgBox "classeur ouvert" Else On Error GoTo 0 MsgBox "classeur fermé" End If '-----------------------------
Salutations!
"Florian" a écrit dans le message de news: C'est parfait ! Mais puis-je avoir la même mais inversée c'est à dire :
classeur ouvert else classeur fermé
Merci Flo riant
"michdenis" a écrit dans le message de news:
Bonjour Florian,
dim Wk as workbook on error resume next Set wk = workbooks("Les statistiques.xls") if err<>0 then on error goto 0 msgbox "classeur fermé" else Msgbox "classeur ouvert" end if
Salutations!
"Florian" a écrit dans le message de news:
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
'----------------------------- dim Wk as workbook On Error Resume Next Set wk = Workbooks("classeur15") If Err = 0 Then MsgBox "classeur ouvert" Else On Error GoTo 0 MsgBox "classeur fermé" End If '-----------------------------
Salutations!
"Florian" a écrit dans le message de news:
C'est parfait ! Mais puis-je avoir la même mais inversée c'est à dire :
classeur ouvert else classeur fermé
Merci Flo riant
"michdenis" a écrit dans le message de news:
Bonjour Florian,
dim Wk as workbook on error resume next Set wk = workbooks("Les statistiques.xls") if err<>0 then on error goto 0 msgbox "classeur fermé" else Msgbox "classeur ouvert" end if
Salutations!
"Florian" a écrit dans le message de news:
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23BJo9jkuFHA.1028@TK2MSFTNGP12.phx.gbl...
comme ceci :
'-----------------------------
dim Wk as workbook
On Error Resume Next
Set wk = Workbooks("classeur15")
If Err = 0 Then
MsgBox "classeur ouvert"
Else
On Error GoTo 0
MsgBox "classeur fermé"
End If
'-----------------------------
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news:
usdvOLjuFHA.3012@TK2MSFTNGP10.phx.gbl...
C'est parfait ! Mais puis-je avoir la même mais inversée
c'est à dire :
classeur ouvert
else
classeur fermé
Merci
Flo riant
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eHVrr9iuFHA.2512@TK2MSFTNGP10.phx.gbl...
Bonjour Florian,
dim Wk as workbook
on error resume next
Set wk = workbooks("Les statistiques.xls")
if err<>0 then
on error goto 0
msgbox "classeur fermé"
else
Msgbox "classeur ouvert"
end if
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news:
upAOAwiuFHA.3452@TK2MSFTNGP14.phx.gbl...
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci
est
déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
'----------------------------- dim Wk as workbook On Error Resume Next Set wk = Workbooks("classeur15") If Err = 0 Then MsgBox "classeur ouvert" Else On Error GoTo 0 MsgBox "classeur fermé" End If '-----------------------------
Salutations!
"Florian" a écrit dans le message de news:
C'est parfait ! Mais puis-je avoir la même mais inversée c'est à dire :
classeur ouvert else classeur fermé
Merci Flo riant
"michdenis" a écrit dans le message de news:
Bonjour Florian,
dim Wk as workbook on error resume next Set wk = workbooks("Les statistiques.xls") if err<>0 then on error goto 0 msgbox "classeur fermé" else Msgbox "classeur ouvert" end if
Salutations!
"Florian" a écrit dans le message de news:
Bonsoir
je souhaite lancer une procédure qui ouvre un classeur, mais si celui-ci est déjà ouvert, avoir un msgbox"déjà ouvert" exit sub
