Macro (Résolu)

[Cougar]

Bonjour le forum,

Je cherche comment écrire une ligne de code qui sera activé pour un bouton :

Données/À partir du texte

L'enregistrement de macro ne fonctionne pas pour cela.

Merci

 

[Staple1600]

Re : Macro

Bonsoir


Je ne vois sur ruban de Données/A partir du texte
j'ai par contre un Données/Importer Fichier Texte
et l'enregistreur de macros fonctionne pour cela (voir ci-dessous)

Sub Macro1()
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Temp\textfile.txt", _
        Destination:=Range("$A$1"))
        .CommandType = 0
        .Name = "textfile"
        .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 = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

 

[st007]

Re : Macro

Bonsoir,

j'utilisais aussi l'enregistreur de macro qui me donne ceci

Sub Collecte1_25()
Sheets("I9000001").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Documents and Settings\examen\I9000001.txt" _
, Destination:=Range("$A$1"))
.Name = "I9000001"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(13, 4, 12, 45)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

A voir ce que tu veux importer comme texte, format de colonne, séparateur de colonne etc

 

[Cougar]

Re : Macro

Bonjour Staple 1600, st007, le forum,

L'enregisteur ne fonctionne pas de mon côté d'où ma demande.

Merci

 

[Staple1600]

Re : Macro (Résolu)

Bonsoir à tous

Cougar

L'enregisteur ne fonctionne pas de mon côté d'où ma demande.

Il fonctionne chez st007 et chez moi 😉
Pourquoi ne fonctionnerait-il pas chez toi ??