Discussion :

[OursTortue]

Bonjour,

Je vous explique globalement ce que je fais. J'ai un USF qui permet de lire un fichier Excel (qu'on appellera E1) qui comprends un certain nombre de données. Pour lire correctement ce fichier, je fais appel à un autre fichier Excel (E2) qui va en gros fixer correctement les paramètres de filtrage.

Ce fichier E2 est un fichier généré par My report Builder pour extraire en gros un listing de notre ERP.

La procédure à suivre est :
- on rentre un code sur l'USF
- ce code est recherché dans E2, s'il est trouvé, on extraie des infos
- si le code n'est pas trouvé, on mets E2 à jour avec my report viewer et un add-in intégré Viewer5.xlam

Donc dans mon code :

Code :

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

1
2
3
4
 
With WBK
            Application.Run "Viewer5.xlam!CustomMAJV5", "workbook"
End With

Ca fonctionne très bien quand j'exécute l'USF depuis Excel.

Par contre, quand je l'exécute depuis un vbs, bah ça va chercher le fichier Viewer5.xlam dans "mes documents".

Du coup, j'ai copié collé pour voir et ça a fonctionné mais je n'arrive pas à trouver comment définir correctement le chemin d'accès de ce fichier

Je l'ai spécifié après le Application.Run, j'ai essayé d'ajouter le chemin des add-ins dans le vbs, j'ai essayé de le mettre directement dans mon code vba, rien ne semble marcher et j'ai du mal à trouver des infos sur le sujet.

A priori, il faut une syntaxe du style :

Code :

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

excel.AddIns.Add("C:\Program Files (x86)\PIPC\Excel\PITrendXL.xla").Installed = True

dans le vbs. Mais le problème est que le fichier que j'ouvre avec le VBS est le E1 et non pas le E2 sur lequel je veux activer ma MAJ. Bref, je suis plus sur de rien :o

En attendant, ça marche mais bon, c'est pas super propre.

Merci pour votre aide.

[OursTortue]

Bon, finalement je croyais que ça marchait mais en fait pas du tout :o

En fait, même quand le application.run se faisait, c'était mon premier workbook (E1) qui était MAJ par l'add-in viewer5.xlam.

J'ai essayé de mettre une macro dans le fichier E2 nommée MAJClasseur que j'appelle comme ça :

Code :

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

1
2
3
4
5
6
7
 
Application.Run WBK.Name & "!MAJClasseur"
 
avec Set WBK = XL.Workbooks.Open(chemin_listing_article)
ou
 
Application.Run "CheminComplet\fichier.xlsm!MAJClasseur"

Dans le premier cas, il cherche le fichier.xlsm dans mes documents alors qu'il n'est pas du tout à cet endroit

Dans le second cas, il me fait une erreur 1004 en me disant que la macro est pas accessible.

Comme dans cette macro, j'appelle viewer5.xlam qui est défini comme add-in, je me demande s'il y a pas conflit entre les deux workbooks ouvert.

Bref, je crois que ce que j'essaye de faire est impossible '

Des idées?

[Invité]

Code :

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

1
2
3
4
5
6
Sub test()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\RDurupt\Desktop\TestRun.xls")
Application.Run wb.Name & "!test"
wb.Close False
End Sub

[OursTortue]

Merci, ça a bien marché mais j'ai du mal à comprendre en quoi le fait de rajouter une couche supplémentaire Excel.application empêche la maj du bon fichier.

A la base j'avais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim XL As Excel.Application
Dim WBK As Excel.Workbook
 
Set XL = New Excel.Application
Set WBK = XL.Workbooks.Open(chemin_listing_article)
 
Application.Run WBK.Name & "!MAJClasseur"
 
WBK.Close
Set XL = nothing

Là ça va chercher dans mes documents le .xlsm

Avec ta solution, ça fonctionne en lançant le formulaire depuis excel. Si je le lance depuis le script, il faut changer un poil le truc.

En gros ça donne :

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
 
Dim XL As Excel.Application
Dim WBK As Excel.Workbook
 
Set XL = New Excel.Application
Set WBK = XL.Workbooks.Open(chemin_listing_article)
 
'Je récupère les données et je cherche un code en particulier'
 
WBK.Close
 
If (code_detected = False) then
        '==> Je mets à jour le classeur, si j'utilise WBK ici en enlevant le close avant, ça plante'
        Dim WBB As Workbook
        Set WBB = Workbooks.Open("adresse")
        Application.Run WBB.Name & "!MAJClasseur"
        WBB.Save
        WBB.Close False
 
'Je recharge ensuite le fichier en suivant exactement la même procédure qu'au départ avec XL.worbooks etc...
'Je recherche le code à nouveau puis je quitte tout

J'espère être assez compréhensible mais j'avoue avoir du mal à comprendre (alors que ça doit être simple )

[Invité]

quel est la valeur de chemin_listing_article?

[OursTortue]

C'est une adresse serveur de type \\serveur.loc\\data\travail\dossier1\dossier2\dossier3\fichier.xlsm

edit : maintenant que tu dis ça, j'ai effectivement mon adresse chemin_listing = \\serveur.loc\etc...

et l'autre directement avec une nomination Z:\

Je vais tester voir si ça vient de là. Pourtant avec toutes les autres fonctions j'utilise ce type d'adresses et ça va bien. J'ai pas vu de paramètres spécifiques pourtant pour workbooks.open

edit2 : j'ai testé en mettant directement chemin_listing_article et aussi l'adresse \\serveur.loc\ et les deux ont fonctionné.

La seule différence que je voie, c'est vraiment le New Excel.application en plus qui ne passe pas dès lors qu'on lance par le vbscript.