Changer la direction par défaut vers 1 serveur

Signaler
Messages postés
16
Date d'inscription
lundi 20 février 2006
Statut
Membre
Dernière intervention
19 mai 2006
-
Messages postés
16
Date d'inscription
lundi 20 février 2006
Statut
Membre
Dernière intervention
19 mai 2006
-
Bonjour,

Je débute en VBA sous Excel et j'ai un souci : Pour l'execution de ma macro, j'ai besoins de récup des données d'un autre fichier (différent à chaque fois). Pour cela j'utilise l'application GetOpenFilename qui m'ouvre la fenêtre OUVRIR un fichier.

Ca marche bien seulement je n'arrive pas a lui donner le chemin vers le serveur et le dossier contenant mon fichier ( il se dirige vers "Mes documents") car chdir et chdrive ne marchent pas pour les serveurs aparament ....

Voici mon code :

Sub Macro1()



NO:
ChDir (" \\Serveur1\Dossier1\ " ) ' Ne marche pas ...

FICHIERAOUVRIR = Application _
.GetOpenFilename("Fichiers Excel (*.xls;*.xl), *.xls", , "Sélection du fichier ")

If FICHIERAOUVRIR <> False Then
r = MsgBox("Validez vous la sélection de ce fichier ?" + Chr(10) + Chr(10) + Chr(13) + FICHIERAOUVRIR, vbQuestion + vbYesNo, "VALIDATION")
Select Case r

Case vbNo
GoTo NO

Case vbYes


End Select
End If
'
End Sub

Si vous avez une idée n'hésitez pô...
Merci
Bonne jrnée

Tous pour un, rhume pour tous ....

1 réponse

Messages postés
16
Date d'inscription
lundi 20 février 2006
Statut
Membre
Dernière intervention
19 mai 2006

J'ai réussi à me dépatouiller !!!
Comme j'ai vu plusieurs fois cette question et qu'il n'y avait pas de réponses vraiment adéquates (enfin pour moi en tt cas) je met donc en ligne ma proposition et je me la valide !! :

With Application
.DefaultFilePath = " \\Serveur1\dossier1\sousdossier1"
End With


Si kk'1 connais une autre solution plus "PRO" n'hésitez pas ...



Les routiers sont sympas !!!