VBA - Boite de dialogue ouverture de fichier + Convert

Bonjour à tous !

J'ai une question à vous poser.

Qui peut m'aider avec mon code VBA ?

Je vous explique ma situation:

J'ai un nouveau système qui me génère un certain nombre de fichiers .txt avec délimitation par tabulation.

Mon besoin est le suivant :

Ouvrir ces fichiers et les mettre au format (certaines colonnes texte, d'autre date etc...)

Puis ensuite je dois faire mon travail en les analysant.

Donc voici mon code:

Sub FormatExportSQ()

    Workbooks.OpenText Filename:= _
        "C:\Users\kar\Desktop\OrgItemAdminExport48230231686287283186136672.txt", _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
        Array(2, 1), Array(3, 1), Array(4, 2), 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 _
        , 2), 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)), _
        TrailingMinusNumbers:=True
End Sub

Je change à la main le nom du fichier dans mon code VBA.

Je souhaite pouvoir le changer en ouvrant une boîte de dialogue comme si je passais par "OUVRIR" un nouveau fichier via le ruban.

Merci d'avance pour votre aide.

Newbie2000

Le code pour sélectionner le fichier avec le "dialog box" est le suivant:

Public Function GetFile(Optional DefaultPath As String = "") As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFilePicker)
With fldr
    .Title = "Select the File"
    .AllowMultiSelect = False
    .InitialFileName = DefaultPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With
NextCode:
GetFile = sItem
Set fldr = Nothing
End Function

Cette fonction retourne le nom du fichier choisi par l'utilisateur. Tu peux donc utiliser ensuite comme le contenu d'une variable pour l'inclure dans ton code...

Excel-Malin a écrit :

Le code pour sélectionner le fichier avec le "dialog box" est le suivant:

Public Function GetFile(Optional DefaultPath As String = "") As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFilePicker)
With fldr
    .Title = "Select the File"
    .AllowMultiSelect = False
    .InitialFileName = DefaultPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With
NextCode:
GetFile = sItem
Set fldr = Nothing
End Function

Cette fonction retourne le nom du fichier choisi par l'utilisateur. Tu peux donc utiliser ensuite comme le contenu d'une variable pour l'inclure dans ton code...

Merci pour ta réponse aussi rapide.

Je pense qu'à la vue de mon code tu as du comprendre mon niveau très faible en VBA...

Arriverais-tu à rajouter ton code au mien pour que l'ensemble fonctionne ?

Parce que là tu m'as perdu, trop malin pour moi

Mais je pense que t'es trop loin pour moi, tu me proposes la Ferrari des réponses mais une simple FIAT m'aurait suffit.

Je souhaite juste ouvrir la fenetre normal comme quand tu passes par les boutons du ruban - Fichier - ouvrir

Suis-je assez claire ?

Merci encore pour ton aide