Discussion :

[willoweiss]

Bonjour, je suis débutant en excel, je sais faire qques macros faciles sur base de l'assistant. Grace à une macro, j ouvre un fichier txt pour le convertir en tableau excel puis j'effectue qques traitements en excel. Le problème est que le fichier txt à ouvrir change chaque mois de nom. Est ce possible facilement et si oui comment, de créér une simple Macro demandant à l utilisateur quel est le fichier text à ouvrir avant de l ouvrir ou de le traiter ou encore mieux indiquer dans la macro le début nom --> car les 10ers caractères du nom du fichier txt est tjs le même.

Merci d'avance j en ai besoin urgemment svp. Mille merci

[casefayere]

Bonjour,

...Grace à une macro, j ouvre un fichier txt pour le convertir en tableau excel puis j'effectue qques traitements en excel...

Alors montres ce que tu as déjà fait qu'on puisse mieux te guider.

PS : quant à l'urgence.........

[willoweiss]

Sub Macro1()
'
' Macro1 Macro
'

'
ChDir "G:\"
Workbooks.OpenText Filename:="G:\1010 avril.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:=",", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
28, 1)), TrailingMinusNumbers:=True
End Sub

[casefayere]

Peut-être quelque chose dans ce genre, à adapter

Code :

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

1
2
3
4
5
6
...
Dim chemin As String
chemin = InputBox("CHOISIR LE FICHIER", "FICHIER", "G:\*.txt")
ChDir "G:\"
Workbooks.OpenText Filename:=chemin,...
.....

[mercatog]

Utilisez GetOpenFilename

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
Sub Macro1()
Dim Fichier
 
ChDrive "D:\"
ChDir "D:\"
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
 
If Fichier <> False Then Workbooks.OpenText Filename:=Fichier, Origin:=xlMSDOS, _
    StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _
    Space:=False, Other:=True, OtherChar:=",", FieldInfo:=Array(Array(1, 1), _
    Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), _
    Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, _
    1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
    Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, _
    1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1)), _
    TrailingMinusNumbers:=True
End Sub

PS. ChDrive est nécessaire avant Chdir quand on change de disque