Discussion :

[Georges Plétinckx]

Bonjour,

Dans un fichier Excel (appelé résumé.xlsm), je fais un résumé d'autres fichiers Excel. Je n'ouvre qu'un fichier à la fois. Donc, j'ouvre test1.xlsx puis résumé.xlsm. Je lance ma macro qui va copier des éléments de test1 dans résumé. Puis je ferme test1 et j'ouvre test2. Mon problème: identifier le fichier test1 dans la macro, puis test2.
Voici mon code:

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
Sub Macro2()
'
' Macro2 Macro
'
Dim wb As Workbook
Set wb = Workbooks(1)
 
    Application.ScreenUpdating = False
    ActiveCell.FormulaR1C1 = "=[wb]Feuil1!R1C1"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[wb]Feuil1!R3C2"
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[wb]Feuil1!R5C2"
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[wb]Feuil1!R7C2"
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Quelqu'un peut m'aider?

D'avance merci.

Georges

[Georges Plétinckx]

En réalité je ne veux pas copier des cellules d'un fichier à l'autre. Je veux créer dans Résumé des formules du type "=cellule 1,1 " du fichier test1 puis du test2 ...
Je dois donc remplacer le nom du fichier source par le nom du fichier ouvert. Comment régler ce problème de nom de fichier?

[louisapt]

Bonjour ,
j'ai un peu de mal à comprendre ce que tu cherches à faire, je me trompe peut être mais j'ai l'impression que tu cherches à récupérer les données des fichiers test sans avoir à aller dans le code à chaque fois pour remplacer Workbooks("test1.xlsx") par Workbooks("test2.xlsx") etc
Si c'est bien ca je me suis servis il n'y a pas longtemps d'une macro qui permet de sélectionner son fichier et d'en sortir le nom dans une variable de type string pour ensuite s'en servir comme on veut et ne pas dépendre du nom du fichier source qui peut varier
Je te met le code la si jamais c'est ce que tu recherches

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
 
Public Chemin_fichier_test As String    'contient le chemin du fichier
Public fichier_test As String           'contient le nom du fichier
Dim p As Integer                        'position du \ dans le chemin du fichier
Dim fp As Integer                       'position finale du \ dans le chemin du fichier
 
Sub recup_nom_fichier()
    p = 0
 
 
    Chemin_fichier_test = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
    Do
        p = InStr(p + 1, Chemin_fichier_test, Chr(92))   'recherche de " \ " dans le chemin du fichier
            If (p <> 0) Then
                fp = p                                      'enregistre la position du " \ "
            End If
        Loop While (p <> 0)
        fichier_test = Mid(Chemin_fichier_test, fp + 1)              'extrait le nom du fichier dans le chemin
        MsgBox fichier_test                                          'optionnel (sécurité pour tester son code)
End Sub

En espérant que ce soit bien ce que tu cherches