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
| Sub ouvrir_csv()
Dim unCsv As Boolean
unCsv = False
' Chemin de base, ChDir pour les chemin dans l'ordi, ChDrive pour un serveur
ChDrive "\\bfrsequf\PAGE\Gest_42\Misajour\donnees PDC\CSV"
'ChDir ThisWorkbook.Path
monfichier = Dir("*.csv")
'Traiter tous les csv du dossier selectionné
While monfichier <> ""
If monfichier Like "*37*" Then
Call ImportationCsv("\\bfrsequfp01\PARTAGE\Gest_42\Misajour\donnees PDC\CSV\" & monfichier, False)
'Call ImportationCsv(ThisWorkbook.Path & "\" & monfichier)
End If
If monfichier Like "*41*" Then
Call ImportationCsv4_("\\bfrsequfp01\PARTAGE\Gest_42\Misajour\donnees PDC\CSV\" & monfichier, 41, False)
'Call ImportationCsv4_(ThisWorkbook.Path & "\" & monfichier, 41)
End If
If monfichier Like "*42*" Then
Call ImportationCsv4_("\\bfrsequfp01\PARTAGE\Gest_42\Misajour\donnees PDC\CSV\" & monfichier, 42, False)
'Call ImportationCsv4_(ThisWorkbook.Path & "\" & monfichier, 42)
End If
unCsv = True
monfichier = Dir()
Wend
'On sort de la boucle while, soit pas de csv, soit import terminé
If unCsv = False Then
MsgBox "Il n'y a pas de fichier csv dans le dossier."
Else: MsgBox "Importation Terminée."
End If
End Sub |