Discussion :

[massol]

Bonjour,

J'utilise EXCEL 2003 et je souhaiterais pouvoir extraire depuis un fichier EXCEL (ouvert) des données situées dans un (ou plusieurs) fichier EXCEL fermé. Est-ce possible ? Dans l'affirmative, quelle procédure (macro ou autre) faut-il suivre ? Je précise que je ne suis qu'un débutant dans les macros EXCEL.

Pour être un peu plus clair (j'espère) :

Le fichier "A.xls" est ouvert.
Le fichier "B.xls" est fermé.
Dans le fichier A, je voudrais récupérer dans la cellule B2 (par ex.) une information située dans le fichier "B.xls" (fichier fermé) en cellule C2 (par ex.).

En vous remerciant par avance.

Cordialement.

[Michel_M]

Bonjour

ci joint un exemple à adapter

La macro:

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
Sub transferer()
Dim lig As Long
Dim recap As String, chemin As String, onglet As String
Dim fich As String
 
recap = ThisWorkbook.Name
onglet = "feuil1" ' A ADAPTER
chemin = ThisWorkbook.Path
Application.ScreenUpdating = False
Range("A2:A1000").ClearContents
lig = 2
 
ChDir chemin
fich = Dir("*.xls")
While fich <> ""
    If fich <> recap Then
        'source: instruction dite de "Walkenbach")
        Cells(lig, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fich & "]" & onglet & "'!R1C2")  'R1C2<==> B1
    lig = lig + 1
    End If
    fich = Dir
Wend
 
MsgBox "récapitulatif  terminé avec succès"
End Sub

[kiki29]

Salut,à voir également http://silkyroad.developpez.com/VBA/ClasseursFermes/

[massol]

Bonjour,

Je suis impressionné par la rapidité des retours et je vous en remercie vivement.

Si j'ai bien compris : on récupére dans le fichier "maitre.xls" (fichier ouvert) les informations des fichiers fermés SV1, SV2 et SV3.xls (info située en cellule B1). Ces infos sont retournées dans le fichier "maitre.xls" en cellules A3, A4 et A5 (j'ai #ref en cellule A2 ?).

Etant débutant (je me classerais d'ailleurs plutôt dans la rubrique "pour les nuls") j'ai beaucoup de mal à analyser la macro que vous avez créée. Pour faire court, j'essaie d'analyser chacune des lignes de votre macro pour comprendre comment elle fonctionne (que fait-elle ?) mais je n'y arrive pas.

Serait-il possible de mettre des commentaires pour toutes les lignes importantes de cette macro ? Comme l'on dit, je comprends vite mais il faut m'expliquer longtemps. Je ne suis par ailleurs pas du tout habitué à la façon d'écrire une macro (syntaxe très précise : recap = ThisWorkbook.Name).

Pour ce qui concerne cette macro, je ne trouve pas la (ou les) lignes permettant de définir où se trouvent les fichiers fermés, quelle est la cellule que l'on lit dans ces fichiers là, ... pas de trace des fichiers du type "SV1, SV2 SV3.xls ??

En vous remerciant par avance.

Cordialement.