Recherche un code postale dans un autre fichier

[BASSDINGUE]

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

 

[Staple1600]

Re : Recherche un code postale dans un autre fichier

Bonsoir

Et comme cela ?

sFichier = ThisWorkbook.Path & "\annexes\insee.xls"

 

[BASSDINGUE]

Re : Recherche un code postale dans un autre fichier

bonsoir staple1600,

pareil
il ne veut pas

 

[Staple1600]

Re : Recherche un code postale dans un autre fichier

Re

Que te renvoie cette macro ?

Sub PifPaf()
MsgBox ThisWorkBook.Path
End sub

 

[BASSDINGUE]

Re : Recherche un code postale dans un autre fichier

il me mets : "erreur de compilation ; qualificateur incorrect sur sfichier

 

[Staple1600]

Re : Recherche un code postale dans un autre fichier

RE


Il faut mettre le reste de ton code en commentaires

puis lancer la macro : PifPaf


Cela doit te renvoyer le chemin ou est enregistré le classeur actif.

 

[BASSDINGUE]

Re : Recherche un code postale dans un autre fichier

le chemin est bon
une autre idée ?

 

[Staple1600]

Re : Recherche un code postale dans un autre fichier

Re


Je te demande pas s'il est bon ou pas

Je te demande ce que la msgbox affiche exactement.

Merci de me l'indiquer.

 

[BASSDINGUE]

Re : Recherche un code postale dans un autre fichier

merci pour ton aide staple mais j'ai un souci avec des dll il n'y a plus rien qui marche
j'essaye de remettre l'application en route et je reviendrai a la charge
bonnne soiiree
et merci

 

[BASSDINGUE]

Re : Recherche un code postale dans un autre fichier

Bonjour staple

pour le chemin j'ai

c:\Program files\Microsoft office\office12

ce qui ne correspond pas du tout en fait

 

[BASSDINGUE]

Re : Recherche un code postale dans un autre fichier

un petit up
pour ceux qui serait en mesure de me donner une solution
merci

 

[BASSDINGUE]

Re : Recherche un code postale dans un autre fichier

j'ai deliré , le chemin que j'ai donner est pour l'application

le chemin pour le fichier est:
c:\propiétaire\mes documents\dossier partage\sylex
et il est bon

celui dans lequel je souhaite faire ma recherche ce trouve dans:
c:\propiétaire\mes documents\dossier partage\sylex\annexes\insee.xls

mais c'est
L = sfichier.Sheets("T_INSEE").Range("B39000").End(xlUp).Row

qui est un qualificateur incorrecte

je sèche

 

[Staple1600]

Re : Recherche un code postale dans un autre fichier

Bonsoir


Tu as "Dimé" sfichier as WorkBook ?

(Dim sfichier As WorkBook )