Discussion :

[Malick]

Bonjour,

Je souhaiterais compléter corriger ce script afin de coller les données importées sur ma feuille GL à partir de la cellule A2. Ici, je j'ai sélectionné la feuille entière de la source, sûrement le souci est à ce niveau, car Excel m'impose de coller à partir de la cellule A1.

Merci pour votre aide

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub ImporterGL()
 
   Dim FichierImport As String, ClasseurOrigine As Workbook, GL As String
   'sélection du fichier
   With Application.FileDialog(msoFileDialogFilePicker)
      .InitialFileName = ThisWorkbook.Path
      .Title = "Sélectionner le fichier à importer"
      .Filters.Add "Excel Files", "*.xlsx; *.xls, 1"
      If .Show = -1 Then
         FichierImport = .SelectedItems.Item(1)
         End If
   ' Collage des données sur la feuille GL à partir de la cellule A2
       Set ClasseurOrigine = Workbooks.Open(FichierImport)
            With ClasseurOrigine
                Sheets(1).Select 'Onglet activé
                Cells.Select 'Feuille entièrement sélectionnée
                Selection.Copy
 
                ThisWorkbook.Activate '
                ActiveSheet.Select 'Onglet activé, ici la feuille GL
                Range("A1").Select
                Selection.PasteSpecial Paste:=xlAll 'Collage
            ClasseurOrigine.Activate 'Fichier sélectionné activé
            Application.CutCopyMode = False
            ActiveWindow.Close SaveChanges:=False 'Fermeture du fichier sélectionné 
 
            End With
 
   End With
 
 
End Sub

[Malick]

Finalement j'arrive à peu près à ce que je veux avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
 
Sub ImporterGL()
 
   Dim FichierImport As String, ClasseurOrigine As Workbook, GL As String
   'sélection du fichier
   With Application.FileDialog(msoFileDialogFilePicker)
      .InitialFileName = ThisWorkbook.Path
      .Title = "Sélectionner le fichier à importer"
      .Filters.Add "Excel Files", "*.xlsx; *.xls, 1"
      If .Show = -1 Then
         FichierImport = .SelectedItems.Item(1)
         End If
   ' Collage des données sur la feuille GL à partir de la cellule A2
       Set ClasseurOrigine = Workbooks.Open(FichierImport)
            With ClasseurOrigine
                Sheets(1).Select 'Onglet activé
                Range("A:I").Select 'Sélection des colonnes à copier
                Selection.Copy
 
                ThisWorkbook.Activate '
                ActiveSheet.Select 'Onglet activé, ici la feuille GL
                Range("A:I").Select
                Selection.PasteSpecial Paste:=xlPasteValues 'Collage
            ClasseurOrigine.Activate 'Fichier sélectionné activé
            Application.CutCopyMode = False
            ActiveWindow.Close SaveChanges:=False 'Fichier sélectionné fermé
 
            End With
 
   End With
 
End Sub

Sauf que avec cette ligne, le collage ne commence pas par A2 (ce que je cherche à faire) :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A:I").Select
     Selection.PasteSpecial Paste:=xlPasteValues 'Collage

Merci d'avance pour votre aide

[Malick]

Et voilà, avec les tableaux structurés, mon problème est réglé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub ImporterGL()
 
   Dim FichierImport As String, ClasseurOrigine As Workbook, GL As String
   'sélection du fichier
   With Application.FileDialog(msoFileDialogFilePicker)
      .InitialFileName = ThisWorkbook.Path
      .Title = "Sélectionner le fichier à importer"
      .Filters.Add "Excel Files", "*.xlsx; *.xls, 1"
      If .Show = -1 Then
         FichierImport = .SelectedItems.Item(1)
         End If
   ' Collage des données sur la feuille GL à partir de la cellule A2
       Set ClasseurOrigine = Workbooks.Open(FichierImport)
            With ClasseurOrigine
                Sheets(1).Select 'Onglet activé
                ' Tableau1 : transformation du GL importé en Tableau Structuré
                ActiveSheet.ListObjects("Tableau1").DataBodyRange.Select 'Sélection du contenu du Tableau1
                Selection.Copy ' Copie du contenu du Tableau1
 
                ThisWorkbook.Activate
                ActiveSheet.Select 'Onglet activé, ici la feuille GL ou se situe le bouton d'importation des données du Tableau1
                ActiveSheet.ListObjects("Tableau_GL").DataBodyRange.Select  ' Tableau_GL se trouve sur la feuille GL. C'est le tableau structuré de lequel seront collées les données copiées
                Selection.PasteSpecial Paste:=xlPasteValues 'Collage
            ClasseurOrigine.Activate 'Fichier sélectionné activé
            Application.CutCopyMode = False
            ActiveWindow.Close SaveChanges:=False 'Fichier sélectionné fermé
 
            End With
 
   End With
 
 
End Sub

Merci à ceux qui liront.

Je suis preneur pour une version plus propre

[benoitdevries]

Bonjour Malik,

tu peux alléger ton code notamment en déclarant tes Tableaux structurés. Ils appartiennent à ton fichier, et pas seulement à une feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim t_source as listobject
set t_source = range("Tableau1").listobject
 
dim t_GL as listobject
set t_GL = range("Tableau_GL").listobject

Ce qui te permet ensuite de les manipuler plus simplement.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
t_source.databodyrange.copy 'je copie l'intégralité du tableau source
t_GL.databodyrange.listrows.add PasteSpecial Paste:=xlPasteValues 'copie du tableau source à la ligne suivante du tableau_GL

[Malick]

Salut benoitdevries,

Merci pour ton retour

Je regarde cela et l'intègre.

Bonne journée