Discussion :

[le_sonic]

Bonjour a tous,

Je voudrais ouvrir un fichier excel a partir de word en vba mais ca pas l'air de fonctionner (rien ne se passe)

Code :

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

1
2
3
4
5
6
 
 
    nom = Controls("TextBoxChemin")
    Set exl = CreateObject("excel.application")
 
    exl.Workbooks.Open (nom)

PS : dans le nom ya un string du style (C:\Develop\fichier.xls)


Merci d'avance

[le_sonic]

Personne ?

[SfJ5Rpw8]

rajoute

Code :

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

  exl.Visible = True

.. tu vera bien qu'excel est lancé...

[le_sonic]

Vi , merci j'ai foiré,je l'avai mis met dans les commentaires ...


Par contre connais tu comment avoir le nom du fichier excel en cour
car je lui dit :

Code :

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

1
2
3
 
exl.Workbooks.Open (nom)
If exl.Workbooks(nom).Sheets("TR").Cells(tab2, 4) <> "" Then

Et la ca plante, ce qui est normal puisque nom est un string du chemin du fichier et ce n'est pas le nom du fichier en cour ...

[SfJ5Rpw8]

tu dois pouvoir utiliser ActiveWorkBook :

[le_sonic]

Merci encroe a toi
tu es un roi

pour l'info j'ai mis

Code :

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

1
2
 
tablo = exl.ActiveWorkbook.Name