renseigner un fichier synthèse avec X fichiers

[kiki31140]

Bonjour le forum

habituellement, j'arrive à trouver mon bonheur avec des discussions du forum, mais là, j'avoue , je cale.

Voici mon problème
J'ai un fichier de synthèse test1.xlsm que j'alimente avec x fichiers, nommé "test_novembre2014_riri.xlsm".
le premier probleme est que lorsque j'active la macro dans test1.xlsm , j'ai une erreur 400.

Ensuite je n'arrive pas à constituer une boucle qui ouvrira les fichiers "test_novembre2014_nom.xlsx" à partir de la liste de nom dans la colonne A et qui recopiera la somme en R14 dans le fichier test1.xlsm .

Je vous joint mes deux fichier
merci par avance

Cordialement

Christian

 

[sousou]

Re : renseigner un fichier synthèse avec X fichiers

bonjour
Essaie ce code, mais pour faciliter j'ai positionner dans un dossier le fichier test, et dans un sous dossier nommé fichier les fichiers à charger
A toi d'adapter à ta configuration
Il faudrait aussi sans doute vérifier l'existence des fichiers sinon erreur.

Sub chargement()
chemin = ThisWorkbook.Path & "/fichiers/"
With Sheets(1)
Set deb = .Range("a6")
n = 0
While deb.offset(n,0= <> ""
Workbooks.Open (chemin & "test_" & .Range("c3") & "_" & deb.Value & ".xlsx")
n = n + 1
Wend
End With

End Sub

 

[kiki31140]

Re : renseigner un fichier synthèse avec X fichiers

Bonjour sousou

désolé pour la réponse tardive.
j'essaie cela dans la matinée et je te tiens au courant.

merci encore

kiki31140

 

[kiki31140]

Re : renseigner un fichier synthèse avec X fichiers

bonjour forum et sousou
j'avance à très petit pas, faute de temps.

voici où j'en suis (voir plus bas)
ce que je ne comprends pas, c'est que lorsque j'active la macro, celle-ci ouvre le premier fichier.
la boucle continue (n s'incrémente), par contre, lorsque j'espionne "deb", il ne varie pas !!!!! donc, n'ouvre pas les autres fichiers.
Ensuite, il ne restera plus qu'a copier la cell R14 de chaque fichier dans la colonne C, avec sa ligne associée, dans le fichier ou se trouve ma macro.

merci par avance à tous

Sub chargement()

Fichier = "test_" & Sheets(1).Range("C3")
chemin = ThisWorkbook.Path

With Sheets(1)
Set deb = .Range("A6")
n = 1
Do While deb.Offset(n, 0) <> ""
Workbooks.Open (chemin & "\" & Fichier & "_" & deb.Value & ".xlsx")
'Sheets("Sheet1").Activate
'Range("R14").Copy

Range("E3") = n
Range("E4") = deb
n = n + 1
Loop
End With

Exit Sub
End Sub

 

[kiki31140]

Re : renseigner un fichier synthèse avec X fichiers

désolé, message posté 2 fois
et je n'arrive pas à le supprimer

 

[sousou]

Re : renseigner un fichier synthèse avec X fichiers

Bonjour
Essaie comme ceci.


Sub chargement()
chemin = ThisWorkbook.Path & "/fichiers/"
With Sheets(1)
Set deb = .Range("a6")
n = 0
While deb.Offset(n, 0) <> ""
Set f = Workbooks.Open(chemin & "test_" & .Range("c3") & "_" & deb.Offset(n, 0) & ".xlsx")

Bonjour essaie comme ceci

f.Sheets(1).Range("r14").Copy
deb.Offset(n, 2).PasteSpecial (3)
n = n + 1
f.Close savechanges:=False
Wend
End With

 

[kiki31140]

Re : renseigner un fichier synthèse avec X fichiers

Bonjour forum, bonjour sousou

Un super gros merci sousou...... ça fonctionne comme je le souhaite.
j'ai un peu galéré au début car j'avais une erreur 1004.
cela venait du fait qu'il manquait un "/" dans la ligne set f entre chemin et "test".

Merci encore et bonnes fêtes à tous

KIKI31140