Lien hypertexte vers une cellule d'un autre fichier excel

Question

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

Configuration: Windows 7 / Chrome 37.0.2062.120

WeaponEDGE · Answer

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

comapta · Answer

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+

Lien hypertexte vers une cellule d'un autre fichier excel

2 réponses

Discussions similaires

Newsletters