Récupérer données d'un fichier, vba ou recherchev ?

[Barazouti]

Re-bonjour,

Deuxième topic pour moi aujourd'hui. L'envie d'apprendre ..

Je vais expliquer ma situation.

J'ai créé un fichier standardisé auquel je rempli exactement de la même façon.
Dans le bordereau au dessus des tableaux j'y intègre un nombre (toujours au même emplacement) suivant le moyen adapté.

Je dois faire un tableau récapitulatif de tous mes fichiers créer sur le même standard de cette ligne.
c'est à dire que j'ai besoin de récupérer les informations de la ligne 11 (nombre uniquement) associés au moyen de la ligne 10.

A part ouvrir les 150 fichiers un par un, je souhaiterais savoir s'il existait une méthode "intelligente" permettant de récupérer tout ça.

je vous mets les 2 fichiers.


Merci la compagnie

 

[sousou]

Bonjour
pour traiter toutes les feuilles d'un fichier standard, il suffit de modifier comme ceci
Sub deb()
chemin = ThisWorkbook.Path & "\"
fich = Dir(chemin)
While fich <> "" 'liste les fichiers du dossier
If fich <> ThisWorkbook.Name Then
Set f = Workbooks.Open(chemin & fich)
For Each feuille In f.Sheets
Call cherche(feuille) ' Traitement d'un fichier standard
Next
f.Close savechanges:=False
End If
fich = Dir()
Wend

End Sub

 

[Barazouti]

Merci de ton aide Sousou !

Super retour je vais intégrer ça.

A bientot l'ami