Discussion :

[KENT74700]

Bonjour,
J'ai une centaines de fichier excel, tous identiques (au niveau du format) que je veux synthétiser dans un seul fichier excel de RECAP
Ces fichiers sont tous nommé de la façon suivante
101.xlsx
103.xlsx
.....
198.xlsx
201.xlsx
203.xlsx
Sur chacun de ces fichiers je souhaite seulement récupérer la ligne 5 de la feuille 2.

Dans le fichier RECAP, j'ai la colonne B nommée "fichier source"
(C'est là ou ça se complique....) Je voudrais que lorsque je tape le nom d'un fichier source, dans la colonne B, par exemple 198, la ligne 5 de la feuille 2 du fichier 198, s'affiche à la suite, à partir de la colonne C dans RECAP

Voila j'espère que j'ai été clair, merci d'avance pour votre aide.

[EBRAG]

Bonjour,

attention, je n'ai pas testé le code suivant ! un peu d'indulgence s'il ne fonctionne pas comme prévu !

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
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim oCell As Range
  Dim oClassAct As Workbook
  Dim oClassSource As Workbook
  Set oClassAct = ActiveWorkbook
  For Each oCell In Target
    If oCell.Column = 2 Then
      On Error Resume Next
      Err.Clear
      Workbooks.Open ActiveWorkbook.Path & "\" & oCell & ".xls", False, False
      If Err.Number <> 0 Then
        MsgBox "Fichier non trouvé ! etc...."
        On Error GoTo 0
        Exit Sub
      End If
      Set oClassSource = ActiveWorkbook
      Worksheets(2).Activate
      Range("A5:Z5").Copy
      oClassAct.Activate
      oCell.Offset(0, 1).PasteSpecial xlPasteAll
      oClassSource.Close False
    End If
  Next
End Sub

reste plus qu'à nous dire si ça roule !

[KENT74700]

D'accord je vois un peu l'idée, par contre je débute vraiment en VBA... donc serait il possible d'avoir un peu plus de détail sur ce code.

Merci

[EBRAG]

ce code est à installer dans la partie privée de ta feuille récap

Dans la fenêtre VBA Project, double-clic sur le nom de ta feuille récap qui doit recevoir l'info et balance le code.

Pour ce qui est du détail plus explicite du code, pas trop le temps là tout de suite... mais tu peux aller consulter les sites des différents contributeurs de ce forum, en cliquant sur leur nom et suivre le lien site Web (Mon nom à moi, c'est EBRAG !)

Bonne chance, et fais-nous le retour pour savoir si c'est OK !

[KENT74700]

D'accord moi je mettais dans un module....

Sinon, là j'en suis au stade ou lorsque je rentre le numéro de fichier par exemple 108 dans une ligne de la colonne B, j'ai la message box qui s'affiche "fichier introuvable"...
C'est justement là, où je comprend pas trop le code:

Code :

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

1
2
3
4
5
6
7
8
9
If oCell.Column = 2 Then
      On Error Resume Next
      Err.Clear
      Workbooks.Open ActiveWorkbook.Path & "\" & oCell & ".xls", False, False
      If Err.Number <> 0 Then
        MsgBox "Fichier non trouvé ! etc...."
        On Error GoTo 0
        Exit Sub
End If

Mon fichier 108.xlsx doit-il être ouvert et doit-il, lui, prendre en compte les macros?

Merci d'avance.

[EBRAG]

le message dit "fichier introuvable" ou "Fichier non trouvé ! etc...." ?

ce qui n'est pas du tout la même chose !

le fichier 108.xls est-il dans le même dossier que Recap ? si c'est un xlsx, il faut remplacer xls par xlsx bien entendu dans le code !