Discussion :

[Arsene12]

Bonjour,

j'ai fait une macro qui importe un fichier .text dans excel en prenant pour délimiteur le tiret. Je voudrais que le contenu s'insère dans le fichier et la feuille que j'ai sélectionné mais ma macro crée un nouveau fichier avec une feuille ayant pour nom celui du fichier .text. Pourriez-vous m'aider à corriger mon code, svp?

Merci d'avance.

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
Sub Chargement()
'
' Macro13 Macro
'
'
    Worksheets("Feuil3").Select
    Range("A1").Activate
    ChDir "C:\Users\Desktop\"
    Workbooks.OpenText Filename:= _
        "C:\Users\Desktop\monTexte.txt", _
        Origin:=65001, 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)), TrailingMinusNumbers:= _
        True
End Sub

[Menhir]

Je voudrais que le contenu s'insère dans le fichier et la feuille que j'ai sélectionné mais ma macro crée un nouveau fichier avec une feuille ayant pour nom celui du fichier .text.

Il suffit que tu copies le contenu du fichier txt ouvert vers ta feuille (Méthode Copy de Range) puis que tu fermes le fichier texte sans sauvegarde (Méthode Close de Workbook).

[Arsene12]

Il suffit que tu copies le contenu du fichier txt ouvert vers ta feuille (Méthode Copy de Range) puis que tu fermes le fichier texte sans sauvegarde (Méthode Close de Workbook).

Merci pour cette idée. Voici le code à écrire :

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
24
25
26
27
28
Sub Chargement()
'
' Macro Chargement
'
'
    Worksheets("Feuil3").Select
    Range("A1").Activate
    ChDir "C:\Users\Desktop\"
    Workbooks.OpenText Filename:= _
        "C:\Users\Desktop\monTexte.txt", _
        Origin:=65001, 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)), TrailingMinusNumbers:= _
        True
 
    Cells.Select
    Selection.Copy
 
    Windows("monFichierExcel.xls").Activate
    Worksheets("Feuil3").Select
    Range("A1").Activate
    ActiveSheet.Paste
    Application.DisplayAlerts = False
    Workbooks("fichierTexte.txt").Close SaveChanges:=False
 
End Sub

[Menhir]

Plus simplement (pour la seconde partie) en évitant les Select et Activate :

Code :

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

1
2
3
ActiveSheet.UsedRange.Copy Workbooks("monFichierExcel.xls").Worksheets("Feuil3").Range("A1")
    Application.DisplayAlerts = False
    Workbooks("fichierTexte.txt").Close SaveChanges:=False