Lien hypertexte vers une cellule d'un autre fichier excel [Fermé]

- - Dernière réponse : WeaponEDGE
Messages postés
115
Date d'inscription
vendredi 18 juillet 2014
Statut
Membre
Dernière intervention
21 novembre 2014
- 25 sept. 2014 à 11:59
Bonjour,

J' ai besoin d'aide en matière de programmation VBA pour Excel.
J'ai 2 fichiers qui contiennent des informations avec un champs identique dans les deux fichiers (ID).
Ce que je cherche à faire c'est de créer avec VBA un lien hypertexte depuis la cellule contenant le ID du premier fichier vers la cellule du 2ème fichier qui contient le même ID par Exemple (ID 1 du fichier X vers ID 1 du fichier Y)

Un grand merci d'avance pour l'aide

Afficher la suite 

2 réponses

Messages postés
115
Date d'inscription
vendredi 18 juillet 2014
Statut
Membre
Dernière intervention
21 novembre 2014
7
0
Merci
bonjour,

Essayes ce code :
Penses à bien compléter les infos demandé au début du code

Sub Macro5()
TBL_ALPHA = Array("0", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ")
AdresseA = "C:\REPERTOIRES\Fichier_A.xls" 'Indiquer l'adresse + nom du fichier A
AdresseB = "C:\REPERTOIRES\Fichier_B.xls" 'Indiquer l'adresse + nom du fichier B
Nom_FichierA = "" 'Indiquer le nom entre les guillemets
Nom_FichierB = "" 'Indiquer le nom entre les guillemets
ShtA = "" 'Indiquer le nom entre les guillemets
ShtB = "" 'Indiquer le nom entre les guillemets
Lig_DepartA = "" 'Indiquer le numéro de la ligne dans le fichier A (SUPPRIMER LES GUILLEMETS)
Lig_DepartB = "" 'Indiquer le numéro de la ligne dans le fichier B (SUPPRIMER LES GUILLEMETS)
Col_A = 1 'Indiquer le numéro de la colonne dans le fichier A (par défaut 1 soit la colonne A)
Col_B = 1 'Indiquer le numéro de la colonne dans le fichier B (par défaut 1 soit la colonne A)

Nb_LigA = Workbook(Nom_FichierA).Sheets(ShtA).Cells(Rows.Count, Col_A).End(xlUp).Row
Nb_LigB = Workbook(Nom_FichierB).Sheets(ShtB).Cells(Rows.Count, Col_B).End(xlUp).Row

For i = Lig_DepartA To Nb_LigA
ID_FichierA = Workbook(Nom_FichierA).Sheets(ShtA).Cells(i, Col_A)

For u = Lig_DepartB To Nb_LigB
ID_FichierB = Workbook(Nom_FichierB).Sheets(ShtB).Cells(u, Col_B)

If ID_FichierA = ID_FichierB Then
'creation du lien dans le fichier A
Range("A1").Hyperlinks.Add Anchor:=Selection, Address:=AdresseB, SubAddress:=ShtB & "!" & TBL_ALPHA(u) & u
'creation du lien dans le fichier B
Range("A1").Hyperlinks.Add Anchor:=Selection, Address:=AdresseA, SubAddress:=ShtA & "!" & TBL_ALPHA(i) & i
End If
Next u
Next i

Range(TBL_ALPHA(i) & i).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=ShtB & "!" & "A1"
End Sub
Messages postés
2
Date d'inscription
mercredi 24 septembre 2014
Statut
Membre
Dernière intervention
25 septembre 2014
0
Merci
Bonjour, WeaponEDGE



Merci beaucoup pour ton aide
mais mon client à changer son opinion et il veut que le lien soit dans le même fichier excel, donc il m'a demandé de faire autrement; Exemple (ID 1 de la feuille X vers ID 1 du de la feuille Y dans le même fichier Excel)
si par exemple je prend votre code et je l'adapte à mon sujet est ce qu'il va marcher?
et comment faire pour ne pas répéter le code pour 150 enregistrement
merci 1000 fois
a+
WeaponEDGE
Messages postés
115
Date d'inscription
vendredi 18 juillet 2014
Statut
Membre
Dernière intervention
21 novembre 2014
7 -
Bonjours,

Supprimes tous les Workbook(Nom_FichierA). et Workbook(Nom_FichierB).. ça devrait fonctionner.