Macro import fichier excel

Version imprimable

Bonjour à tous !

Ayant épuisé tout mon potentiel de recherche ces derniers jours sans pour autant aboutir, je vous sollicite pour quelques conseils ou un petit coup de main ;) !

Mon objectif est simple : Je possède plusieurs fichiers (avec plusieurs onglets) possédant tous la même structure. Je désire les analyser/comparer dans un fichier global. Le but est donc de pouvoir importer tel ou tel fichier dans l'excel d'analyse en créant un nouvel onglet à chaque fois.

Je suis pour l'heure capable d'importer les données en codant en dur la localisation des fichiers. Mais mon objectif est de pouvoir in fine choisir quel(s) fichier(s) je désire importer.

Je n'ai pas réussi à aboutir à l'aide d'une userform. Pour le moment j'en suis rendu à utiliser les fonctions suivantes (la première devrait me permettre de récupérer le nom du fichier choisi et la seconde importer le fichier en question) mais je n'arrive pas à faire le lien entre les deux :
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 34 35 36 37 38 Sub Nom_fichier() With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show End With End Sub Sub Import_fichier() Set wbdest = ActiveWorkbook fichier = Dir("F:\AntoineSP\MacroExcel\Cas Test\*.xls") Do While fichier <> "" Set wbsource = Workbooks.Open("F:\AntoineSP\MacroExcel\Cas Test\" & fichier) 'open the file Set wksNewSheet = wbsource.Sheets("Feuil1") 'select the sheet where data is wksNewSheet.Activate 'activation of this sheet wksNewSheet.Select Range(Cells(2, 2), Cells(7, 5)).Select 'select the data you want to copy Selection.Copy 'copy the data selected wbdest.Activate 'activate the destination file i = ActiveSheet.UsedRange.Rows.Count 'count the number of line used in this file Range("A11") = i 'L'abscence de cette ligne induit une erreur de comptage malgré une valeur de i correcte... Cells(i + 2, 2).Select 'select the cells where you want to paste the data (from first free line) ActiveSheet.Paste 'paste the data wbsource.Close 'close the current source file fichier = Dir 'go to next file in the directory Loop 'restart the process with next file wbdest.Activate End Sub
Je vous remercie par avance pour vos petits conseils ;) !

12/05/2016, 12h22
Kiouane

Tu peux t'inspirer de ce code :

Code:

Application.GetOpenFilename("Classeur Excel, *.xls", , "Sélectionnez le fichier Restit souhaité")

Bonjour,

Essaies ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Nom_fichier()
Dim noms As Variant
Dim nom As Variant
  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    If .Show = -1 Then
      Set noms = .SelectedItems
    Else
      MsgBox "Annulé"
      Exit Sub
    End If
  End With
  For Each nom In noms
    MsgBox nom
  Next nom
End Sub

Bonjour,

Merci pour vos réponses !

J'ai finalement trouvé un moyen assez simple d'importer mes données dans un nouvel onglet à chaque fois. J'y ai meme ajouté un test pour verifier que le nom de l'onglet créé n'est pas déjà utilisé (cette partie reste encore à améliorer je reconnais. Celà nécessiterait une fonction renvoyant le nom de tous les onglets d'un tableur). Voici le code que j'utilise pour ceux qui seraient interéssés ;) :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Sub Import_Cas()
 
Dim Path As String
Dim resultat As String
Dim nbr As Integer
Dim InputFolder As String
    cas = InputBox("Texte ?", "Nom du cas étudié") 'La variable reçoit la valeur entrée dans l'InputBox
    cas2 = cas
Dim Ws As Worksheet
 
    For Each Ws In ThisWorkbook.Worksheets
    'Renvoie le nom de chaque feuille
   If Ws.Name = cas Then
 
  cas2 = InputBox("Texte ?", "Cas déjà utilisé : dernière chance !")
 
   Else
 
    End If
Next Ws
 
If cas <> cas2 Then
cas = cas2
Else
End If
 
    Dim shtoto As Worksheet
 
    Set shtoto = Sheets.Add(After:=Sheets("Pilotage"))
   shtoto.Name = cas2
 
 
Set wbdest = ActiveWorkbook
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
 
Path = Mid(InputFolder, 1, InStrRev(InputFolder, Application.PathSeparator))
 
 
fichier = Dir("F:\AntoineSP\MacroExcel\Cas Test\*.xlsx")
 
 
Do While fichier <> ""
 
Set wbsource = Workbooks.Open(Path & fichier) 'open the file
Set wksNewSheet = wbsource.Sheets("Feuil1") 'select the sheet where data is
wksNewSheet.Activate 'activation of this sheet
wksNewSheet.Select
Range(Cells(2, 2), Cells(7, 5)).Select 'select the data you want to copy
Selection.Copy 'copy the data selected
wbdest.Activate 'activate the destination file
 
Sheets(cas2).Select
i = ActiveSheet.UsedRange.Columns.Count 'count the number of line used in this file
 
If i = 1 Then
 
Cells(2, i).Select  'select the cells where you want to paste the data (from first free line)
ActiveSheet.Paste 'paste the data
 
Else
 
Cells(2, i + 2).Select 'select the cells where you want to paste the data (from first free line)
ActiveSheet.Paste 'paste the data
 
End If
 
wbsource.Close 'close the current source file
fichier = Dir 'go to next file in the directory
Loop 'restart the process with next file
wbdest.Activate
 
End Sub

13/05/2016, 12h03
Kiouane

Candide met ton code entre les balises [Code] pour une meilleure visibilité (Tu pourras les trouver en cliquant sur le # ).