INSEE Data Manager V0.0.0

...
Else
    Me.Upload.AddItem "Pas d'internet"
    CommandButton3.Locked = True
End If

Private Sub UserForm_Initialize()
'...
End  Sub

Private Sub UserForm_Initialize()
Dim URL() As String: ReDim URL(0)
Onglets FEUILLES
For Each r In [Configuration]
            URL = GetZIPFileURLs(r.Text, URL)
Next
Worksheets("TEST").Cells(1).Resize(UBound(URL)).Value = Application.Transpose(URL)
End Sub

' Initialisation du tableau d'URLs
For Each r In [Configuration]
    ' Récupère les URLs de fichiers ZIP à partir du texte de chaque cellule dans la plage "Configuration"
    ' et les ajoute au tableau "URL". La fonction "GetZIPFileURLs" prend une URL de page web et retourne les liens de fichiers ZIP présents sur cette page.
    URL = GetZIPFileURLs(r.Text, URL)
Next

' Remarque : Le code pour récupérer les URLs d'une URL fixe est commenté
' URL = GetZIPFileURLs("https://www.insee.fr/fr/information/4190491")

' Réinitialise la sélection dans la liste déroulante "Recherche" (aucun élément sélectionné)
Recherche.ListIndex = -1

' Vérifie la disponibilité de la connexion Internet
If InternetIs Then
    ' Déclare une constante SQL pour rechercher un fichier par son nom dans la table "Fichiers"
    ' Le "?" sera remplacé par le nom du fichier pour exécuter la requête
    Const Sql As String = "select [name] from Fichiers where upper([name]) like upper('?')"
 
    ' Génère une chaîne de connexion pour une base de données SQLite3
    ' Le chemin de la base de données est relatif au répertoire du classeur actuel
    Cn = GenereCSTRING(SQLite3, Base:=ThisWorkbook.Path & "\DescesDepuis1970.sdb")
 
    ' Exécute une requête SQL pour supprimer les enregistrements de la table "deces" dont le fichier n'existe pas dans la table "Fichiers"
    ExecuteRequete "Delete from deces where Fichier not in (select [name] from Fichiers)", Cn
 
    ' Parcourt chaque URL trouvée dans le tableau "URL"
    For Each F In URL
        ' Divise l'URL en segments en utilisant "/" comme délimiteur
        U = Split(F, "/")
     
        ' Prend le dernier segment de l'URL, généralement le nom du fichier ZIP
        U = U(UBound(U))
     
        ' Recompose l'URL en extrayant et manipulant les segments pour obtenir une URL propre
        ' Enlève la partie de l'URL après "/fr/" pour obtenir la partie intéressante de l'URL
        a = Split(F, "/fr/")
        a = a(0) & "/fr/" & a(2)
     
        ' Vérifie si le fichier ZIP (converti en CSV) est déjà enregistré dans la base de données
        ' La requête SQL est modifiée pour vérifier la présence du fichier en tant que CSV dans la table "Fichiers"
        If ExecuteRequete(Replace(Sql, "'?'", "'" & Replace(UCase(U), ".ZIP", "#CSV") & "'"), Cn).EOF Then
            ' Si le fichier n'est pas trouvé dans la base de données, ajoute l'URL à la liste "Upload"
            Upload.AddItem CStr(a)
         
            ' Enregistre le nom du fichier en majuscules dans la deuxième colonne de la liste "Upload"
            Upload.List(Upload.ListCount - 1, 1) = UCase(U)
        End If
    Next

    ' Verrouille le bouton de téléchargement (CommandButton3) si la liste "Upload" est vide (aucun fichier à télécharger)
    CommandButton3.Locked = Not CBool(Upload.ListCount)
Else
    ' Si la connexion Internet n'est pas disponible, ajoute un message "Pas d'internet" à la liste "Upload"
    Me.Upload.AddItem "Pas d'internet"
 
    ' Verrouille le bouton de téléchargement pour empêcher toute tentative de téléchargement
    CommandButton3.Locked = True
End If

Private Sub CommandButton3_Click()
Dim Rep As String: Rep = ThisWorkbook.Path & "\Desces"
CommandButton3.Locked = True
Dim Fs As New FSO, Taill As Long

Dim F As Integer
For F = Upload.ListCount - 1 To 0 Step -1
'    If Upload.Selected(F) Then 'enlève le commentaire
        Fs.Supprimer_Repertoire Rep
        Fs.Creer_Repertoires Rep
      If DownloadHTTP.PingURL(Upload.List(F, 0)) Then
        DownloadHTTP.DownloadFile Upload.List(F, 0), Environ("TEMP") & "\" & Upload.List(F, 1)
        Fs.UnzipAFile Environ("TEMP") & "\" & Upload.List(F, 1), Rep & "\"
            
        'Fs.Deplace_Fichier ThisWorkbook.Path & "\Desces 1970-2023\Deces_" & Replace(UCase(Upload.List(f, 1)), ".ZIP", ".csv"), ThisWorkbook.Path & "\Desces 1970-2023\" & Replace(UCase(Upload.List(f, 1)), ".ZIP", ".csv")
        Fs.Supprimer_Fichier Environ("TEMP") & "\" & Upload.List(F, 1)
        UlpoadSqlite Cn, Rep, Upload, F
        Upload.RemoveItem (F)
'        End If 'enlève le commentaire
    End If
Next
End Sub

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Sub mTest()
Dim f_Zip$, l_Path$
f_Zip = "https://www.insee.fr/fr/statistiques/fichier/4190491/Deces_2024_M07.zip"
l_Path = ThisWorkbook.Path & "\"
URLDownloadToFile 0, f_Zip, l_Path & "Deces_2024_M07.zip", 0, 0
End Sub

Public Function DownloadFile(ByVal URL As String, ByVal Destination As String) As Boolean
'...
End Sub