Bonjour, excusez moi mais j'ai un probleme afin d'effectuer des tests sur le serveur : J'ai une erreur à cette ligne là ChDrive "\\bfrsequf\PAGE\Gest_42\Misajour\donnees PDC\CSV" un runtime error 5, comment modifier mon code pour que cette macro marche ?

Merci d'avance


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
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
Si je fais ChDrive ThisWorkbook.Path dans le même fichier que les csv sur le serveur, ça marche (pas chDir), mais ce n'est pas satisfaisant...