Ouvrir fichier // Condition

[skun]

Bonjour,

j'utilise une macro "Macro1" qui ouvre un fichier Excel "Alpha" , et lance une macro "Rangement". Macro1 est lancée par un bouton (formulaire)
Cependant, j'aimerai rajouter au code actuel, une condition:

si le classeur "Alpha" est déjà ouvert, alors la "Macro1" ne peut pas se déclancher meme si l'utilisateur clique sur le bouton de lancement.

Voici le code actuel:

Sub Macro1()

Workbooks.Open "E:\Test\Alpha.xls"
Windows("Alpha.xls").Activate
Application.Run "Rangement"
Windows("Fueilledebase.xls").Activate
End Sub

je vous remercie d'avance


skun

 

[mromain]

Re : Ouvrir fichier // Condition

bonjour skun,

une solution pas très propre, mais qui devrai marcher :

Sub Macro1()
On Error Resume Next
Workbooks.Open "E:\Test\Alpha.xls"
Windows("Alpha.xls").Activate
Application.Run "Rangement"
Windows("Fueilledebase.xls").Activate
On Error GoTo 0
End Sub

a+

 

[skun]

Re : Ouvrir fichier // Condition

plop !

merci pour ta réponse !

alors j'ai essayé , mais ca lance quand meme l'ouverture du fichier, ca me dit qu'il est déjà ouvert mais ca lance la macro et donc ca bug :-(

merci quand meme !


skun

 

[mromain]

Re : Ouvrir fichier // Condition

re bonjour

un autre essai :

private Function ClasseurDejaOuvert(nomClasseur As String) As Boolean
ClasseurDejaOuvert = False
For Each wbk In Application.Workbooks
    If wbk.Name = nomClasseur Then ClasseurDejaOuvert = True
Next
End Function

Sub Macro1()
[B]If Not ClasseurDejaOuvert("Alpha.xls") Then [/B]Workbooks.Open "E:\Test\Alpha.xls"
Windows("Alpha.xls").Activate
Application.Run "Rangement"
Windows("Fueilledebase.xls").Activate
End Sub

a+

 

[skun]

Re : Ouvrir fichier // Condition

re,

aprés quelques testes, ca je n'arrive toujours pas à le faire marcher .. humm j'espère que l'erreur ne vient pas de moi

merci pour ton implication !


skun

 

[mromain]

Re : Ouvrir fichier // Condition

re,

c'est bizarre, chez moi les deux codes ont l'air de fonctionner...

j'vois pô...