macro Excel import csv

macro Excel import csv - VB/VBA/VBS - Programmation

Marsh Posté le 09-10-2014 à 19:07:36    

Bonjour à tous,
 
 
Je cherche à faire une macro qui suite à l'appui sur un bouton permet de choisir un fichier csv et d'en importer les données dans un onglet "Data".
 
Je précise que je suis un complet novice en VB...
 
J'utilise le code suivant :
 

Code :
  1. Sub Rectangle1_Cliquer()
  3.      Dim fStr As String
  5.     With Application.FileDialog(msoFileDialogFilePicker)
  6.         .Show
  7.         If .SelectedItems.Count = 0 Then
  8.             MsgBox "Cancel Selected"
  9.             Exit Sub
  10.         End If
  11.         'fStr is the file path and name of the file you selected.
  12.         fStr = .SelectedItems(1)
  13.     End With
  15.     With ThisWorkbook.Sheets("Data" ).QueryTables.Add(Connection:= _
  16.     "TEXT;" & fStr, Destination:=Range("$A$1" ))
  17.         .Name = "CAPTURE"
  18.         .FieldNames = True
  19.         .RowNumbers = False
  20.         .FillAdjacentFormulas = False
  21.         .PreserveFormatting = True
  22.         .RefreshOnFileOpen = False
  23.         .RefreshStyle = xlInsertDeleteCells
  24.         .SavePassword = False
  25.         .SaveData = True
  26.         .AdjustColumnWidth = True
  27.         .RefreshPeriod = 0
  28.         .TextFilePromptOnRefresh = False
  29.         .TextFilePlatform = 437
  30.         .TextFileStartRow = 1
  31.         .TextFileParseType = xlDelimited
  32.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  33.         .TextFileConsecutiveDelimiter = False
  34.         .TextFileTabDelimiter = True
  35.         .TextFileSemicolonDelimiter = False
  36.         .TextFileCommaDelimiter = True
  37.         .TextFileSpaceDelimiter = False
  38.         .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
  39.         .TextFileTrailingMinusNumbers = True
  40.         .Refresh BackgroundQuery:=False
  42.     End With
  44. End Sub


 
 
Cela marche plus ou moins. J'ai principalement 2 problèmes :
   - l'importation ne marche que si le bouton se situe dans l'onglet "Data" où je souhaite coller les informations du CSV. Comment faire pour qu'il n'y ait pas de relation entre l'onglet comportant le bouton et l'onglet où je souhaite coller les infos?
   - le collage des infos du CSV crée de nouvelles colonnes et décale les anciennes. Comment faire pour qu'il les remplace? Je suppose que cela vient du add de QueryTables.Add mais par quoi le remplacer?
 
Merci pour votre aide!


Message édité par gunvill le 09-10-2014 à 20:08:50
Reply

Marsh Posté le 09-10-2014 à 19:07:36   

Reply

Marsh Posté le 09-10-2014 à 19:57:07    

 
           Bonjour, bonjour !
 
           Merci d'utiliser l'icône dédié pour baliser le code, cela fera moins mal aux yeux et c'est plus facile pour indiquer un numéro de ligne !
 
           Activer la feuille avant la QueryTable pour voir …
 
           Revoir la propriété  RefreshStyle   pour les colonnes.
           Sinon sur un nouveau classeur activer le Générateur de macros puis paramétrer la QueryTable
           en prenant soin de bien remplir son assistant : le code est livré sur un plateau !
 

Reply

Marsh Posté le 09-10-2014 à 20:12:30    

Merci pour votre réponse.
 
Désolé pour les balises dédiées au code, je ne les avais pas vu.
 
Je vais essayé de décrypter vos informations, cela semble certainement facile mais je suis débutant donc ça risque de me prendre du temps^^


Message édité par gunvill le 09-10-2014 à 20:42:43
Reply

Marsh Posté le 09-10-2014 à 21:16:12    

ça marche!
 
Voilà le code suite aux indications de Marc L:
 

Code :
  1. Sub Rectangle1_Cliquer()
  3.      Dim fStr As String
  5.     With Application.FileDialog(msoFileDialogFilePicker)
  6.         .Show
  7.         If .SelectedItems.Count = 0 Then
  8.             MsgBox "Cancel Selected"
  9.             Exit Sub
  10.         End If
  11.         'fStr is the file path and name of the file you selected.
  12.         fStr = .SelectedItems(1)
  13.     End With
  15. Worksheets("Data" ).Activate
  17.     With ThisWorkbook.Sheets("Data" ).QueryTables.Add(Connection:= _
  18.     "TEXT;" & fStr, Destination:=Range("$A$1" ))
  19.         .Name = "CAPTURE"
  20.         .FieldNames = True
  21.         .RowNumbers = False
  22.         .FillAdjacentFormulas = False
  23.         .PreserveFormatting = True
  24.         .RefreshOnFileOpen = False
  25.         .RefreshStyle = xlOverwriteCells
  26.         .SavePassword = False
  27.         .SaveData = False
  28.         .AdjustColumnWidth = True
  29.         .RefreshPeriod = 0
  30.         .TextFilePromptOnRefresh = False
  31.         .TextFilePlatform = 437
  32.         .TextFileStartRow = 1
  33.         .TextFileParseType = xlDelimited
  34.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  35.         .TextFileConsecutiveDelimiter = False
  36.         .TextFileTabDelimiter = True
  37.         .TextFileSemicolonDelimiter = False
  38.         .TextFileCommaDelimiter = True
  39.         .TextFileSpaceDelimiter = False
  40.         .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
  41.         .TextFileTrailingMinusNumbers = True
  42.         .Refresh BackgroundQuery:=False
  44.     End With
  46. End Sub


 
Merci!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed