code de Macro automatique

[Loulou]

Bonjour le forum

J'ai un fichier 'toto' auquel j'ajoute le code si dessous pour aller dans le fichier Synthese.xls
Et faire fonctionner la macro 'sub LU' et refermer le fichier Synthese.xls, mais hélas cela ne fonctionne pas ??

Pourriez-vous regarder s'il vous plaît


chemin = 'http://.........................................................../Synthese.xls'
Workbooks.Open Filename:=chemin
Application.Run ''Synthese.xls'! sub LU'
Workbooks('Synthese.xls').Close


Merci pour votre aide

loulou

 

[WILFRIED]

Salut Loulou

Comment cela ne fonctionne pas, il ne t'ouvre pas le fichier?,il plante error 1004, pour moi ton chemin doit être du type C:\\....\\toto.xls.

A+ Wilfried

 

[lezabour]

Je sais pas trop ce qui ne fonctionne pas dans ton programme, mais voila comment j'ouvre un classeur a partir d'un autre, simplement pour lires les valeurs des cellules...


Set xl = CreateObject('Excel.Application')
xl.Application.ScreenUpdating = False
xl.DisplayAlerts = False
xl.Workbooks.Open chemin
xl.sheets(1).range....

 

[Loulou]

Salut

Le problème et d'activer la macro du deuxième classeur sur l'intranet donc http:// et non C:

Merci