Ouvrir repertoire macro

Bonjour le forum,

je cherche à faire une macro qui m'ouvre un répertoire (tjs le même) de façon à sélectionner un fichier .txt (fichier que je choisi).

Qqun peut-il m'aider svp

Merci

Phil

Bonjour

Tu peux essayer cette instruction

Shell "explorer.exe /e," & "Repertoire", vbNormalFocus

Avec Repertoire = le nom du répertoire complet --> exemple "C:\tata\"

Si ok, clique sur le v vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse

Crdlt

Merci Dan, c'est ok.

Phil

désolé Dan, j'avais contourné ma macro faute de temps, mais maintenant que tu m'as donné la réponse , je me retrouve confronté à un autre probleme, ç savoir :

Lorsque mon repertoire s'ouvre, je clique sur le fichier ...par contre , le reste de ma macro ne fonctionne pas .

Peux tu m'aider .

Merci

[code][/Sub suppression_LIB()

'Integration fichier A1

'Dim chemin As String, Fichier As String

'chemin = "L:\dika\EXPORT PRODEVIS\"

'Fichier = Range("a1") & ".txt"

'Workbooks.OpenText Filename:=chemin & Fichier

Shell "explorer.exe /e," & "L:\dika\EXPORT PRODEVIS\", vbNormalFocus

'suppression LIB

Dim nbcells, i As Integer

nbcells = Range("L" & Rows.Count).End(xlUp).Row

i = 1

While i <= nbcells

If Cells(i, 12).Value = "LIB" Then

Cells(i, 12).EntireRow.Delete

i = i - 1

nbcells = Range("L" & Rows.Count).End(xlUp).Row

End If

i = i + 1

Wend

' Enregistrement sous format txt

ActiveWorkbook.SaveAs Filename:=chemin & Fichier, _

FileFormat:=xlText, CreateBackup:=False

End Sub

code]

Re

Deux choses au sujet du code posté

1. Tu as mis une apostrophe devant certaines instructions. Je parle de la variable Chemin et fichier. Le rest du code ne peut donc fonctionner

2. Si tes données sont dans le fichier que tu ouvres, il faut donner les informations Nom de feuille et de fichier dans tes instructions

Exemple :

Fichier = Range("a1") & ".txt"

à remplacer par ceci :

Fichier = Workbook("Nom fichier").Sheets("Nom feuille").Range("a1") & ".txt"

3. Essaie peut être ceci

Dim chemin As String, Fichier As String
chemin = "L:\dika\EXPORT PRODEVIS\"
Fichier = Range("a1") & ".txt"
Shell "explorer.exe /e," & chemin & Fichier, vbNormalFocus

A te relire

Crdlt

Merci Dan,

je pense m'etre mal expliqué.

Au début je voulais ouvrir le fichier A1.txt via le bouton de ma macro.

A présent, je souhaite que l'opérateur clique sur le bouton macro qui m'ouvrirait l'explorateur pour aller chercher son fichier manuellement et une fois le fichier choisi (double clic pour l'ouvrir) la macro se lancerait .

Apres le double clic c'est cela que qui se passera ...

[code][/'suppression LIB

Dim nbcells, i As Integer

nbcells = Range("L" & Rows.Count).End(xlUp).Row

i = 1

While i <= nbcells

If Cells(i, 12).Value = "LIB" Then

Cells(i, 12).EntireRow.Delete

i = i - 1

nbcells = Range("L" & Rows.Count).End(xlUp).Row

End If

i = i + 1

Wend

' Enregistrement sous format txt

ActiveWorkbook.SaveAs Filename:=chemin & Fichier, _

FileFormat:=xlText, CreateBackup:=False

End Subcode]

merci d'avance Dan

Re

Essaie comme ceci alors

Dim Fichier As String
Fichier = Application.GetOpenFilename
Shell "explorer.exe /e," & Fichier, vbNormalFocus
'.... le reste de ta macro

A te relire

Merci Dan