Récupérer des données dans différents onglets

Version imprimable

29/01/2024, 15h51
Murasakibara

1 pièce(s) jointe(s)

Récupérer des données dans différents onglets

Bonjour à tous,
J'aimerai mettre en place une macro mais je ne sais pas par quel bout commencer.
J'ai un fichier excel avec un
- onglet Recap
- 2 onglets par société
* a.xlsx(Total)
* a.xlsx(Détail) ou a.xlsx(Détails)
J'aimerai que la macro aille récupérer l'info de la feuille a.xlx(Total) au fomat texte et qu'elle le mette dans la cellule appropriée de l'onglet "Recap" au format nombre.
Et qu'elle aille récupérer le détail dans l'onglet a.xlx(Détail/Détails).
J'espère avoir été assez clair.
Ci-joint le fichier en exemplePièce jointe 649917
Merci pour votre aide
29/01/2024, 17h19
Tête de chat

Bonjour

pourquoi une macro ? Une formule devrait pouvoir faire ça très bien...

Par exemple pour récupérer le total :

Code:

=SIERREUR(INDIRECT("'"&B1&".xlsx(Total)'!B2");"Onglet non trouvé")

Après il faut un minimum de rigueur (quelle que soit la méthode) dans les règles de nommage : Détail ou Détails ?

Bonjour Tête de chat,
Je suis en phase d'apprentissage, c'est pour ça que je rédige une macro.
J'ai réussi à en faire une. elle me donne une erreur 13 au niveau

Code:

1
2
3
4
5
           If sht.Range("C38") <> "" Then
                RFI.Value = sht.Range("C38").Value
            Else
                RFI.Value = "-" + sht.Range("E39").Value
            End If

Voici mon code complet

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub RemplirTableau()
 
Dim ENTITE As Range
Dim RFI As Variant
Dim NomFeuilleA As String
Dim NomFeuilleAbis As String
Dim NomFeuilleImpotA As String
Dim NomFeuilleImpotB As String
Dim NomSociete As String
Dim shIFA As Worksheet
Dim sht As Worksheet
 
Set shIFA = Worksheets("IF Amundi")
'Boucle sue l'entité
For Each ENTITE In shIFA.Range("F7", shIFA.Range("F7").End(xlToRight)).Cells
    'Nom des feuilles
    NomFeuilleA = ENTITE & ".xlsx(2058A)"
    NomFeuilleAbis = ENTITE & ".xlsx(2058ABIS)"
    NomFeuilleImpotA = ENTITE & ".xlsx(IMPOT01)"
    NomFeuilleImpotB = ENTITE & ".xlsx(IMPOT01X)"
    RFI = ENTITE.Offset(14, 0)
    'Boucle sur les feuilles
    For Each sht In ThisWorkbook.Worksheets
        'Condition de récupération des données
        If sht.Name = NomFeuilleAbis Then
            If sht.Range("C38") <> "" Then
                RFI.Value = sht.Range("C38").Value
            Else
                RFI.Value = "-" + sht.Range("E39").Value
            End If
 
        End If
 
    Next sht
 
Next ENTITE
 
End Sub

Je vous remercie pour votre aide

29/01/2024, 19h41
Pierre Fauconnier

Faudrait voir le besoin et donc un éclaté d'écran.

Je me dis que Power Query pourrait faire l'affaire, mais sans précisions supplémentaires, difficile d'aider mieux
30/01/2024, 09h40
Murasakibara

Je te remercie pour ta réponse mais je souhaite vraiment créer une macro pour ce traitement.
30/01/2024, 11h15
Pierre Fauconnier

Explique ce que tu souhaites réaliser avec des éclatés d'écran. Je n'aime pas repartir sur une macro qui ne fonctionne pas et j'aime bien comprendre le problème pour donner la meilleure réponse.
30/01/2024, 14h09
Murasakibara

Après quelques recherches j'ai réussi à établir ma macro.
Merci Pierre d'avoir pris le temps d'échanger avec moi sur le sujet.