[XL-2007] Import CSV - conversion-copier/coller plage de cellules

Import CSV - conversion-copier/coller plage de cellules

bonjour,

je souhaite convertir un fichier liste.csv contenant un tableau NOM,PRENOM,GROUPE en une plage de cellule, copier la plage des nom|prenom|groupe dans un autre tableau .

le code ci-dessous a été réalisé à l'aide de l'enregistreur de macro....
ligne 9 (Range("A2:A150").Select) erreur d'exécution ' 1004 - erreur definie par l'application ou par l'objet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton5_Click()
Dim fichier_choisi As String
    'Application.ScreenUpdating = False
 
fichier_choisi = Application.GetOpenFilename("Excel Files (*.csv), .csv", , "sélectionner la liste des enfants de la colo des Myrtes  *.CSV (nom_prenom_groupe)")
Workbooks.Open Filename:=fichier_choisi
Worksheets("liste").Activate
'    *****************           convertir csv en tableau     *******
    Range("A2:A150").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
 
 
 '   *********  copier la plage de nomprenomgroupe   **********
 
 
    Range("A2:C150").Select
    Selection.Copy
 
   '*********************     coller la plage dans le tableau maitre   ******************
 
    Windows("assistant sanitaire2.0.xlsm").Activate
    Sheets("listing").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Application.ScreenUpdating = True
 
End Sub

merci pour votre aide

En ligne 9 mettez :

Code:

ActiveSheet.Range("A2:A150").Select

et ça devrait régler le problème.

Bonjour,

A tester pour la récup :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Recup()
 
    Dim Fe As Worksheet
    Dim fichier_choisi As String
 
    Set Fe = Worksheets("Feuil1")
 
    fichier_choisi = Application.GetOpenFilename("Excel Files (*.csv), .csv", , "sélectionner la liste des enfants de la colo des Myrtes  *.CSV (nom_prenom_groupe)")
 
    With Fe.QueryTables.Add("TEXT;" & fichier_choisi, Fe.Range("A1"))
 
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlDoubleQuote
        .Refresh
        '.Delete '<--- si on ne veux pas garder la liaison de la requête
 
    End With
 
End Sub