XL 2016 Mise en forme fichier texte sous excel

[VBA]

Bonjour,

J'extraie un fichier texte depuis un erp que je voudrais mettre en forme sur excel, j'ai deja un bout de code qui le fait mais j'aurais besoin de votre aide pour la sélection du fichier texte. Je voudrais avoir l'affichage d'une fenêtre pour le choix du fichier, si c'est possible bien sûr.

Voici le bout de code que j'ai actuellement:

Sub mef()
  Range("A1").Select
  With ActiveSheet.QueryTables.Add(Connection:= _
  "TEXT;c:\user\U538819\test\job17.5.2018.txt", Destination:=Range("$A$1"))
  .CommandType = 0
  .Name = "job17.5.2018"
  .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 = 10
  .TextFileParseType = xlDelimited
  .TextFileTextQualifier = xlTextQualifierDoubleQuote
  .TextFileConsecutiveDelimiter = False
  .TextFileTabDelimiter = True
  .TextFileSemicolonDelimiter = False
  .TextFileCommaDelimiter = False
  .TextFileSpaceDelimiter = False
  .TextFileOtherDelimiter = "|"
  .TextFileColumnDataTypes = Array(9, 1, 1, 1)
  .TextFileTrailingMinusNumbers = True
  .Refresh BackgroundQuery:=False
  End With
  Columns("A:A").ColumnWidth = 5.71
End Sub

Merci.

 

[VBA]

J'ai pu récupérer le fichier via get open filename mais j'ai une erreur qui se produit mais je ne comprend avec son nom. Quand je le rajoute dans le code pour la mise en forme sa m'affiche une erreur Argument ou appel de procédure incorrect.

Voici mon code :

Sub mef()

stFichier = Application.GetOpenFilename
tmpStr = Split(stFichier, "\")
nomF = tmpStr(UBound(tmpStr))

  Range("A1").Select
  With ActiveSheet.QueryTables.Add(Connection:= _
  "TEXT;c:\user\U538819\test\" & nomF, Destination:=Range("$A$1"))
  .CommandType = 0
  .Name = nomF
  .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 = 10
  .TextFileParseType = xlDelimited
  .TextFileTextQualifier = xlTextQualifierDoubleQuote
  .TextFileConsecutiveDelimiter = False
  .TextFileTabDelimiter = True
  .TextFileSemicolonDelimiter = False
  .TextFileCommaDelimiter = False
  .TextFileSpaceDelimiter = False
  .TextFileOtherDelimiter = "|"
  .TextFileColumnDataTypes = Array(9, 1, 1, 1)
  .TextFileTrailingMinusNumbers = True
  .Refresh BackgroundQuery:=False
  End With
  Columns("A:A").ColumnWidth = 5.71
End Sub

Voila et merci.

 

[Dranreb]

Bonjour.
Essayez ce début :

Sub mef()
   Dim ChNomF
   ChDrive "C": ChDir "c:\user\U538819\test"
   ChNomF = Application.GetOpenFilename("Texte,*.txt")
   If VarType(ChNomF) <> vbString Then Exit Sub
   With ActiveSheet.QueryTables.Add(Connection:= _
      "TEXT;" & ChNomF, Destination:=Range("$A$1"))

 

[VBA]

Toujours la même erreur :

🙁

 

[Dranreb]

À quelle instruction ?

 

[VBA]

Il ne me dit pas pour quelle instruction, ya juste cette erreur qui apparait.

 

[Dranreb]

Je suppose que votre Sub mef est écrite dans un module objet et non dans un module standard ?
Si c'est le cas, dans VBA, menu Outils, Options…, onglet Général, rubrique Récupération d'erreur, cochez Arrêt dans le module de classe et réessayez.
Sinon mettez un point d'arrêt au début et déroulez en pas à pas jusqu'à tomber sur l'instruction qui plante.

 

[VBA]

   .CommandType = 0

Sa s'arretait sur cette ligne ducoup je l'ai mis en commentaire et sa marche.
Merci