XL 2013 Copier une même cellule de plusieurs feuilles Excel dans un autre classeur

[Yuby]

Bonjour,

Après plusieurs recherche je n'ai pas trouvé la solution. Je tente ma chance ici.

Dans le Classeur N°1, j'ai plusieurs feuilles Excel toutes identiques au niveau de la mise en forme avec juste les valeurs qui changent. Je veux mettre dans le Classeur N°2 une feuille récap en mettant dans la colonne C les valeurs des Cellules F8 de toutes les feuilles du classeur N°1, sans faire de copier coller car en déroulant le lien créé, la feuille ne change pas automatiquement.

Est ce que quelqu’un aurait une solution, sans faire de macro si possible. Si vous avez une solution avec macro je suis preneuse quand même !

Merci !

 

[job75]

Bonjour Yuby, bienvenue sur XLD,

Pourquoi pas tout simplement des formules de liaison ?

A+

 

[Yuby]

Bonjour Yuby, bienvenue sur XLD,

Pourquoi pas tout simplement des formules de liaison ?

A+

Bonjour, Merci !


Parce que il me semble qu'en faisant cela je dois changer le numéro de la feuille manuellement (à moins que je ne connaisse pas l'astuce pour le faire automatiquement). Cependant, j'en ai beaucoup et je voudrais que cela se fasse automatique pour éviter toutes erreurs de saisie.

 

[job75]

Dans ce cas il faut mettre une macro dans le 2ème fichier.

Par exemple une Workbook_Activate dans ThisWorkbook qui se déclenche quand le classeur est activé.

 

[Yuby]

Dans ce cas il faut mettre une macro dans le 2ème fichier.

Par exemple une Workbook_Activate dans ThisWorkbook qui se déclenche quand le classeur est activé.

Est ce que vous avez un exemple a proposer ? Je ne suis pas encore très douée en macro sur excel.

 

[job75]

Téléchargez les 2 fichiers joints dans le même dossier (le bureau).

Ouvrez le fichier .xlsm, cette macro dans ThisWorkbook s'exécute automatiquement :

Private Sub Workbook_Activate()
Dim chemin$, fichier$, cellule$, F As Worksheet, ouvre As Boolean, w As Worksheet, n%
chemin = ThisWorkbook.Path & "\"
fichier = "Classeur1.xlsx"
cellule = "F8"
Set F = ThisWorkbook.Sheets("récap")
Application.ScreenUpdating = False
On Error Resume Next
F.Range("C2:C" & F.Rows.Count).ClearContents 'RAZ
Workbooks(fichier).Activate
If Err Then Err = 0: Workbooks.Open (chemin & fichier): ouvre = True
If Err Then MsgBox "'" & chemin & fichier & "' introuvable !", 48: Exit Sub
n = 1
For Each w In ActiveWorkbook.Worksheets
    n = n + 1
    F.Cells(n, 3) = w.Range(cellule).Value 'copie la valeur
Next w
Application.EnableEvents = False 'désactive les évènements
If ouvre Then ActiveWorkbook.Close False Else F.Activate
Application.EnableEvents = True 'réactive les évènements
End Sub

 

[Yuby]

Téléchargez les 2 fichiers joints dans le même dossier (le bureau).

Ouvrez le fichier .xlsm, cette macro dans ThisWorkbook s'exécute automatiquement :

Private Sub Workbook_Activate()
Dim chemin$, fichier$, cellule$, F As Worksheet, ouvre As Boolean, w As Worksheet, n%
chemin = ThisWorkbook.Path & "\"
fichier = "Classeur1.xlsx"
cellule = "F8"
Set F = ThisWorkbook.Sheets("récap")
Application.ScreenUpdating = False
On Error Resume Next
F.Range("C2:C" & F.Rows.Count).ClearContents 'RAZ
Workbooks(fichier).Activate
If Err Then Err = 0: Workbooks.Open (chemin & fichier): ouvre = True
If Err Then MsgBox "'" & chemin & fichier & "' introuvable !", 48: Exit Sub
n = 1
For Each w In ActiveWorkbook.Worksheets
    n = n + 1
    F.Cells(n, 3) = w.Range(cellule).Value 'copie la valeur
Next w
Application.EnableEvents = False 'désactive les évènements
If ouvre Then ActiveWorkbook.Close False Else F.Activate
Application.EnableEvents = True 'réactive les évènements
End Sub

Je vous remercie beaucoup pour votre aide. Cependant j'ai trouvé la solution sans utilisé de macro. Les fonctions concaténer et indirect m'ont aidé à résoudre ce problème

 

[job75]

C'est connu : la fonction INDIRECT ne fonctionne plus quand le fichier source est fermé.