Discussion :

[xosa384]

Bonjour,

J'ai créé un prog vb.net qui ouvre un fichier excel et execute une macro de celui ci.

Dans cette macro j'ouvre un autre fichier à l'aide de workbooks.open mais rien ne ce passe (le reste de la macro fonctionne mais le fichier ne s'ouvre pas)

en VB.net ma commande est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MyXls.application.run("main_v6.xls!ExecuteFor1File(""" + Mon_rep + """,""" + Mon_fic + """,""" + SenderId + """)")

en excel (office XP) la ligne qui ne fonctionne pas est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Workbooks.Open FileName:=Mon_Fic
 
    MsgBox ("Erreur : " + Error(Err) + ":" + CStr(Err))
    For Each myworkbook In Workbooks
        MsgBox (myworkbook.Name)
    Next myworkbook

je precise que la macro ouvre le fichier demandé quend elle est lancé d'excel directement (via un bouton par exemple) et qu'il n'affiche pas d'erreur

merci
Dominique

[ouskel'n'or]

Et si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each LeClasseur In Application.Workbooks

A+

Edit
Epis comme je suis gentil, je te mets tout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    For Each LeClasseur In Application.Workbooks
         i = i + 1
         NomClasseur = LeClasseur.Name
         'ou
         NomClasseur = Workbooks(i).name 'pas essayé mais...
    Next