Bonjour j'aimerais savoir si il exister un moyen de faire une recherche qui nous donnerais l'adresse et le code postale d'une mairie selon le nom de la ville saisis dans une case ? merci beaucoup !
Version imprimable
Bonjour j'aimerais savoir si il exister un moyen de faire une recherche qui nous donnerais l'adresse et le code postale d'une mairie selon le nom de la ville saisis dans une case ? merci beaucoup !
Bonjour,
Sur le site de l'AMF : https://www.amf.asso.fr/annuaire-com...35&insee=35055
Dans l'exemple, il faut donc seulement remplacer le numéro de département et le code insee.
Sinon sur mon blog, la liste des codes insee et codes postaux sans les adresses mairies. Ce fichier date de 2015, il est donc possible que des regroupements de communes aient eu lieu :
https://www.developpez.net/forums/bl...s-google-maps/
Si le fichier Excel contient les champs et les formats ci-dessous :
Pièce jointe 583877
Le code, ci-dessous, crée les liens hypertextes vers le site de l'AMF :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 Sub MajAdresseAmf() Dim LigneEnCours As Long, ColDepartement As Long, ColInsee As Long, ColAmf As Long, ColNomCommune As Long Dim TableCommunes As ListObject Dim AireAmf As Range On Error GoTo Fin Application.ScreenUpdating = False Set TableCommunes = ActiveSheet.ListObjects("TableDesCommunes") With TableCommunes ColDepartement = .ListColumns("Département").Range.Column ColInsee = .ListColumns("Insee").Range.Column ColNomCommune = .ListColumns("Commune").Range.Column ColAmf = .ListColumns("Adresse Mairie site AMF").Range.Column Set AireAmf = .ListColumns(ColAmf).DataBodyRange End With AireAmf.ClearContents For LigneEnCours = 1 To AireAmf.Count With AireAmf(LigneEnCours) .Hyperlinks.Add Anchor:=AireAmf(LigneEnCours), Address:= _ "https://www.amf.asso.fr/annuaire-communes-intercommunalites?refer=commune&dep_n_id=" _ & .Offset(0, ColDepartement - ColAmf).Value _ & "&insee=" & .Offset(0, ColInsee - ColAmf).Value, TextToDisplay:=.Offset(0, ColNomCommune - ColAmf).Value End With Next LigneEnCours MsgBox "Fin de mise à jour !", vbInformation, "Mise à jour des liens AMF" GoTo Fin Fin: Application.ScreenUpdating = True Set AireAmf = Nothing Set TableCommunes = Nothing End Sub