Discussion :

[seb_march]

Bonjour,

Je souhaiterais appliquer un Getopenfilename dans un dossier specifique qui ce trouve sur le reseau

Le lien vers le dossier est du type \\serveur\dossier\dossier1\

il faudrait que la personne qui lance la macro tombe directement dans ce dossier pour selectionner un fichier de son choix

je n'ai pas trouver comment faire
Merci de votre aide

[Fvandermeulen]

Salut et bienvenue sur le forum,

Voici l'astuce, il faut préciser le dossier en deux temps, d'abord le lecteur, pour l'exemple C et ensuite le chemin complet jusqu'au dossier voulu.

Code :

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

1
2
3
4
ChDrive ("C") 'Adapter la lettre du lecteur voulu
ChDir "C:\Documents and Settings\USER\My Documents" 'Indiquer le chemin complet jusqu'au répertoir voulu
MonFichier = Application.GetOpenFilename("Fichiers textes (*.txt),*.txt", , _
    "Sélectionnez un fichier :") 'Affectation du fichier sélectionné (ici Texte) à la variable MonFichier

A+

[seb_march]

Merci de ta reponse mais cette solution ne me convient pas car:

Le fichier se trouve sur un serveur, different ordinateur vont ce connecter a ce fichier pour le mettre a jour, il faudrait que sur chaque ordinateur il y est un lecteur reseau ayant la meme lettre est la c'est pas possible (Trop de boulet devront l'utilisé)

Y a t'il une solution qui ne demanderait pas de configuration d'ordinateur particuliere

Merci d'avance de m'eclairer

[Fvandermeulen]

Et est-ce que ce fichier est dans ce dossier ?

[seb_march]

Est non j'ai le fichier contenant mes macro sur un serveur de fichier et je traite des Acquisitions avec mes macros qui se trouve sur un autre serveur dedié aux aquisitions

C'est assez compliqué je l'avoue

[Fvandermeulen]

Re,
Désolé, en fait tu l'avais déjà dit qu'il était pas sur le même serveur...

Bon ben dans ce cas, comme j'imagine que tu ne veux pas demander à tes utilisateurs qu'ils entrent eux même la lettre du serveur, voici une piste avec une boucle sur les Drivers.
L'idée est de récupérer le 'nom' du serveur et de le comparer avec le nom théorique (pour mon test, mon serveur est \\srv-files\coco$)

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
Sub TrouveLecteur()
Dim fs, d, dc, s, n
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
 
On Error Resume Next
 
    For Each d In dc 'Boucle sur les Lecteurs
        s = d.DriveLetter 'Récupère la lettre
        If d.DriveType = 3 Then 'Si correspond à un "Network"
            n = d.ShareName 'Récupère le nom du serveur
            If n = "\\srv-files\coco$" Then 'Compare au nom théorique
                ChDrive (s) 'Affecte la lettre du lecteur
                ChDir s & ":\Dispos\2010" 'Compléter le chemin du serveur avec les dossiers
                MonFichier = Application.GetOpenFilename("Fichiers textes (*.txt),*.txt", , _
                "Sélectionnez un fichier :") 'Affectation du fichier sélectionné (ici Texte)
                Exit Sub 'Sort de la procédure car trouvé
             End If
        End If
    Next d
End Sub

Si tu n'est pas certain du nom de ton serveur, tu peux toujours en adaptant un peu la boucle les lister dans une feuille.

A+

[seb_march]

Je vois que je n'est pas le choix il faudra creer un lecteur reseaux sur chaque ordinateur aujourd'hui quand je souhaité rejoindre le dossier je faisais Demarer/exectuer puis je taper \\NomdeServeur je n'est pas de lecteur reseaux creer et il va falloir un creer un

[hugues03]

Pour que tous les postes aient la même lettre réseau (T: par exemple), tu peux utiliser la fonction net delete (ca supprime la connexion), ensuite un net use sur le lecteur que tu veux, avec le share etc...

Par contre il faut prevenir les utilisateurs... après ca depend combien de serveur tu as...

[AlainTech]

Bonjour,

Aucun problème pour mettre un chemin réseau en utilisant Application.FileDialog.
Voici un petit exemple d'utilisation:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
  Dim fld As FileDialog
  Dim strFilePath As String
  Set fld = Application.FileDialog(msoFileDialogOpen)
  With fld
    .InitialFileName = "\\serveur\dossier\dossier1\"
    .Show
  End With
  strFilePath = fld.SelectedItems(1)
End Sub

[seb_march]

Bonjour,

Merci c'est exactement ce que je recherchai