Lien hypertexte vers une cellule d'un autre fichier excel
comapta
-
WeaponEDGE Messages postés 114 Statut Membre -
WeaponEDGE Messages postés 114 Statut Membre -
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
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
2 réponses
-
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
