VBA EXCEL

Question

Bonjour à tout le forum.


J'ai réaliser un programme sous VBA pour EXCEL. Mon programme fonctionne de la façon suivante :
lorsqu'on clique sur un bouton le programme un classeur "A" si le classeur actif n'est pas le classuer "A".
C'est maintenant que j'aurais besoins d'aide pour faire une autre condition qui serait la suivante :
   si aucun classeur n'est ouvert, ouvrir le classeur "A".


Merci d'avance pour votre aide

jrivet · Answer

Salut,
Regarde Application.WorkBooks.Open(....)
@+: Ju£i?n
Pensez: Réponse acceptée

cs_MPi · Answer

Ta question n'est pas très claire ni très bien écrite...

Si tu mets
Msgbox Windows.Count 
ça te donnera le nombre de classeurs ouverts

Si tu veux savoir si le classeur "A.xls" est déjà ouvert, tu peux boucler tous les classeurs chargés
    Dim fenetre As Window, Trouvé as Boolean
    
    For Each ws In Windows
        If fenetre.Caption = "A.xls" Then
            Trouvé = True
            Exit For
        End If
    Next
    
    If Not trouvé Then
        Workbooks.Open "C:\A.xls"
    End If

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_MPi · Answer

Oups...
Pas For each ws, mais
For Each Fenetre ...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

VBA EXCEL

3 réponses

Votre réponse

Discussions similaires