Fonction Look in

[buzz]

Bonjour à tous,

J'aimerais être corrigé sur un code qui permetrait de lancer la pop-up qui permet de sélectionner un fichier sur un répertoire précis (un fichier xls dans mon exemple sur un répertoire réseau). J'ai essayé avec plusieurs codes mais à chaque fois le lien que je donne dans mon code ne pointe pas sur le lien que je donne et uniquement sur look in Mon bureau ou mes documents.
J'ai pas mal cherché sur le forum et je n ai pas trouvé de réponses même ici

https://www.excel-downloads.com/threads/adresse-reseau.74696/


code 1:

Private Sub ouv()
CeFichier = Application.GetOpenFilename("XLS Files (*.xls), *.xls", FilterIndex:="\\srvreseau\dossier1\dossier2\dossier3\")
If VarType(CeFichier) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=CeFichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(1, 1)
End If
End Sub


code 2:


Set fs = Application.GetOpenFilename
With fs
.LookIn = "\\srvreseau\dossier1\dossier2\dossier3\"
.Filename = "xls*.*"

End With

Merci d'avance pour votre aide et bon we !

 

[Spitnolan08]

Re : Fonction Look in

Bonsoir,

Edit : Après avoir lu le fil que tu cites je retire ce que j'avais indiqué.

Tu peux peut être contacter Toutou pour savoir comment il a fait... et poster la solution (!) pour que cela puisse servir à quelqu'un d'autre.

Cordialement

 

[Pierrot93]

Re : Fonction Look in

Bonjour Buzz, Spitnolan

pas sur d'avoir tout compris, mais essaye peut être le code ci dessous :

Sub test()
Dim f As String
ChDir "\\srvreseau\dossier1\dossier2\dossier3\"
f = Application.GetOpenFilename
If f <> False Then Workbooks.Open f
End Sub

bonne journée
@+