Discussion :

[vinystic]

Bonjour,

Je cherche à utiliser la fonction ChDrive et ChDir pour ouvrir un fichier situé sur un serveur d'entreprise nommé : \\Srvdell\ (Lecteur O)
J'ai essayé le code suivant, mais ça ne marche pas, le boite de dialogue s'ouvre mais pas sur le bon directory:

Code :

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

1
2
3
4
5
6
7
8
9
On Error Resume Next
ChDrive "\\Srvdell\"
On Error Resume Next
ChDir "\\Srvdell\COMMUN TEMP\PROD\LISTING"
fichier = Application.GetOpenFilename("Fichiers texte  (*.xls*),*.xls") 
If fichier <> False Then 'S'il n'y a pas de fichier selectionné
    Workbooks.OpenText Filename:=fichier
    Call suite
End If

J'ai également essayé:

Code :

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

ChDrive "O"

mais ça ne marche pas non plus.

Merci

[Le Pierre]

Bonjour

Enlève déjà tes "On Error Resume Next"
Tu verras tout de suite l'erreur si le lecteur ou le répertoire n"existent pas.

Ensuite il faut écrire :

Code :

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

ChDrive "O:\"

à plus

[ucfoutu]

Bonjour

Enlève déjà tes "On Error Resume Next"
Tu verras tout de suite l'erreur si le lecteur ou le répertoire n"existent pas.

Ensuite il faut écrire :

Code :

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

ChDrive "O:\"

à plus

Bravo, Le Pierre (je te félicite de t'attaquer à mon ennemi Resume Next)

Il a de surcroit la possibilité facile d'utiliser Dir (je l'ai montré très récemment) pour savoir si le lecteur existe et est prêt...
Idem pour le répertoire (toujours avec Dir)