VBA - Sélection fichier texte puis conversion automatique

[neal]

Bonjour à tous,

J’essaye de créer une macro permettant à l’utilisateur de cliquer sur un bouton dans Excel pour ouvrir une boîte de dialogue pour aller chercher un fichier à n’importe quel endroit.
Ce fichier est au format texte, il faut donc le convertir et je n’arrive pas à le faire automatiquement, et surtout quelque soit le nombre de lignes et de colonnes : les boîtes de dialogue de conversion apparaissent toujours, l’utilisateur est obligé de cliquer sur suivant>suivant>terminer).

Comment faire pour combiner les deux macros suivantes ?

Macro permettant d’ouvrir n’importe quel fichier à partir d’un bouton sous Excel :

Dim Fichier_traité As String
Application.Dialogs(xlDialogOpen).Show
Fichier_traité = ActiveWorkbook.Name
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1)
Windows(Fichier_traité).Close Savechanges:=False

Ma macro enregistrée pour ouvrir le fichier texte (bloc-notes) :

Workbooks.OpenText Filename:= _
"D:\Gd livre 010114 310514.txt" _
, Origin:=932, 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), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1)), _
TrailingMinusNumbers:=True

 

[Pierrot93]

Re : VBA - Sélection fichier texte puis conversion automatique

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "ma descrip", "*.txt"
    .Show
    If .SelectedItems.Count > 0 Then
        Workbooks.OpenText Filename:=.SelectedItems(1), Origin:=932, 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), Array(7, 1), Array(8, 1), _
         Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1)), _
         TrailingMinusNumbers:=True
    End If
End With
End Sub

bonne journée
@+

 

[neal]

Re : VBA - Sélection fichier texte puis conversion automatique

Woaw, merci pour la réponse super rapide, et merci pour la macro qui fonctionne à merveille (même si je ne la comprends pas!)

Du coup, j'en profite pour aller jusqu'au bout de mon "besoin"

Une fois le fichier ouvert et converti dans Excel, j'ai une autre macro à faire tourner (voir ci-dessous) qui permet de retraiter les données comme je le souhaite. J'ai essayé de la combiner à la tienne, mais ça ne marche pas...

Set zone = ActiveSheet.UsedRange.Rows
ActiveSheet.Rows(2).Copy (ActiveSheet.Rows(1))
For Each i In zone
If i.Row <> 1 Then
If IsDate(i.Columns(1)) = False And IsNumeric(i.Columns(3)) = False And i.Row <> 1 Then
i.Columns(1) = "efface"
End If
If IsDate(i.Columns(1)) = False And IsNumeric(i.Columns(2)) = True Then
compte = i.Columns(2)
End If
If IsDate(i.Columns(1)) = True Then
i.Columns(7) = compte
End If
End If
Next
For Each i In zone
If i.Columns(1) = "efface" Then i.EntireRow.Clear
Next
For Each i In zone
If IsDate(i.Columns(1)) = False And i.Row <> 1 Then i.EntireRow.Clear
Next
ActiveSheet.UsedRange.Sort key1:=ActiveSheet.Columns(1), Header:=xlYes