Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1226 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  macro Excel import csv

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

macro Excel import csv

n°2239912
gunvill
Posté le 09-10-2014 à 19:07:36  profilanswer
 

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
mood
Publicité
Posté le 09-10-2014 à 19:07:36  profilanswer
 

n°2239916
Marc L
Posté le 09-10-2014 à 19:57:07  profilanswer
 

 
           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 !
 

n°2239919
gunvill
Posté le 09-10-2014 à 20:12:30  profilanswer
 

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
n°2239923
gunvill
Posté le 09-10-2014 à 21:16:12  profilanswer
 

ç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!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  macro Excel import csv

 

Sujets relatifs
Codes pour les Boutons d'un formulaire sur Excel[Excel 2010] Formulaire de recherche multi-listbox
[Excel] Afficher un bouton sous condition : RésoluCharger une image ou fichier dans excel via macro
Excel : Résumé / Liste déroulanteProblème Macro excel 2007
imprimer plusieurs tickets base excelimport base oracle
problème macro import fichier text excel 
Plus de sujets relatifs à : macro Excel import csv

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.051 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR