Discussion :

[naoy93]

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...

[Daniel.C]

Bonjour,

"ChDrive" ne fonctionne pas avec un nom de partage réseau. Regarde ici pour un contournement :

http://www.mrexcel.com/forum/excel-q...s-chdrive.html

[naoy93]

Heuuuu, je suis désolé, j'ai du mal à capter le détournement à effectuer, pourrais tu m'expliquer si cela ne te dérange pas, je suis un peu perdu

[Daniel.C]

Désolé, je ne peux pas tester le code, je ne suis pas en réseau. Dans la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sServer = "\ServerShare"

Il faut remplacer "\ServerShare" par ton partage réseau.

[naoy93]

Merci beaucoup j'ai réussi en fin de matinée, plus qu'à mettre en phase de test

[ctac_]

Bonjour,

Est ce nécessaire de changer le lecteur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
    MsgBox Dir("\\bfrsequf\PAGE\Gest_42\Misajour\donnees PDC\CSV\*.csv")
End Sub

Cordialement

ctac