XL 2013 Trouver les communes dans un rayon km

[Usine à gaz]

Bonjour à toutes et à tous,

Je vous renouvelle tous mes voeux pour cette nouvelle année et vous remercie encore de votre aide si précieuse.

Pour une fois LOL, j'apporte un petit travail qui est très certainement perfectible.

Pour mon travail, j'ai en quasi-permanence besoin de trouver la liste des communes qui sont dans un rayon d'un nombre de km à partir d'un code postal/ville km 0.

J'avais trouvé un site que j'utilisais depuis des années mais qui ne semble plus accessible :
http://www.lion1906.com/Pages/francais/infos/departements.html

Trouver les communes dans un rayon est très important pour moi et je me suis mis depuis hier en recherche d'une solution.

Après bien des recherches, j'ai fini par trouver ce site :
http://www.codepostauxfrance.com/rayon-de-recherche-par-code-postal

Super site et qui fonctionne très bien.

Il suffit de sélectionner les communes trouvées et de les copier à partir de A2 dans mon fichier.
Mais pour que je puisse copier les résultats dans le classeur secteur de mes clients, il m'a fallut créer un fichier pour re-traiter les infos.

Voilà qui est fait. Certainement très simple aux yeux des magiciens de vba mais ça marche.

En faisant mes recherches sur le net, je me suis aperçu que d'autres recherchent une solution à ce même besoin.

Modestement, je joins mon fichier qui pourra peut-être être utile à d'autres.

Amicalement,
arthour973

 

[Usine à gaz]

Re-Bonjour Pierre,

Je comprends le "mouais" LOL

Je ne sais avec quels mots je peux te remercier pour le temps et ta patience.
Mais c'est super nickel.
Merci - Merci
Bonne fin de journée,
amicalement,
arthour973

 

[Usine à gaz]

Bonjour Pierre, le Forum

Le fichier que tu m'as fait est une merveille maintenant
Je l'ai adapté à mon besoin et ça fonctionne super bien.
Je t'en remercie encore une fois car il m'est indispensable pour mon travail.

J'ai besoin de re-traiter le résultat de la recherche et je l'ai "un peu" modifié.
D'ailleurs, si ça peut servir, je le joins à ce post.

J'ai tout de même LOL, une petite question :

Evidemment, les infos des communes évoluent ( cf fichier : geoflar-communes-2016_light)
Est-il possible que je puisse faire des mises à jour sous le même format de fichier ?

Encore un grand merci Pierre
amicalement
arthour973,

 

[Usine à gaz]

Merci Pierre d'être encore là.
J'ai testé mais le fichier reçu pèse 113Mo alors que le tien (light) ne pèse que 3.62 Mo

 

[Usine à gaz]

Re-Pierre,

LOL je dois être bouché
J'avais bien lu

Si je comprends, il n'y a donc pas de mises à jour à faire, le fichier "geoflar-communes-2016_light"
se met seul et automatiquement à jour ?

 

[Usine à gaz]

Je supprime aussi mais ça m'a piqué au vif.
Je suis également désolé Pierre
amicalement
arthour973

 

[Usine à gaz]

Bonjour Pierre,

J'utilise ton classeur depuis déjà le début de l'année sans aucun souci et, il a toujours bien fonctionné sans problème.
Et il m'aide énormément dans mon travail et je t'en remercie encore

Ce matin, alors que je n'ai rien changé, ni "touché" a des codes, ça beugue et je ne sais pas comment faire pour y remédier.

Voici ci-dessous la capture d'écran du problème :

Pourrais-tu m'aider ?
Un grand merci,
Amicalement,
lionel,

 

[Staple1600]

Bonjour le fil


En attendant tatiak, si tu ajoutes VBA devant Sin (comme illlustré ci-dessous)
Ca change quelquechose
V(0)=VBA.Sin(Application.Radians(CSng(SO(0))))
à modifier dans toute la fonction Dist

 

[Usine à gaz]

Merci JM
je regarde dans un petit moment.

 

[Usine à gaz]

Bonjour Pierre,

Merci encore d'être là
Je vais voir et je te dirai lundi
lionel,

 

[Staple1600]

Bonsoir le fil,

Merci JM
je regarde dans un petit moment.

Nous sommes dimanche, il est 1h21
Il est long ton petit moment, arthour973...

 

[Usine à gaz]

Bjr JM,

Je comprends que ça te paraisses long mais j'ai des urgences de boulot.
Je ne pourrai voir ça que demain lundi en soirée et je répondrai également à Pierre qui a, lui aussi, eu la gentillesse de ma répondre
lionel,

 

[laurent950]

Bonjour,

J'aimerais connaitre la procédure pour ouvrir le fichier de Tatiak au poste #46 : lorsque j'ouvre le fichier J'ai un message ouvrir en mode Protégé (J'ai cliqué sur le bouton pour accepter et j'ai une page blanche !)

lorsque j'essaie de d'ouvrir le fichier à nouveau, j'ai encore une page blanche.

si vous avez la solution je vous remercie.

 

[Staple1600]

Bonjour le fil;

laurent950
Quelles sont tes paramètres niveau sécurité macros?
Tu ouvrees directement le fichier à partir d'XLD ou tu le télécharges puis l'ouvres à partir de ton dossier Téléchargements?
Dans le fichier, il y a trois modules VBA (Accueil, Tblo et Text)
Tu les vois bien?

 

[laurent950]

Bonjour Staple1600,

Quelles sont tes paramètres niveau sécurité macros?

Coché : activer toutes les macros (non recommandé ; risque d’exécution de code potentiellement dangereux)
Coché : accès approuvé au modèle d'objet du projet VBA.

Quand j'ouvre comme votre indication j'ai une feuille blanche

je sais pas contourner se problème Staple1600 !

Ps : j'ai désactivé mes macro, en pas à pas
cette ligne qui pose un soucis peut être :
S = ThisWorkbook.Path & "\geoflar-communes-2016_light.txt"

 

[Staple1600]

Re

Je ne peux en dire plus (car actuellement sous XL 2003)
J'ai donc converti le classeur qui te pose problème en *.xls et quand je l'ouvre j'ai une feuille nommée: base
qui s'affiche.

Quelle est ta version d'Excel?

NB:Tu télécharges bien le fichier "complétement" sur ton disque.
Tu ne l'ouvres pas directement lors du téléchargement ?
(dans ce cas, c'est une version temporaire qui s'ouvre stockée dans %temp% et parfois cela cause des problèmes)

PS: J'ouvre toujours les fichiers Excel issus du web (XLD compris) sans activer les macros
Ensuite je vais voir le code VBA (inhibe le cas échéant le code dans le WorkBook8open)
puis je réouvre le classeur en activant les macros.