Discussion :

[romrai]

Salut,

j'ai un petit problème, je ne comprend pas pourquoi cette uinstruction ne marche pas?

Code :

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

Set XlBook = Xlapp.Workbooks.Open & Chemin_Zins

chemin_zins contient le chemin du fichier à ouvrir.

[pgz]

Bonjour,

si XlApp représente bien l'application Word ouverte, tu peus essayer :

Code :

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

1
2
 
<div style="text-align: left;">Set XlBook = Xlapp.Workbooks.Open  Chemin_Zins</div>

Si ça ne marche toujours pas, tu devras montrer tout le code qui précède, relatif à l'automation de Word.

Bon courage,

pgz

[romrai]

Merci,

ça ne marche pas

Désolé de n'avoir pas été précise. en fait il s'agit de l'ouverture d'un fichier excel. voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set Xlapp = CreateObject("Excel.Application")
Set cherche_zins = Application.FileSearch
With cherche_zins
 
    .LookIn = "P:\Chemin\Fichier"
    .Filename = ".xls"
    .Execute
 
End With
Chemin_Zins = cherche_zins.FoundFiles(1)
Set XlBook = Xlapp.Workbooks.Open & Chemin_Zins
Set XlSheet = XlBook.WorkSheets(1)

Merci

[pgz]

Re,

As-tu fais l'essai que je te proposais, sans le '&'?

pgz

[romrai]

oui ça ne marche pas

[pgz]

Re, Re,

Tu pourrais vérifier que tu as bien des fichiers trouvés. Par exemple avec ce genre de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set cherche_zins = Application.FileSearch
With cherche_zins
    .LookIn = "P:\Chemin\Fichier"
    .Filename = ".xls"
    If .Execute > 0 Then
        GoTo lblSuite
    Else
        MsgBox "aucun fichier trouvé ."
    End If
        chemin_zins = cherche_zins.FoundFiles(1)
        Set XlBook = GetObject(chemin_zins)
End With
 
chemin_zins = cherche_zins.FoundFiles(1)
Set XlBook = GetObject(chemin_zins)
Set XlApp = XlBook.Application
Set XlSheet = XlBook.Worksheets(1)
'...

Sinon, j'ai compris que ça ne marchait pas. Soit. Mais tu as un mesage d'erreur?

A+
pgz

[Arkham46]

bjr,

ça ne marche pas

c'est pas très précis

Set XlBook = Xlapp.Workbooks.Open & Chemin_Zins

Pourquoi ne pas chercher la syntaxe dans la FAQ?
Il y a des exemples d'ouverture de classeur.

[LedZeppII]

Bonjour,
si je ne me trompes pas, pour qu'une fonction ou une méthode renvoie une valeur ou un objet il faut utiliser la syntaxe avec parenthèses.

Code :

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

Set XlBook = Xlapp.Workbooks.Open(Chemin_Zins)

Bon courage.

[Tofalu]

C'est quoi le but de ce code ? Ouvrir simplement un fichier Excel ? Si oui, pourquoi utiliser automation alors que ShellExecute serait beaucoup plus rapide et simple ? Cf la FAQ

[romrai]

Merci pour vos réponses.

Le but du code est le suivant: j'ai un repertoire dans lequel vient se rajouter un fichier à une fréquence déterminée. jne connais pas d'avance le nom du fichier; donc ce que je fais, c récupérer le nom du fichier et l'ouvrir. J'avais déjà une procédure qui marchait bien mais trop longue, c'était la suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Set Xlapp = CreateObject("Excel.Application")
Set cherche_zins = Application.FileSearch
With cherche_zins
 
    .LookIn = "P:\ROMARIQUE1\ZinstalNF"
    .Filename = ".xls"
    .Execute
 
End With
Chemin_Zins = cherche_zins.FoundFiles(1)
Do
 
   Posit_Zins = InStr(1, Chemin_Zins, "\")
   Chemin_Zins = Right(Chemin_Zins, Len(Chemin_Zins) - Posit_Zins)
 
Loop Until Posit_Zins = 0
 
Fichier_Zins = Chemin_Zins
 
'Initialisation des variables objets
Set XlBook = Xlapp.Workbooks.Open("P:\ROMARIQUE1\ZinstalNF\" & Fichier_Zins)
Set XlSheet = XlBook.Worksheets(1)

Sinon LedZeppII ta méthode marche très bien et ça me satisfait, à savoir:

Code :

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

Set XlBook = Xlapp.Workbooks.Open(Chemin_Zins)

Je vous remercie encore pour vos aides