PB Chdir et Chdirve !!! A l'aide !!!!

Question

Bonjour,

Je d&#233;bute en VBA sous Excel et j'ai un souci : Pour l'execution de ma macro, j'ai besoins de r&#233;cup des donn&#233;es d'un autre fichier (diff&#233;rent &#224; chaque fois). Pour cela j'utilise l'application GetOpenFilename qui m'ouvre la fen&#234;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&#233;lection du fichier ")

If  FICHIERAOUVRIR <> False Then
    r = MsgBox("Validez vous la s&#233;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&#233;e n'h&#233;sitez p&#244;...
Merci
Bonne jrn&#233;e

Tousse pour un, rhume pour tous ....

Les routiers sont sympas !!!

ScSami · Answer

Tante d'utiliser le FSO (File Syst&#232;me Object).

Je te laisse te r&#233;f&#233;rer &#224; l'aide (Rubrique Objets... Objets FSO, FILES, FILE, FOLDERS, FOLDER, ...)

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

PB Chdir et Chdirve !!! A l'aide !!!!

1 réponse

Discussions similaires