Mise à jour liaison de fichier

[melodyyy]

Voila j'ai une liaison de 2 fichiers, dont un sur intranet..
Seulement voila, quand on ouvre le fichier sur le disque dur, excel demande si la mise à jour doit etre faite...si on clique oui, il ne se passe rien !!!
En revanche si j'installe un bouton, avec une macro derrière qui lance bien la mise à jour, il le fait sans probleme...

Seulement le bouton est provisoire, et je voudrais que quand je clique sur oui pour la mise à jour il se passe ce qu'il doit se passser

Pour infos voici mon code pour ceux qui connaisse pas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
#'Copie des jours prestables'
Dim fich As Workbook
Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")
Workbooks("111045363.pc1fm").Activate
Sheets("Référentiel").Select
Range("A57:S57").Select
Selection.Copy
Workbooks("Synthese_type_01.xls").Activate
Range("FU3:GU3").Select
ActiveSheet.Paste
Workbooks("111045363.pc1fm").Close
End Sub
#

[ouskel'n'or]

Tu as essayé "Application.Calculate" à l'ouverture du fichier ?
Vraiment à tout hasard

[melodyyy]

ah nan je connaissais pas
je progresse mais je débute hein
bon j'essai...

[melodyyy]

ça marche pas
ça a rien changé du tout.....

[AlainTech]

Ca ne répond pas à ta question mais...
A quoi te sert

Code :

1
2
Dim fich As Workbook
Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")

si tu n'utilises pas fich par la suite???
Voici un exemple de ce que tu pourrais en faire:

Code :

1
2
3
4
5
6
7
'Copie des jours prestables'
Dim fich As Workbook
Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")
fich.Sheets("Référentiel").Range("A57:S57").Copy
Workbooks("Synthese_type_01.xls").Range("FU3:GU3").Paste
fich.Close
End Sub

[melodyyy]

ah oui ok
en fait je vais chercher un fichier sur intranet...je l'ouvre et le referme donc forcément...

mais ok mais vi ça répond pas à ma question

[melodyyy]

De plus pour l'avant dernière ligne (avec la copie de la ligne) VBA me dit que l'objet ne s'occupe pas de ça
j'ai pu les termes exact de chez lui mais c'est ça

[ouskel'n'or]

L'avant dernière ligne ?

Workbooks("Synthese_type_01.xls").Range("FU3:GU3").Paste

Tu indiques le classeur mais pas la feuille. Ça lui manque beaucoup