Lien hypertexte vers une cellule d'un autre fichier excel
Fermé
comapta
-
24 sept. 2014 à 11:58
WeaponEDGE Messages postés 113 Date d'inscription vendredi 18 juillet 2014 Statut Membre Dernière intervention 21 novembre 2014 - 25 sept. 2014 à 11:59
WeaponEDGE Messages postés 113 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
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
A voir également:
- Excel lien dynamique vers un autre fichier
- Tableau croisé dynamique - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Créer un lien pour partager des photos - Guide
2 réponses
WeaponEDGE
Messages postés
113
Date d'inscription
vendredi 18 juillet 2014
Statut
Membre
Dernière intervention
21 novembre 2014
9
24 sept. 2014 à 14:02
24 sept. 2014 à 14:02
bonjour,
Essayes ce code :
Penses à bien compléter les infos demandé au début du code
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