Bonjour,

Je sais que vous n'êtes pas une société de services en ingénierie informatique. Mais j'ai vraiment besoin de votre aide.

Voici
Je souhaite que sur une feuille il y ait un bouton en cliquant sur ce dernier il me propose d'ouvrir un classeur, puis recherche dans la première colonne 2015. Pour chaque ligne où dans la 1ère colonne il y a 2015 la sélectionner et la copier dans mon classeur d'origine sur une autre feuille que celle où il y a le bouton. puis répéter l’opération pour 10 fichiers différents que je souhaite choisir comme lorsqu'on utilise Application.Workbooks.Open Application.GetOpenFilename().
je suppose utiliser :

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
 
Public FeuilleSynFi As Worksheet
Public Const SynFi_NumColRubrique As Integer = 1
Public ListeFE As Worksheet
 
Sub Upload_synth()
       Application.Workbooks.Open Application.GetOpenFilename()
          If (FichierSelectionne = "") Then
              ' Pas de fichier sélectionné
              AbandonneTraitement = True 
 
          Else
For j = 1 To 100000
    If (FeuilleSynFi.Cells(SynFi_NumLig, SynFi_NumColRubrique).Value = "2015" & "*") Then
                Rows(ActiveCell.Row).Select
                Selection.Copy
                Selection.Paste Destination:=ListeFE.Cells(LastRow, j + 1)
       Next for
 End If
 
End Sub
Mais je n'y arrive pas du tout.

Merci de votre aide.