Bonjour le forum,
J'ai découvert ce forum il y a quelques temps et celui-ci m'a déjà bien aidé et je profite de ce message pour vous en remercier.
Aujourd'hui je rencontre un problème pour lequel je n'ai pas trouvé de réponse.
J'ai le code suivant qui consiste à consolider des données provenant de plusieurs fichiers.
Sub consolide()
ChDir Range("i1").Value
Range("e3:g1000").ClearContents
Range("e3").Select
Selection.Consolidate Sources:=Array("'[" & Range("e1").Value & "*.xls]RFM_Input'!a8:d93"), _
Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
End Sub
Pour résumer, la macro est sensée consolider les fichiers se trouvant dans le répertoire indiqué en "i1" et consolide les données (de A8 à D93) des fichiers commencant par la valeur se trouvant en "e1".
Lorsque je lance la macro, je reçois un message d'erreur pour chaque fichier me disant qu'il ne peut pas être ouvert.
Est-ce que l'un d'entre-vous aurait une idée car moi, je sèche...
Merci d'avance.
J'ai découvert ce forum il y a quelques temps et celui-ci m'a déjà bien aidé et je profite de ce message pour vous en remercier.
Aujourd'hui je rencontre un problème pour lequel je n'ai pas trouvé de réponse.
J'ai le code suivant qui consiste à consolider des données provenant de plusieurs fichiers.
Sub consolide()
ChDir Range("i1").Value
Range("e3:g1000").ClearContents
Range("e3").Select
Selection.Consolidate Sources:=Array("'[" & Range("e1").Value & "*.xls]RFM_Input'!a8:d93"), _
Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
End Sub
Pour résumer, la macro est sensée consolider les fichiers se trouvant dans le répertoire indiqué en "i1" et consolide les données (de A8 à D93) des fichiers commencant par la valeur se trouvant en "e1".
Lorsque je lance la macro, je reçois un message d'erreur pour chaque fichier me disant qu'il ne peut pas être ouvert.
Est-ce que l'un d'entre-vous aurait une idée car moi, je sèche...
Merci d'avance.