a l'attention d'Isabelle

bonjour squeepy,

si les données sont toujours à la même place sur chaque feuille, il n'est pas nécessaire d'utilisé la fonction indirect.

Sub Macro1()
x = 1
With Workbooks("stock.XLS")
For Each f In .Worksheets
y = f.Name
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
x = x + 1
Cells(x, 1).Value = f.Name
Cells(x, 2).Value = .Sheets(f.Name).Range("C2")
Cells(x, 3).Value = .Sheets(f.Name).Range("G2")
Cells(x, 4).Value = .Sheets(f.Name).Range("C3")
Cells(x, 5).Value = .Sheets(f.Name).Range("D27")
End If
Next
End With
End Sub

isabelle

Bonsoir

Te serait il possible de continuer par rapport au poste du 28 déc
lister et figer nom feuille
on été au niveau de la fonction indirect

bonjour,
ça marche impeccable
Cependant j'ai deux petites subtilités a te soumettre si possible
En fait mon fichier Synthese.xls, ne va pas rechercher que Stock.xls, il va
rechercher le meme type de donnée a la meme place mais dans le fichier
stock2.xls, stock3.xls
1ere chose : je voulais savoir si on pouvait faire en sorte que dans la
macro, ça va chercher aussi les otres
2e chose : En fait je t'ai fait un exemple avec trois feuilles (paris,
marseille, lyon) mais il y en a beaucoup + (environ une 15aine de villes dans
stock.xls, 20aines de villes dans stock2.xls, ...)
Donc ma question, au lieu de tout marquer a la main dans la macro, est t'il
possbile de faire un truc du genre Paris:Lyon de la feuille Stock (donc ça
prendrait paris marseille lyon); Bordeaux:Amiens de la feuille Stock2(donc ça
prendrait de la feuille Bordeaux, puis toutes les suivantes jusque Amiens

Encore merci

--
Merci de votre aide

bonjour squeepy,

si les données sont toujours à la même place sur chaque feuille, il n'est pas nécessaire d'utilisé la fonction indirect.

Sub Macro1()
x = 1
With Workbooks("stock.XLS")
For Each f In .Worksheets
y = f.Name
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
x = x + 1
Cells(x, 1).Value = f.Name
Cells(x, 2).Value = .Sheets(f.Name).Range("C2")
Cells(x, 3).Value = .Sheets(f.Name).Range("G2")
Cells(x, 4).Value = .Sheets(f.Name).Range("C3")
Cells(x, 5).Value = .Sheets(f.Name).Range("D27")
End If
Next
End With
End Sub

isabelle

Bonsoir

Te serait il possible de continuer par rapport au poste du 28 déc
lister et figer nom feuille
on été au niveau de la fonction indirect

bonjour squeepy,

est ce que les fichiers stock sont tous ouvert ? car la méthode peut être différente selon le cas.

la macro récupère les valeurs de toutes les feuilles du fichier sauf pour les feuilles d'exception :
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
les données des feuille écrite ici à la main ne sont pas récupérées,
pour toutes les autres feuilles non marqué les données sont récupérées.

isabelle

isabelle

bonjour,
ça marche impeccable
Cependant j'ai deux petites subtilités a te soumettre si possible
En fait mon fichier Synthese.xls, ne va pas rechercher que Stock.xls, il va
rechercher le meme type de donnée a la meme place mais dans le fichier
stock2.xls, stock3.xls
1ere chose : je voulais savoir si on pouvait faire en sorte que dans la
macro, ça va chercher aussi les otres
2e chose : En fait je t'ai fait un exemple avec trois feuilles (paris,
marseille, lyon) mais il y en a beaucoup + (environ une 15aine de villes dans
stock.xls, 20aines de villes dans stock2.xls, ...)
Donc ma question, au lieu de tout marquer a la main dans la macro, est t'il
possbile de faire un truc du genre Paris:Lyon de la feuille Stock (donc ça
prendrait paris marseille lyon); Bordeaux:Amiens de la feuille Stock2(donc ça
prendrait de la feuille Bordeaux, puis toutes les suivantes jusque Amiens

Encore merci

merci pour ta réponse
Tous les fichiers peuvent être ouvert comme fermés. La seule question qui
reste, c'est que faut il ajouter dans le code pour ajouter les feuilles
stock2.xls, stock3.xls
--
Merci de votre aide

bonjour squeepy,

est ce que les fichiers stock sont tous ouvert ? car la méthode peut être différente selon le cas.

la macro récupère les valeurs de toutes les feuilles du fichier sauf pour les feuilles d'exception :
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
les données des feuille écrite ici à la main ne sont pas récupérées,
pour toutes les autres feuilles non marqué les données sont récupérées.

isabelle

isabelle

bonjour,
ça marche impeccable
Cependant j'ai deux petites subtilités a te soumettre si possible
En fait mon fichier Synthese.xls, ne va pas rechercher que Stock.xls, il va
rechercher le meme type de donnée a la meme place mais dans le fichier
stock2.xls, stock3.xls
1ere chose : je voulais savoir si on pouvait faire en sorte que dans la
macro, ça va chercher aussi les otres
2e chose : En fait je t'ai fait un exemple avec trois feuilles (paris,
marseille, lyon) mais il y en a beaucoup + (environ une 15aine de villes dans
stock.xls, 20aines de villes dans stock2.xls, ...)
Donc ma question, au lieu de tout marquer a la main dans la macro, est t'il
possbile de faire un truc du genre Paris:Lyon de la feuille Stock (donc ça
prendrait paris marseille lyon); Bordeaux:Amiens de la feuille Stock2(donc ça
prendrait de la feuille Bordeaux, puis toutes les suivantes jusque Amiens

Encore merci

voici un exemple ,

Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = NomDossier = "C:zaza"
If NomDossier = "" Then Exit Function
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Workbooks.Open Filename:=File
x = 1
With Workbooks(File)
For Each f In .Worksheets
y = f.Name
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
x = x + 1
Workbooks(Synthese.xls).Sheets("Feuil1").Cells(x, 1).Value = f.Name
Workbooks(Synthese.xls).Sheets("Feuil1").Cells(x, 2).Value = .Sheets(f.Name).Range("C2")
Workbooks(Synthese.xls).Sheets("Feuil1").Cells(x, 3).Value = .Sheets(f.Name).Range("G2")
Workbooks(Synthese.xls).Sheets("Feuil1").Cells(x, 4).Value = .Sheets(f.Name).Range("C3")
Workbooks(Synthese.xls).Sheets("Feuil1").Cells(x, 5).Value = .Sheets(f.Name).Range("D27")
End If
Next
End With
Workbooks(File).Close
Next
End If
End Sub

isabelle

merci pour ta réponse
Tous les fichiers peuvent être ouvert comme fermés. La seule question qui
reste, c'est que faut il ajouter dans le code pour ajouter les feuilles
stock2.xls, stock3.xls