Limiter repertoire

[Sam]

Bonjour à tout le monde,
Voilà le probleme auquel je suis confronté:j'ai créé une appli qui donne le choix à l'utilisateur de choisir le fichier à ouvrir dans une boite de dialogue avec une arborescence.
Cependant,je voudrais limiter le choix de l'utilisateur,et faire en sorte que dans la boite de dialogue ne s'affiche que le répertoire voulu.
Voici le code ,surement faut il changer quelque chose,ou bien faire autre chose.
Toutes les suggestions seront les bienvenues .
Merci d'avance pour votre attention.
'

Sub Import_data()
NomFichier = Application.GetOpenFilename
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & NomFichier, Destination _
:=Range("A1"))
.Name = "JLV_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 2, 2, 1, 5, 1, 2, 2, 2, 2, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

 

[C@thy]

bonjour Sam,

je crois que ceci pourrait t'aider

Sub ouvrir()
Dim Chemin As String
Dim FileToOpen As Variant

Chemin = "C:\Documents and Settings\CATHY\Mes documents\EXCEL"
ChDir Chemin
FileToOpen = Application.GetOpenFilename("Classeurs Excel,*.xls")
If FileToOpen = False Then MsgBox "Ouverture Annulée": Exit Sub
Workbooks.Open FileToOpen
End Sub

évidemment pour ouvrir tous les types de fichier c'est

"Tous les fichiers (*.*),*.*" (argument par défaut s'il n'a pas été spécifié)


C@thy

 

[Sam]

Bonjour Cathy
Je te remercie pout ton attention.
J'ai essayé la solution que tu m'as proposée, mais le résultat n'a pas changer;.....il me propose toujours "tout" le repertoire au lieu de m'en proposé un en particulier....
Snif...
Si toi ou bien quelqu'un d'autre à une suggestion.....

 

[Sam]

Toute mes excuses Cathy.....ca marche!
Cepandant, lorsque j'arrive sur le bon repertoire et que je selectionne un fichier,il ne l'ouvre pas...
Peut etre l'ai je mal adapté au code ci dessus....
Si vous avez des suggestions....!!!!
Merci

 

[Jean-Marie]

Bonjour

La méthode GetOpenFilename, affiche la boîte de dialogue standard Ouvrir et lit un nom de fichier tapé par l'utilisateur sans réellement ouvrir les fichiers.

Il faut que tu utilises la méthode OPEN.

@+Jean-Marie

 

[C@thy]

Par contre, je ne sais pas comment visualiser uniquement le répertoire souhaité et empêcher la navigation vers d'autres répertoires, si quelqu'un sait, ça éclairera ma lanterne.

C@thy

 

[C@thy]

Sam, tu n'as pas oublié la dernière instruction :

Workbooks.Open FileToOpen?

C@thy

 

[Sam]

Non, j'ai écrit le code tel quel.
Il me permet effectivement d'ouvrir le repertoire que je veux,mais il est malgré tout possible de remonte dans l'arborescence,ce que je voudrais eviter......mais je serai bien incapable d'eclairé ta lenterne..
Désolé Cathy.
Mais si je le decouvre je t'en ferai part.
Merci pour tout.
A+
Sam

 

[C@thy]

En fait, j'ai un truc qui m'a bien servi, je te le joins si ça te convient (il suffit de changer les répertoires)

@+

C@thy

 

[Sam]

Merci Cathy,
Merci,je vais essayer ta solution
A+