Discussion :

[Filou78C]

Bonjour,

Je voudrais ouvrir dans excel un fichier txt pour pouvoir le transformer en quelque chose d'exploitable. Il faut en effet que je supprime les 1ères lignes de ce fichier, certaines colonnes etc etc...
Le problème est que je voudrais faire cela à partir d'une macro dans ACCESS.
Autant dans excel pas de soucis mais dans ACCESS c'est un autre problème.
J'ouvre excel et un classeur avec ce code :

Code :

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

1
2
3
'Initialisation d'excel
Set xlApp = GetObject(, "Excel.application")
Set xlBook = xlApp.Workbooks.Add

Mais comment ensuite ouvrir mon fichier txt et lancer les transformation ? Ci-dessous le code en vba excel qui fonctionne :

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
23
Workbooks.OpenText FileName:= _
        "O:\CM-RFC\SIRIUS\Suivi des créances échues SIRIUS\MACRO SUIVI DES ECHUS\FBL5N.txt" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
        (1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
        TrailingMinusNumbers:=True
'
Rows("1:9").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Rows("2:2").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll ToRight:=7
Range("R1").Select
Selection.Cut Destination:=Range("S1")
Columns("R:R").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft

Merci de votre aide.

[nico84]

Bonjour,

Cela peut probablement se faire en utilisant excel dans access comme tu as commencé à le faire mais ça serait plus simple à mon avis de traiter le texte directement avec les outils de la bibliothèque "microsoft scripting runtime"

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
Dim FSO As New Scripting.FileSystemObject
Dim F1 As Scripting.TextStream, F2 As Scripting.TextStream
 
Set F1 = FSO.OpenTextFile("avant.txt")
Set F2 = FSO.OpenTextFile("apres.txt", ForWriting, True)
 
'parcourt le fichier texte dans F1 et écrit dans F2
While Not F1.AtEndOfStream
  T = F1.ReadLine
  T=... 'modifications
  F2.WriteLine T
Wend
F1.Close: Set F1 = Nothing
F2.Close: Set F2 = Nothing
Set FSO = Nothing

[Filou78C]

Bonjour

Merci pour ta réponse en cherchant encore un peu dans les forums j'ai finalement écrit ça :

Code :

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

1
2
3
4
5
6
7
8
'
'Ouverture d'excel et de la macro transformant le fichier txt
Dim MonObjet As Object
Set MonObjet = GetObject("", "Excel.Sheet")
MonObjet.Application.Visible = True
MonObjet.Application.Workbooks.Open "O:\CM-RFC\SIRIUS\Suivi des créances échues SIRIUS\MACRO SUIVI DES ECHUS\FBL5N.xlsm"
MonObjet.Application.Run "TRANSFO_FBL5N_TXT"
Set MonObjet = Nothing

La seule chose de bizarre c'est que je n'arrive pas à fermer le fichier FBL5N.xlsm.....
C'est pas trop grave mais j'aurais aimé aller jusqu'au bout...
J'ai bien essayé ce code :

Code :

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

MonObjet.Application.Workbooks.Close "O:\CM-RFC\SIRIUS\Suivi des créances échues SIRIUS\MACRO SUIVI DES ECHUS\FBL5N.xlsm"

Mais ça plante