chdir et chemin réseau

[RaceX]

Bonjour le forum,

J'ai scruté les différentes posts à ce sujet mais aucun n'a résolu mon problème.

J'ai un bout de code comme ça:

Dim TheFileToLink As Variant
ChDir ("c:\windows")
TheFileToLink = Application.GetOpenFilename()

Tant que je reste dans C:\ cela marche correctement mais dès que je tente un accès réseau du type: \\server1\share1\ cela ne marche plus.
J'ai tenté différentes syntaxes sans succès. Je m'en remet donc à vous une fois de plus .

Merci

 

[Pierrot93]

Re : chdir et chemin réseau

Bonjour Race

essaye peut être l'instruction "ChDrive" au lieu de "ChDir"

bon après midi
@+

 

[Staple1600]

Re : chdir et chemin réseau

Bonjour

A tester

Declare Function SetCurrentDirectory Lib "kernel32" Alias _
"SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Sub TestAPI()
   Dim CurrentPath As String
   Dim Filename As Variant
   
   'Store the current path
   CurrentPath = CurDir
   
   'Change the path to the one we want
   SetCurrentDirectory "\\SomeServer\Some Path"
   
   'Ask for the file name
   Filename = Application.GetSaveAsFilename()

   If TypeName(Filename) <> "Boolean" Then
      MsgBox Filename
   End If
   
   'Change the path back
   SetCurrentDirectory CurrentPath
End Sub

Et de la lecture pour peut-etre trouver de quoi résoudre ta question
Les fichiers

Une autre macro
Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long

Sub xx()
SetUNCPath "\\servername\sharedname"
End Sub

Sub SetUNCPath(Path As String)
Dim lngStatus As Long

lngStatus = SetCurrentDirectoryA(Path)
If lngStatus = 0 Then
MsgBox "Could not set path" & vbLf & Path, vbExclamation
End If

End Sub

 

[RaceX]

Re : chdir et chemin réseau

Bonjour Pierrot93, Staple1600,

Pierrot93, la commande ChDrive ne marche pas mieux

Staple1600, je n'ai aucune idée comment utiliser cette function. Où dois-je la déclarer? Dans un module? Ma commande Application.GetOpenFilename() s'active lors de l'appui sur un bouton.

Merci de vos conseils.

Edit: je viens de voir ton edit, je vais essayer cela aussi.

 

[Pierrot93]

Re : chdir et chemin réseau

Re

comprends pas. je viens de tester la ligne de code ci dessous chez moi et cela fonctionne :

   ChDrive "G:\"

@+

 

[Staple1600]

Re : chdir et chemin réseau

Re

La déclaration Declare Function...
et testAPI() dans un module standard

(en adaptant le path)

 

[RaceX]

Re : chdir et chemin réseau

Re

comprends pas. je viens de tester la ligne de code ci dessous chez moi et cela fonctionne :

   ChDrive "G:\"

@+

Tu as raison dans le sens que cette commande marche parfaitement avec un lecteur réseau. Par contre cela ne marche pas avec un chemin de type \\server\folder\

Staple1600, je vais essayer de faire fonctionner ta méthode.

Merci à vous deux pour votre aide