Se connecter / S'enregistrer
Votre question
Résolu

Ouvrir des fichier txt a partir d'un fichier excel en vba

Tags :
  • Microsoft Excel
  • Programmation
Dernière réponse : dans Programmation
20 Avril 2017 11:12:29

Bonjour

J'ai un fichier excel tbt et j'aimerais avoir une macro( qui m'ouvrira tout seul des fichiers txt qui sont situer tous au même endroit sur le bureau). et sur ces fichiers txt j'effectue d'autre macro(du style des opération ) qui se placeront dans mon fichier excel tbt.
sachant que j'ai tout les mois des nouveaux fichiers txt (au moins 60) j'aimerais automatiser ce travail mais je vois pas du tout comment faire cette macro

Merci infiniment pour votre précieuse aide

Autres pages sur : ouvrir fichier txt partir fichier excel vba

a b L Programmation
24 Avril 2017 08:52:49

Salut Aude,
toujours d'actualité ?
m
0
l

Meilleure solution

24 Avril 2017 10:35:39

Bonjour Drul
j'ai trouver comment faire merci beaucoup

  1. Sub ImportTxtFile()
  2. Dim MainWbk As String
  3. Dim lngCount As Long
  4.  
  5.  
  6. MainWbk = ActiveWorkbook.Name
  7.  
  8. With Application.FileDialog(msoFileDialogOpen)
  9. .AllowMultiSelect = True
  10. .Show
  11. Application.ScreenUpdating = False
  12. For lngCount = 1 To .SelectedItems.Count
  13.  
  14. Workbooks.OpenText Filename:=.SelectedItems(lngCount), _
  15. Origin:=65001 _
  16. , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
  17. ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
  18. , Space:=False, Other:=False _
  19. , FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
  20. Array(7, 4), Array(8, 4), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), _
  21. Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 4), _
  22. Array(21, 4), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), _
  23. Array(28, 1), Array(29, 1), Array(30, 1)), _
  24. TrailingMinusNumbers:=True
  25. Sheets(1).Move After:=Workbooks(MainWbk).Sheets(Workbooks(MainWbk).Sheets.Count)
  26. Next lngCount
  27. End With
  28.  
  29. End Sub

partage