XL 2010 Lier un fichier Excel à un autre à l'aide de la même date

farid.abdeluahab

XLDnaute Nouveau
Bonjour à tous,

Dans mon fichier j'ai crée une liaison de valeur depuis un fichier vers un autre, le souci que je rencontre c'est que ce fichier change de nom "date de référence" tout les jours
et donc je dois modifier à chaque fois la date de référence pour que les valeurs correspondes.

Merci d'avance pour votre aide
 

job75

XLDnaute Barbatruc
Bonjour farid.abdeluahab, bienvenue sur XLD,
et donc je dois modifier à chaque fois la date de référence pour que les valeurs correspondes.
Vous ne pouvez pas y échapper puisque le nom du fichier source est modifié chaque jour.

La modification peut se faire par macro mais ce n'est guère intéressant puisque de toute façon vous aurez quand même une alerte pour la mise à jour du lien à l'ouverture.

A+
 

job75

XLDnaute Barbatruc
Si l'on utilise une macro le plus simple est de ne pas utiliser de formule de liaison dans la feuille.

Téléchargez les fichiers joints dans le même dossier (le bureau).

Voyez le fichier .xlsm et cette macro dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
Dim chemin$, fichier$, feuille$, formule$
chemin = Me.Path & "\" 'à adapter
fichier = Dir(chemin & "Rapport 2 " & Format(Date, "dd.mm.yyyy") & ".xlsx") 'à adapter
feuille = "Feuil1" 'nom de la feuille source à adapter
If fichier = "" Then MsgBox "Mettez à jour la date du fichier source...": Exit Sub
formule = "'" & chemin & "[" & fichier & "]" & feuille
With Feuil1 'CodeName à adapter
    .[C5] = ExecuteExcel4Macro(formule & "'!R5C3") 'C5 => R5C3 en notation R1C1
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub
S'il y a plusieurs cellules à copier ajoutez des lignes semblables dans le bloc With/End With.

A+
 

Pièces jointes

  • rapport 14.12.2020(1).xlsm
    17.2 KB · Affichages: 5
  • rapport 2 14.12.2020.xlsx
    8 KB · Affichages: 3

chris

XLDnaute Barbatruc
RE
Liaison.jpg

VB:
Private Sub Workbook_Open()
    ThisWorkbook.ChangeLink "ancienne adresse", "nouvelle adresse", xlExcelLinks
End Sub

Edit : il peut être utile de vérifier le lien avant, car les dates ne se suivent probablement pas
 
Dernière édition:

Discussions similaires

Réponses
4
Affichages
317
Réponses
11
Affichages
634

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal