Macro : recuperation de données de plusieurs classeurs

  • Initiateur de la discussion Initiateur de la discussion Benjy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Benjy

XLDnaute Occasionnel
Bonjour à tous,

J'aimerais dans un classeur et dans une cellule précise récupérer la somme d'une cellule de plusieurs autres classeurs ( nombre non définie à l'avance )

J'ai trouvé cette maccro, dont je remercie l'auteur au passage, mais j'ai du mal à la comprendre et à l'adapter.


Code:
'Macro de MichelXLD
Sub chercheFichiersFermesV03()
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String

Application.ScreenUpdating = False
Direction = Dir('C:\\Documents and Settings\\michel\\dossier\\general\\excel\\*.xls') 'adapter chemin repertoire

Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop

If nbFichiers > 0 Then
For X = 1 To nbFichiers
If Tableau(X) <> ThisWorkbook.Name Then
Y = Y + 1
With ActiveSheet.Cells(Y, 1)
.Formula = '='C:\\Documents and Settings\\michel\\dossier\\general\\excel\\[' & Tableau(X) & ']Feuil1' & ''!' & 'A1'
.Value = .Value
End With
End If
Next X
End If

Application.ScreenUpdating = True
End Sub


On récupère les cellules A1 de la feuil1 de tous les claseurs contenus dans C:\documents and settings\michel\dossier\general ?
Mais ou sont stockées ces valeurs ?
 
Re : Macro : recuperation de données de plusieurs classeurs

Sa fonctionne ! Apparamment problème de majuscule dans les noms des dossiers. Je ne savais pas que les majuscules avaient leur importance... Bref je ne cherche pas à comprendre le résultat est correct.

Encore merci !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Réponses
5
Affichages
236
Retour