Discussion :

[bestkiki]

Bonjour,

je débute juste dans le VBA Excel, et je voudrais récupérer les données de fichiers Excel commençant par toto, et dans un répertoire spécifique...
Toutes ces données sont sur la même ligne (N°15) dans chacun de ces fichiers...
Aprés récupération de ces données, je voudrais :
1/ en faire la somme...
2/ savoir le nombre de données récupérées

Merci de votre aide...

[SilkyRoad]

bonjour et bienvenu sur le forum DVP


Pour boucler sur les classeurs commençant par "toto" dans un répertoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
 
    'Définit le répertoire contenant les fichiers
    Chemin = "C:\Documents and Settings\dossier\"
 
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "Toto*.xls")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
 
    Do While Len(Fichier) > 0
        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
        Debug.Print Chemin & Fichier
        Fichier = Dir()
    Loop
End Sub

Comment boucler sur les fichiers d'un répertoire ?




Ensuite, pour lire le contenu du classeur, il existe plusieurs solutions:
* ouvrir chaque classeur, lire le contenu puis le refermer
* lire le contenu sans ouvrir les classeurs

Comment ouvrir un classeur ?

Comment boucler sur tous les classeurs d'un répertoire pour récupérer le contenu d'une cellule ?

Lire et écrire dans les classeurs Excel fermés



bon week end
michel

[bestkiki]

Merci mais je suis vraiment un plus que débutant...
Ces codes, je les mets dans l'onglet Workflow...
Où dois-je mettre ces lignes de codes ?

Merci :

[SilkyRoad]

bonsoir


Les cours proposés dans ce lien pourront certainement t'aider si tu débutes :

http://excel.developpez.com/cours/?p...#environnement


bonne soirée
michel