Discussion :

[Calimero06]

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....

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 !

[tomy7]

tu procede bien ainsi?

Code :

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

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

[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+

[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 :

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

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.

[ouskel'n'or]

Pour accéder à internet, tu dois déjà créer l'objet appli de l'explorer.
Teste ça

Code :

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

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+

[Calimero06]

Hey, génial ton truc 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 !