Discussion :

[deuche]

Bonjour,

J'ouvre, via macro, un fichier excel2003 se trouvant sur serveur, mais la fonction auto_open du fichier ouvert ne s'execute pas.

Je suis donc obligé de selectionner mon fichier et de faire les mise à jour via le code ci dessous.

Code :

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

1
2
3
4
5
6
7
8
9
10
If status = False Then
          Workbooks.Open Filename:= _
        "http://dmb.intpsa.com/document/304940.pc1fm"
       End If
 
 
    Workbooks("304940.pc1fm").Activate     
    Sheets("FON").Select
    Range("B1").Select 'B9
    Selection.QueryTable.Refresh BackgroundQuery:=False

Au pire, comment fait-on pour appeller une fonction qui se trouve dans un autre fichier ?

Code :

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

Workbooks("304940.pc1fm").call Auto_Open()

[JPierreM]

Bonjour,

Je crois que si on ouvre un classeur par macro la procédure Auto_Open ne s'exécute pas, il faut utiliser Workbook_Open.

JP

[deuche]

C'est effectivement comme cela que j'ouvre mon fichier.
Mais je fais comment pour appeller une fonction dans un autre fichier ?

[kiki29]

Salut, si cela peut t'aider voir Exécuter une macro dans un autre classeur - Application.run avec ou sans paramètre

[deuche]

Nickel, merci !

[ctac_]

Bonjour,

Il y a aussi ça :

Code :

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

Workbooks.Open("http://dmb.intpsa.com/document/304940.pc1fm").RunAutoMacros xlAutoOpen

Cordialement

ctac