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
| Function chemin_et_fichier_contact_AIW_valide() As String
Dim rsloc As Recordset
Dim remp As String
Dim pa As String
Dim s As String
Dim fs
'Cette fonction est utilisée pour la synchro automatique de bdd avec AIW à partir du fichier avarap471_contacts.csv
'1) vérifie que le fichier ftp est bien en ligne et
'si ok, recopie "avarap471_contacts" situé dans le chemin du ftp dans le répertoire chemindownloads
' retourne le nom du fichier et de son chemin
'je m'assure que cheminftp_aiw est documenté, si ce n'est pas le cas je m'arrête après message
If cheminftp_aiw = "" Or IsNull(cheminftp_aiw) Then dummy = get_chemins()
'Je vérifie que le fichier csv est en ligne
If Not existe(cheminftp_aiw, "avarap471_contacts.csv") Then
dummy = MsgBox("fichier " & cheminftp_aiw & "avarap471_contacts.csv Introuvable." & Chr(13) & Chr(10) & "Vérifiez que le lecteur w: est bien connecté au serveur ftp; si ce n'est pas le cas, demandez l'intervention de l'administrateur...", vbOKOnly)
Exit Function
End If
'je recopie le fichier du serveur ftp dans mon répertoire extraction
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile cheminftp_aiw & "avarap471_contacts.csv", chemindownloads & "avarap471_contacts.csv"
chemin_et_fichier_contact_AIW_valide = chemindownloads & "avarap471_contacts.csv"
End Function |
Partager