BASSDINGUE
XLDnaute Occasionnel
bonsoir le forum
actuellement je fais cette recherche dans le meme fichier que mon application
mais comme la feuille des codes postaux avec les villes est tres lourd (+ de 3mg)
je voudrais la delocaliser dans un autre dossier appeler "annexes" dans lequel ce trouverait ce fichier que j'appelerai "insee"
mais la je bloque j'ai essayer different truc qui n'ont pas marché exemple en rouge dans le code
sFichier = ThisWorkbook.Path & "\annexes\insee.xls\"
cherche = TB5.Value
L = sfichier.Sheets("T_INSEE").Range("B39000").End(xlUp).Row
Set Maplage = Sheets("T_INSEE").Range("B2:B" & L)
With Maplage
Set C = .Find(cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
une idée??
merci
actuellement je fais cette recherche dans le meme fichier que mon application
mais comme la feuille des codes postaux avec les villes est tres lourd (+ de 3mg)
je voudrais la delocaliser dans un autre dossier appeler "annexes" dans lequel ce trouverait ce fichier que j'appelerai "insee"
mais la je bloque j'ai essayer different truc qui n'ont pas marché exemple en rouge dans le code
sFichier = ThisWorkbook.Path & "\annexes\insee.xls\"
cherche = TB5.Value
L = sfichier.Sheets("T_INSEE").Range("B39000").End(xlUp).Row
Set Maplage = Sheets("T_INSEE").Range("B2:B" & L)
With Maplage
Set C = .Find(cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
une idée??
merci