Bonjour,
je reprend depuis le début.
j'ai placé un dossier nommé Budgets à la racine de C
puis je place tous mes fichier excel nommés BUD_......... dedans
je souhaite recupérer ex: A1:A6 dans chaque fichier nommé
BUD_.... et les coller dans un fichier nommé synthese (qui existe déjà)et un
onglet par fichier BUD_... trouvé.
et si j'abuse des bonne choses serait il possible d'en faire un synthese sur
un onglet nommé synthese avec en colonne A le nom des fichier Bud_.....
touvés,en colonne B la valeur de la cellule A1 en colonne C la valeur de
cellule A2 pour chaque onglet crée.
merci
Cordialement
et avec tout mes remerciements..
Bonjour,
je reprend depuis le début.
j'ai placé un dossier nommé Budgets à la racine de C
puis je place tous mes fichier excel nommés BUD_......... dedans
je souhaite recupérer ex: A1:A6 dans chaque fichier nommé
BUD_.... et les coller dans un fichier nommé synthese (qui existe déjà)et un
onglet par fichier BUD_... trouvé.
et si j'abuse des bonne choses serait il possible d'en faire un synthese sur
un onglet nommé synthese avec en colonne A le nom des fichier Bud_.....
touvés,en colonne B la valeur de la cellule A1 en colonne C la valeur de
cellule A2 pour chaque onglet crée.
merci
Cordialement
et avec tout mes remerciements..
Bonjour,
je reprend depuis le début.
j'ai placé un dossier nommé Budgets à la racine de C
puis je place tous mes fichier excel nommés BUD_......... dedans
je souhaite recupérer ex: A1:A6 dans chaque fichier nommé
BUD_.... et les coller dans un fichier nommé synthese (qui existe déjà)et un
onglet par fichier BUD_... trouvé.
et si j'abuse des bonne choses serait il possible d'en faire un synthese sur
un onglet nommé synthese avec en colonne A le nom des fichier Bud_.....
touvés,en colonne B la valeur de la cellule A1 en colonne C la valeur de
cellule A2 pour chaque onglet crée.
merci
Cordialement
et avec tout mes remerciements..
et encore merci pour le temps que vous me consacrés
et encore merci pour le temps que vous me consacrés
et encore merci pour le temps que vous me consacrés
Bonjour, et Merci à vous
voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
methode non gérer par cet objet" ??
Sub Recup_Auto()
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
Workbooks("synthese.xls").Sheets.Add.Range ("A4")
Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row +
1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value =
Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Subet encore merci pour le temps que vous me consacrés
Bonjour, et Merci à vous
voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
methode non gérer par cet objet" ??
Sub Recup_Auto()
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
Workbooks("synthese.xls").Sheets.Add.Range ("A4")
Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row +
1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value =
Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Sub
et encore merci pour le temps que vous me consacrés
Bonjour, et Merci à vous
voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
methode non gérer par cet objet" ??
Sub Recup_Auto()
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
Workbooks("synthese.xls").Sheets.Add.Range ("A4")
Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row +
1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value =
Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Subet encore merci pour le temps que vous me consacrés
Sur quelle ligne ?
Daniel
> Bonjour, et Merci à vous
> voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
> methode non gérer par cet objet" ??
>
> Sub Recup_Auto()
>
> Chemin = "C:Budgets"
> Fichier = Dir(Chemin & "BUD_*.*")
> Do While Fichier <> ""
> Workbooks.Open Filename:=Chemin & Fichier
> Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
> Workbooks("synthese.xls").Sheets.Add.Range ("A4")
> Workbooks("synthese.xls").ActiveSheet.Name = Fichier
> Ligne =
> Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row +
> 1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value =
> Fichier
> Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
> Workbooks(Fichier).Close SaveChanges:úlse
> Fichier = Dir
> Loop
>
> End Sub
>
>> et encore merci pour le temps que vous me consacrés
Sur quelle ligne ?
Daniel
> Bonjour, et Merci à vous
> voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
> methode non gérer par cet objet" ??
>
> Sub Recup_Auto()
>
> Chemin = "C:Budgets"
> Fichier = Dir(Chemin & "BUD_*.*")
> Do While Fichier <> ""
> Workbooks.Open Filename:=Chemin & Fichier
> Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
> Workbooks("synthese.xls").Sheets.Add.Range ("A4")
> Workbooks("synthese.xls").ActiveSheet.Name = Fichier
> Ligne =
> Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row +
> 1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value =
> Fichier
> Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
> Workbooks(Fichier).Close SaveChanges:úlse
> Fichier = Dir
> Loop
>
> End Sub
>
>> et encore merci pour le temps que vous me consacrés
Sur quelle ligne ?
Daniel
> Bonjour, et Merci à vous
> voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
> methode non gérer par cet objet" ??
>
> Sub Recup_Auto()
>
> Chemin = "C:Budgets"
> Fichier = Dir(Chemin & "BUD_*.*")
> Do While Fichier <> ""
> Workbooks.Open Filename:=Chemin & Fichier
> Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
> Workbooks("synthese.xls").Sheets.Add.Range ("A4")
> Workbooks("synthese.xls").ActiveSheet.Name = Fichier
> Ligne =
> Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row +
> 1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value =
> Fichier
> Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
> Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
> Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
> Workbooks(Fichier).Close SaveChanges:úlse
> Fichier = Dir
> Loop
>
> End Sub
>
>> et encore merci pour le temps que vous me consacrés
sur celle-ci je pense car la macro ouvre bien le premier fichier
copie les cellules retour sous le fichier synthese et la "proprieté ou
methode non gérees par cet objet"
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
--
Cordialement
et avec tout mes remerciements..
"Daniel.C" a écrit :Sur quelle ligne ?
DanielBonjour, et Merci à vous
voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
methode non gérer par cet objet" ??
Sub Recup_Auto()
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
Workbooks("synthese.xls").Sheets.Add.Range ("A4")
Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row
+ 1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value
= Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Subet encore merci pour le temps que vous me consacrés
sur celle-ci je pense car la macro ouvre bien le premier fichier
copie les cellules retour sous le fichier synthese et la "proprieté ou
methode non gérees par cet objet"
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
--
Cordialement
et avec tout mes remerciements..
"Daniel.C" a écrit :
Sur quelle ligne ?
Daniel
Bonjour, et Merci à vous
voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
methode non gérer par cet objet" ??
Sub Recup_Auto()
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
Workbooks("synthese.xls").Sheets.Add.Range ("A4")
Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row
+ 1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value
= Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Sub
et encore merci pour le temps que vous me consacrés
sur celle-ci je pense car la macro ouvre bien le premier fichier
copie les cellules retour sous le fichier synthese et la "proprieté ou
methode non gérees par cet objet"
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
--
Cordialement
et avec tout mes remerciements..
"Daniel.C" a écrit :Sur quelle ligne ?
DanielBonjour, et Merci à vous
voici le code adapté, mais a la 1 ère recup ça coince avec "proprieté ou
methode non gérer par cet objet" ??
Sub Recup_Auto()
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Workbooks(Fichier).Sheets("Saisie").Range("AE5", "AE10").Copy
Workbooks("synthese.xls").Sheets.Add.Range ("A4")
Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("A65530").End(xlUp).Row
+ 1 Workbooks("synthese.xls").Sheets("synthese").Range("A" & Ligne).Value
= Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Subet encore merci pour le temps que vous me consacrés
tout d'abord merci de prend du temps pour moi.
je suis désolé, mais j'ai changer d'approche.
je souhaiterais recuperer toutes les infos sur la feuille synthese
cela marche avec le code si dessous sauf que les nom de fichiers
sont bien present mais la macro ne copie que les données du premiers fichier
et pas celle des autres.
Sub Recup_Auto()
'Var = Range("B4").Value
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
'ActiveWorkbook.Sheets.Add.Name = Var
'Workbooks("synthese.xls").Sheets.Add.Range ("B4")
'Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("B65530").End(xlUp).Row +
1 Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("H" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Sub
tout d'abord merci de prend du temps pour moi.
je suis désolé, mais j'ai changer d'approche.
je souhaiterais recuperer toutes les infos sur la feuille synthese
cela marche avec le code si dessous sauf que les nom de fichiers
sont bien present mais la macro ne copie que les données du premiers fichier
et pas celle des autres.
Sub Recup_Auto()
'Var = Range("B4").Value
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
'ActiveWorkbook.Sheets.Add.Name = Var
'Workbooks("synthese.xls").Sheets.Add.Range ("B4")
'Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("B65530").End(xlUp).Row +
1 Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("H" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Sub
tout d'abord merci de prend du temps pour moi.
je suis désolé, mais j'ai changer d'approche.
je souhaiterais recuperer toutes les infos sur la feuille synthese
cela marche avec le code si dessous sauf que les nom de fichiers
sont bien present mais la macro ne copie que les données du premiers fichier
et pas celle des autres.
Sub Recup_Auto()
'Var = Range("B4").Value
Chemin = "C:Budgets"
Fichier = Dir(Chemin & "BUD_*.*")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
'ActiveWorkbook.Sheets.Add.Name = Var
'Workbooks("synthese.xls").Sheets.Add.Range ("B4")
'Workbooks("synthese.xls").ActiveSheet.Name = Fichier
Ligne =
Workbooks("synthese.xls").Sheets("synthese").Range("B65530").End(xlUp).Row +
1 Workbooks("synthese.xls").Sheets("synthese").Range("B" & Ligne).Value =
Fichier
Workbooks("synthese.xls").Sheets("synthese").Range("C" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE5").Value
Workbooks("synthese.xls").Sheets("synthese").Range("D" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE6").Value
Workbooks("synthese.xls").Sheets("synthese").Range("E" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE7").Value
Workbooks("synthese.xls").Sheets("synthese").Range("F" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE8").Value
Workbooks("synthese.xls").Sheets("synthese").Range("G" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE9").Value
Workbooks("synthese.xls").Sheets("synthese").Range("H" & Ligne).Value =
Workbooks(Fichier).Sheets("Saisie").Range("AE10").Value
Workbooks(Fichier).Close SaveChanges:úlse
Fichier = Dir
Loop
End Sub