VBA - liaisons

2 fichiers excel :

Fichier 1 : "ANNUAIRE" (avec numéro unique en colonne A)

Fichier 2 : "CR"

Le fichier 2 est complété 1 grâce au numéro unique.

(formule liaison Index/Equiv vers fichier 1 )

*****

Pour le moment, mon fichier "CR" fonctionne correctement.

A l'ouverture du fichier, message information "pour l'instant nous ne parvenons pas......mis à jour des liaisons...."

Quelle solution pour avoir un fichier en lien dynamique avec les cellules de référence sur fichier 1 ANNUAIRE

Le(s) fichier 2 "CR" affiche uniquement les valeur présentent dans le fichier 1.

Solution ??

• Code VBA qui ouvre virtuellement mon fichier 1 "ANNUAIRE" pour vérifier et mettre a jour les liaisons

• Code VBA qui permet la lecture et affichage des informations du fichier 1 sur fichier 2

Merci de vos aides ! .

Bonjour,

Après plusieur recheches, je ne trouve pas de solution à mettre en place pour l'affichage de mes liaison sans validation du fichier source.

Existe t-il un code VBA qui ouvre le classeur source "ANNUAIRE" via une macro ?

Merci par avance

Bonjour,

Je ne comprends pas tout.

Ton message de ce jour à 12:23

Rebonjour,

je vous remercie pour vos réponses,

je suis à la recherche d'un autre option que de passer par Power Pivot.

j'ai donc clôturer l’échange et ouvert cette nouvelle discutions.

J'ai lu des échanges avec la création d'un vba pour lecture du fichier source "ANNUAIRE" qui permet l'affichage des données dans un autre classeur.

Dans mon cas, l'affichage fonctionne mais uniquement classeur ANNUAIRE ouvert.

Je cherche la meme chose classeur fermé.

Il y a t-il un syntaxe particulière pour ma formule lire en classeur fermée ?

=RECHERCHEV($A23;'W:\Annuaire.xlsm'!Tab_Ent[#Tout];5;FAUX)

Ici, en A23 le numéro unique

Merci

RESOLU :

via VBA associé a un bouton sur feuille.

Ouvre et referme le fichier fermé. et met a jour les =recherchev du document.

SImple :

Sub OuvertureFermeture()
Set wk1 = ThisWorkbook
Set wk2 = Workbooks.Open("W:\0.xlsm")
wk1.ActiveSheet.Calculate
wk2.Close SaveChanges:=False
End Sub