Mise à jour de liaisons excel

Résolu/Fermé
sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 15 juil. 2010 à 10:28
sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 20 juil. 2010 à 15:08
Bonjour à tous,

J'ai un fichier excel A comportant certaines liaisons avec d'autres fichiers excel (B,C,D...).

Aujourd'hui, lorsque j'ouvre le fichier excel A, si je veux mettre à jour ces liaisons, je dois obligatoirement ouvrir les fichiers correspondants (B,C,D...).

Existe-t-il un moyen d'ouvrir le fichier A et de mettre à jour les liaisons sans avoir à ouvrir les autres fichiers excel?

Merci d'avance pour votre réponse.

Sanchis 81
A voir également:

5 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
15 juil. 2010 à 11:17
Bonjour,

Oui, mais cela demande d'analyser les données à importer: emplacement et structures identiques ou non des fichiers,nombre de cellules à importer, dispositions dans chaque fichier etc...

en fonction de ca voir si ca ne vaut le coup ou pas...

un petit exemple si tu as peu de cellules à importer, mais...

Sub lire_ferme()

Dim chemin As String

chemin = ThisWorkbook.Path
Range("A3") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R1C1")
Range("B4") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R2C2")
Range("C8") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R5C3")
Range("E9") = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R7C4")
End Sub


demo:
http://www.cijoint.fr/cjlink.php?file=cj201007/cijxHgm8Pw.zip
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
15 juil. 2010 à 11:24
Re,

Un autre exemple avec des valeurs de base de données dans les fichiers sources
http://www.cijoint.fr/cjlink.php?file=cj201007/cijUI0EUd1.zip
0