Discussion :

[keranLatos]

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 !

[Invité]

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/

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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