aubelix
XLDnaute Impliqué
Bonjour à tous les amis du Forum.
Je reviens une fois de plus vers vous pour vous soumettre mon problème.
J'ai glané sur le Forum ce code pour vérifier si le classeur
"Gestion_Adhérents.xls" est ouvert ou non.
En fonction de son état, je lancez la macro ci-dessous.
Mais je n'arrive pas à lancer l'Userform si le classeur est déjà ouvert.
Où est l'erreur ?
Par avance, merci pour votre aide.
Cordialement.
Sub Extractions()
'Ouverture si pas Ouvert
' activer le fichier ==> sinon l'ouvrir
Workbooks("Gestion_Adhérents.xls").Activate
If Err <> 0 Then
On Error GoTo 0
Workbooks.Open Filename:="C:\Users\PERSO\Documents\Gestion_Adhérents.xls"
If Err <> 0 Then
MsgBox "Le fichier ""Gestion_Adhérents.xls"" est introuvable"
End If
End If
'ici la macro se bloque si le classeur est ouvert et l'userform ne se lance pas
UserForm1.Show
End Sub
Je reviens une fois de plus vers vous pour vous soumettre mon problème.
J'ai glané sur le Forum ce code pour vérifier si le classeur
"Gestion_Adhérents.xls" est ouvert ou non.
En fonction de son état, je lancez la macro ci-dessous.
Mais je n'arrive pas à lancer l'Userform si le classeur est déjà ouvert.
Où est l'erreur ?
Par avance, merci pour votre aide.
Cordialement.
Sub Extractions()
'Ouverture si pas Ouvert
' activer le fichier ==> sinon l'ouvrir
Workbooks("Gestion_Adhérents.xls").Activate
If Err <> 0 Then
On Error GoTo 0
Workbooks.Open Filename:="C:\Users\PERSO\Documents\Gestion_Adhérents.xls"
If Err <> 0 Then
MsgBox "Le fichier ""Gestion_Adhérents.xls"" est introuvable"
End If
End If
'ici la macro se bloque si le classeur est ouvert et l'userform ne se lance pas
UserForm1.Show
End Sub