ouvrir prendre des valeurs et fermer des classeur en boucle

[youki]

Bonjour à tous, je souhaite récapiler des infos se trouvant sur une multitude de fichier identique en format et nom.

Dans un meme dossier j'ai 85 fichiers nommé A3XX (ou x est à incrémenter de 01 à 85). Dans chacun de ces fichiers il existe des valeurs que je désire copier dans un classeur (nommé BD).Dans mon classeur bd je liste les ID correspondant aux chiffre de l'increment.

ID | valeur une | valeur 2 | ...
301
302
303
3...

J'imagine que je dois creer ma macro avec une boucle for i=01 to 85 pour chaque i j'ouvre le fichier A3ii et je vais chercher mes valeurs que j'inscris dans la partie correspondante a l'id A3ii puis je ferme le fichier.

Or je en sais pas ouvrir un fichier ni encore moins le fermer... et cela tout en gardant en mémoire les valeurs prises.

Merci de votre aide.

 

[tototiti2008]

Re : ouvrir prendre des valeurs et fermer des classeur en boucle

bonjour youki,

à adapter :

 

[Staple1600]

Re : ouvrir prendre des valeurs et fermer des classeur en boucle

Bonjour à tous


Regardes sur ce fil le code de BOISGONTIER

https://www.excel-downloads.com/threads/agreger-des-donnees-de-plusieurs-fichiers-xls.99761/

 

[youki]

Re : ouvrir prendre des valeurs et fermer des classeur en boucle

Ok merci à vous deux, tototiti2008 c'est nikel il me reste juste 2 choses qui me créent des erreurs.

Mettre une condition pour vérifier si le fichier existe (je connais pas la fonction en php c'est isset mais là...?)

Sinon comme d'habitude vous etes géniaux.

 

[Staple1600]

Re : ouvrir prendre des valeurs et fermer des classeur en boucle

Re



Utilises le moteur de recherche du forum

mot-clé: Fileexist

Et tu trouveras: de l'aide

 

[tototiti2008]

Re : ouvrir prendre des valeurs et fermer des classeur en boucle

pour tester l'existence d'un fichier :

if Dir(Dossier & "A3" & Format(i, "00") & ".xls")<>"" Then
'Le fichier existe
else
'Il n'existe pas
end if

 

[youki]

Re : ouvrir prendre des valeurs et fermer des classeur en boucle

Merci encore ça marche impec.
La fonction:

Function FileExiste(Filename As String) As Boolean
FileExiste = Dir(Filename) <> ""
End Function

Marche trés bien.

Merci encore tototiti2008 et Staple1600