arret code non voulu??!!??

Question

Bonjour,
du code du classeur A je veux ouvrir le classeur B. je test donc si il existe et si non je l'ouvre.

mais des qu'il est passé sur la commande d'ouverture et qu'il a ouvert le classeur B, il s'arrete . Cad que le prog ne continue pas.


voila mon code:


Dim classeur As Excel.Workbook
    Dim Appli As Excel.Application
 
    On Error Resume Next
    
    Set Appli = GetObject(, "Excel.Application")
    trouve = False
    For Each classeur In Appli.Workbooks
        If classeur.Name = "Excellio1_datastream.xls" Then
            trouve = True
            Exit For
        End If
    Next classeur


    If trouve = True Then
      'on ne fait rien
    Else  'sinon on ouvre le classeur
       Workbooks.Open ("" & chemin_price_it & "")
    End If
    
  msgbox "bonjour"


ben on arrive jamais a la msgbox, si quelqu'un a une idée

jmf0 · Answer

Salut
ta msgbox est peut-être derrière ...


Ferme le classeur, pour voir ...

us_30 · Answer

Bonjour,

Perso, je vais bien jusqu'à Msgbox...

Par contre, il y aurait beaucoup à dire sur le code... Déjà à la fin, il faut mieux un truc comme ceci :
If trouve = False Then Workbooks.Open (chemin_price_it & "\clas.xls")

Amicalement,
Us.

Arret code non voulu??!!??

2 réponses

Votre réponse

Discussions similaires