Importer fichier ".txt" en fonction du choix dans combobox

[iStarOSX]

Bonsoir à tous, j'ai a nouveau un problème auquel je ne trouve pas de solution sur le forum et vois donc a nouveau obligé de faire appel aux expert d'Excel !!!

J'ai un USF dans lequel j'ai un combobox qui détecte les fichiers aux format "CAT_*.txt" dans le sous répertoire de mon classeur "*\Catalogues", grace au code suivant :

Option Explicit
Dim Chem$

Private Sub Ini()
Dim Chem$, i&, Fs, Nbr&
  Chem = ThisWorkbook.Path & "\Catalogues"
  Nbr = Len(Chem) + 2
  Set Fs = Application.FileSearch
  ComboBox1.Clear

  With Fs
    .LookIn = Chem
    .Filename = "CAT_*.txt"
    If Fs.Execute > 0 Then
      For i = 1 To .FoundFiles.Count
        ComboBox1.AddItem Mid(.FoundFiles(i), Nbr)
      Next i
    Else
      MsgBox ("Pas de catalogue de radiateurs")
    End If
  End With
End Sub

Private Sub UserForm_Activate()
  Ini
  Chem = ThisWorkbook.Path & "\Catalogues"
  If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

En suite avec un bouton je voudrais importer le fichier choisi dans le combobox, mais je n'arrive pas a trouver le bon code :

Private Sub CommandButton1_Click()

Whem = ThisWorkbook.Path & "\Catalogues"

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chem & ComboBox1.Value _
        , Destination:=Range("A3"))
        .Name = ComboBox1.Value
        
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

End Sub

Et donc je cherche la bonne solution.

Que dois je modifier ?

Si quelqu’un peu m'aider, merci beaucoup.

 

[Pierrot93]

Re : Importer fichier ".txt" en fonction du choix dans combobox

Bonsoir,

modifie peut être comme suit :

Whem = ThisWorkbook.Path & "\Catalogues\"

A voir ensuite ce que vaut tes differentes variables et la valeur de la combo...

bonne soirée
@+

 

[iStarOSX]

Re : Importer fichier ".txt" en fonction du choix dans combobox

Merci cela fonctionne maintenant.

et en plus il y avait une erreur de frappe.

Au lieu de chem, j'avais mis whem

Merci a toi et a bientôt.

 

[Pierrot93]

Re : Importer fichier ".txt" en fonction du choix dans combobox

Bonjour,

et en plus il y avait une erreur de frappe.

Au lieu de chem, j'avais mis whem

pour éviter ce genre de désagrément, à placer en tête de module :

Option Explicit

ou bien dans l'éditeur vba => barre de menu => outils => options => onglet "éditeur", cocher "déclaration des variables obligatoire"....
ce qui obligera à ce que tu déclares toutes tes variables, de ce fait une telle erreur serait trèsd rapidement détectée lors de la compilation...

bonne journée
@+