Discussion :

[philippe34130]

Bonjour a tous,

Je souhaite faire une liaison d'une cellule sur une cellule d'un fichier dont le nom est une date.
Mais liaison doit aller prendre la date dans la ligne 1 de la base.

difficile à expliquer
Ci-joint le fichier de la base et les fichiers date
Merci à tous de votre aide

base.xls
01-janv-15.xls
02-janv-15.xls
03-janv-15.xls
04-janv-15.xls

[Orhleil]

Bonjour,

Effectivement c'est pas limpide au premier abord, mais avec tes fichiers je pense avoir saisi ce que tu souhaitais.
J'ai fait quelques suppositions pour mon code :

• tes fichiers externes de dates avec les valeurs sont tous au format XLS (et pas XLSX ou XLSM par exemple)
• ton fichier base et tes fichiers dates ne comportent qu'une seule feuille
• les dates de la première ligne du fichier base commencent bien à la première colonne
• les dates de la première ligne du fichier base sont bien formattées (le texte qui apparait dans chaque cellule correspond exactement au nom des fichiers de dates)
• la valeur trouvée doit toujours être écrite dans la case juste en dessous de la date dans le fichier base
• le fichier base et les fichiers dates sont tous dans le même dossier

Mon code ouvre les fichiers de dates en mode invisible (et les referme). Si jamais un fichier n'est pas trouvé, on passe à la date suivante. Si jamais on tombe sur une case vide dans la première ligne de ton fichier base, on arrête la recherche.

Voilà le code, désolé il est pas commenté, n'hésite pas à demander si tu as des questions. Sinon, n'oublie pas de marquer le sujet comme Résolu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub liaison()
    Dim classeurDate As Workbook, classeurCourant As Workbook, cellule As Range, nomFichier As String, applicationInvisible As New Excel.Application
 
    Application.ScreenUpdating = False
 
    applicationInvisible.Visible = False
 
    Set classeurCourant = ActiveWorkbook
 
    For Each cellule In classeurCourant.Worksheets(1).Rows(1).Cells()
 
        If cellule.Value = vbNullString Then Exit For
 
        nomFichier = classeurCourant.Path & "\" & cellule.Text & ".xls"
 
        If Dir(nomFichier) <> vbNullString Then
            Set classeurDate = applicationInvisible.Workbooks.Add(nomFichier)
            cellule.Offset(1, 0).Value = classeurDate.Worksheets(1).Range("A1").Value
            classeurDate.Close SaveChanges:=False
        End If
 
    Next cellule
 
    applicationInvisible.Quit
    Set applicationInvisible = Nothing
 
    Application.ScreenUpdating = True
End Sub

Le code est à placer dans le fichier base et à appeler depuis ce même fichier comme tu le souhaites.

[philippe34130]

Bonjour et merci de ta réponse

Le problème est que j'ai un fichier(date) d'importation par jour avec 200 lignes de données sur trois colonnes qui sont importées dans le fichier base par des liaisons avec une feuille par mois. Je dois créer les liaisons tous les mois, je te laisses calculer combien ça en fait sur l'année.
Je souhaite que les liaisons de la base prennent la date en tête de colonne de chaque jour afin d'aller chercher les données correspondantes

Je sais c'est très ardu

Merci de ton aide

[Orhleil]

Ça se complexifie là ton truc. J'ai un peu de mal à imaginer le rendu attendu. Est-ce que tu aurais d'une part un fichier date typique à donner en exemple pour me faire une meilleure idée ? Et d'autre part as-tu un bout de code que tu aurais essayé de faire fonctionner en vain ? Ça m'aiderait et me donnerait un point de départ pour t'aider.

[philippe34130]

Ci-joint un bout du fichier base et date, tu comprendras en les ouvrant. Dans le fichier original de base il y a 12 mois de données et donc 365 fichiers date.
Je sais c'est très compliqué c'est pour ça que je demande de l'aide et 2015 arrive bientôt et je ne veux plus créer mes liaisons mois après mois mais utiliser la date en tête de colonne dans la liaison de chaque cellule de cette manière je n'aurai plus besoin de créer mes liaisons, juste changer les dates

Merci encore de ton aide

base2.xls
01-09-14.xls
02-09-14.xls

[Philippe Tulliez]

Bonjour,
Je ne télécharge pas les classeurs lors de début d'une discussion.
Sans explications complémentaires comme par exemple comment sont construits les noms des classeurs avec lesquels il doit avoir une liaison.
Cette liaison sert-elle à ouvrir le fichier (alors je te conseille la fonction LIEN_HYPERTEXTE ou bien à lire des valeurs dans des cellules ?

[philippe34130]

Merci de ta réponse .

Dans mon fichier base chaque colonne est un jour et en tête de colonne une date
Chaque cellule de la colonne a une liaison faisant reference a un fichier date de type : '='G:\ESSAI\[02-janv-15.xls]Feuil1'!$A$1'
Ce que je souhaite c'est que à la place du 02-janv-15 mettre une formule pour prendre la date en tête de colonne
de façon à ne pas être obliger de refaire mes liaisons mais juste changer la date en tête de colonne
Aujourd'hui j'ai plus 200 liaisons par jour x 365jours

Merci de vos aides !!


Les fichiers d'exemples

http://cjoint.com/?0KrrGzN19io
http://cjoint.com/?0KrrHzzj6mK
http://cjoint.com/?0KrrIprhHvS

[Philippe Tulliez]

Bonjour,
Pour construire une chaîne de caractères telle que décrite (ex =c:\[date.xls]Feuil1!A1) la concaténation avec par exemple son opérateur (&) ainsi que la fonction TEXTE est une solution.

[philippe34130]

Bonjour

ça ne fonctionne pas les fichiers fermés
J'ai essayé aussi avec la fonction INDIRECT et INDIRECT.EXT c'est pareil
pas de solutions !