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()