Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Word Discussion :

Adresse et code postale selon la ville


Sujet :

Word

  1. #1
    Membre à l'essai
    Adresse et code postale selon la ville
    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 !

  2. #2
    Expert éminent sénior
    Citation Envoyé par keranLatos Voir le message

    Bonjour,

    Sur le site de l'AMF : https://www.amf.asso.fr/annuaire-communes-intercommunalites?refer=commune&dep_n_id=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/blogs/639235-eric-kergresse/b1291/codes-postaux-codes-insee-communes-departements-nouvelles-regions-administratives-google-maps/
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Expert éminent sénior
    Citation Envoyé par keranLatos Voir le message

    Si le fichier Excel contient les champs et les formats ci-dessous :



    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
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

###raw>template_hook.ano_emploi###