Appel d'une "Macro" ?

Version imprimable

28/03/2008, 13h04
Calimero06

Appel d'une "Macro" ?

Bonjour à tous,

Pour commencer, je souaite m'excuser par avance si je n'emploie pas les bons termes, je suis très autodidacte très hyper débutante.... :oops:

Je vous explique mon problème : Nous utilisions un logiciel de reporting appelé CPM édité par Outlooksoft. Ce logiciel a été racheté par SAP (Je vous le dit car je ne sais pas s'il y a un lien de cause à effet). Celui ayant comme base Excel, j'avais créé quelques fichiers en VBA Excel dont un qui ouvrait un fichier qui se trouvait sur le serveur en utilisant la commande :
Workbooks.Open Filename. Malheureusement, je ne sais pas pourquoi, ce code ne fonctionne plus, il semble que je n'ai plus accès à ces fichiers sur le serveur. Bref, j'en ai besoin, et il existe un moyen de les ouvrir en manuel. J'ai tenté en faisant bêtement "Record a new macro" puis en ouvrant le fichier pour voir : Rien, macro vide....
Je trouve donc une librairie des "Menu commands" et je tente d'appeler celui qui me concerne dans ma macro comme ça :
Application.Run(MNU_XXXX)
Idem, il ne se passe rien...
J'ai toujours la possibilité de mettre un message box demandant à l'utilisateur d'ouvrir de fichier mais ça serait très lourd pour l'utilisateur...
Est-ce que quelqu'un aurait une autre idée ?
Merci à tous et bonne journée !

tu procede bien ainsi?

Code:

1
2
3
4
5
6
7
8
9
10
11
 Set ExcelApp = New Excel.Application
 Set xldoc = ExcelApp.Workbooks.Open(ton chemin)
        With xldoc
           .Worksheets("Feuil1").Range("C3").Value = UserForm1.TextBox2.Value 'parexemple
 
        End With
        xldoc.Save
        xldoc.Close
        Set xldoc = Nothing
ExcelApp.Quit
    Set ExcelApp = Nothing

28/03/2008, 14h00
ouskel'n'or

Hello tomy, je doute que ce soit le problème ici.
@ Calimero,
Peux-tu enregistrer une macro en ouvrant le fichier en question ?
Ensuite tu nous montres le code, je suppose que, pour une macro, tu aies un problème de délai d'ouverture sur réseau. On arrangera ça ;)
A+
28/03/2008, 14h09
Calimero06
Désolée, croisement intempestif avec Ouskel'nor !

@Tomy7 :
Heu.... Non, pas du tout... Je ne comprend d'ailleurs pas pourquoi tu parles de UserForm... Le but est simplement d'ouvrir par macro un fichier excel sur un serveur distant. Avant, je pouvais l'ouvrir en indiquant le chemin complet avec la commande Workbooks.open Filename :=.....

Voici mon code avant :
Code:

1 2 3 Sita = Cells(8, 2).Value Workbooks.Open Filename:="HTTP://XXX.XXXX.COM/XXXXX/FINANCE/Team Files/" & Sita & "/DataManager/ConversionFiles/account.xls"
Cette commande ne fonctionne plus ( message d'erreur Runtime error "1004" : Microsoft Excel cannot access the file).
Par contre, dans ce logiciel de reporting il existe une "commande" pour ouvrir le-dit fichier. C'est cette "commande" que je n'arrive pas à lancer. Pour info, je crois que cette commande est une xla puisqu'on y accède aussi par des menus supplémentaires à excel.

@Ouskel'nor :
Non, pas du tout, j'ai essayé mais la macro est vide... Je suppose qu'ils ont du rajouter des sécurités mais c'est bizare puisque l'accès à ce fichier n'est pas du tout protégé (on y accède par le menu xla (cf ci-dessus) et également par un "Menu Command"). En plus, tout est en anglais, ça simplifie pas forcemment mes choses. :lol:
28/03/2008, 14h30
ouskel'n'or
Pour accéder à internet, tu dois déjà créer l'objet appli de l'explorer.
Teste ça
Code:

1 2 3 4 5 6 Sub test() Dim IE As Object Set IE = CreateObject("internetExplorer.Application") IE.navigate "http://www.developpez.net/forums/showthread.php?t=517054" IE.Visible = True End Sub
Ensuite, faut voir s'il faut ajouter le noms du fichier et comment... et là je pars à la découverte ;)
A+
28/03/2008, 15h05
Calimero06

Hey, génial ton truc :yaisse2: je le garde pour une prochaine, on sait jamais ! ;)

Bon, plus sérieusement, ça marche avec l'adresse internet du forum (of course) mais pas avec l'adresse du serveur...
Mais, question subsidiaire, peut-on accéder à un serveur distant aussi facilement en passant par IE ??

Sinon, pour info, avant, pour acceder à ce fichier je pouvais passer par le navigateur windows en allant dans "My Network Places", là, il y avait le serveur distant et je pouvais récuperer tout ce dont j'avais besoin. Je n'ai plus cet accès... C'est ce qui me fait dire qu'ils ont du mettre des sécurités partout !