Discussion :

[candice27]

Bonjour,

tout d'abord je suis assez novice en vba ! j'ai consulté beaucoup les forums qui sont très riches sur ce sujet mais je commence à bloquer sérieusement...

voilà mon soucis

j'ai un dossier répertoire ou s'enregistre des fichiers Excel quelconques toujours au même format, toujours même nombre de cellule et de ligne.

J'ai récupéré une première macro qui récupère tout les fichiers qui s'ajoute dans ce répertoire pour les ajouter dans une feuille 1 d'un autre fichier fille : macro "extraction". A la fin il efface tout les fichiers mère de mon dossier répertoire.

Une deuxième macro (répertoire) ajoute au kilomètre mes lignes récupérées de cette feuille dans une autre feuille du même fichier dès qu'une cellule vient à changer dans la feuille 1 (plus ou moins bancales...), les cellules de la feuille 1 sont ensuite effacées.

je souhaite (car je ne sais pas si c'est vraiment possible) que mes macros fonctionnent l'une derrière l'autre dès qu'il y a un nouveau fichier type Excel detecté dans mon répertoire (puisque ceux qui sont traités sont supprimés). Et pourquoi pas avec ou sans bouton. C'est peut être un peu trop ambitieux...

Pour cela j'imaginais exécuter un auto open avec une boucle loop.


ce premier code tourne sans fin et le programme ne répond plus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Auto_open()
 
Do
Dim gestionFichier As New Scripting.filesystemobject
If gestionFichier.FilesExists("D:\Users\Desktop\repertoire\*.xls") = True Then
 call extraction
 call repertoire
End If
 
Loop
End sub

ce code là ne fait rien du tout... j'ai bien ajouté un module de classe pour la fonction recherche

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 Auto_open()
 
Do
Dim MaRecherche As New Recherche
MaRecherche.Analyse "D:\Users\Desktop\repertoire"
For ctr = 1 To MaRecherche.ListeFichier.Count
If Right(MaRecherche.ListeFichier(ctr), 3) = ".xls" Then
    call extraction
    call repertoire
End If
Next
Set MaRecherche = Nothing
 
Loop
 
End Sub

après je sais pas si il faudrait pas le faire avec un filtre sur les fichiers excel avec la fonction fileexists... mais je ne sais pas si on peut combiner ces fonctions...

voilà en espérant avoir été assez clair et merci d'avance pour vos avis éclairés !
A bientôt

[OBO29]

Bonjour,

Tu dois attendre et permettre les évènements dans ton while (code 1).
Résultat d'une recherche rapide : Voir ça http://excel.developpez.com/faq/?pag...orisationMacro

A+

[Menhir]

ce premier code tourne sans fin et le programme ne répond plus

C'est normal puisque tu ne lui donnes pas de condition pour sortir de la boucle.
Mais comme quasiment tous les éléments sont non standard, difficile de dire ce que tu devrais utiliser comme consition.

Peut-être un simple :

Code :

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

1
2
Else
   Exit Do

Mais c'est vraiment sans garantie.

ce code là ne fait rien du tout... j'ai bien ajouté un module de classe pour la fonction recherche

Là c'est pareil. Ne sachant pas vraiment ce que contiennent tes objets, difficile d'aider.

Tu devrais quand même mettre un :

Code :

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

Debug.Print MaRecherche.ListeFichier.Count

juste avant le For, pour voir si la boucle For a une chance de tourner.

Cela dit, à nouveau, comme rien à l'intérieur de la boucle Do Loop ne lui dit dans elle doit s'arrêter, elle va tourner indéfiniment.

Je n'ai pas compris ce que tu cherches à faire exactement, mais il semble que tu souhaites faire tourner deux routines sur chaque fichier d'un répertoire.
Voici un bout de code qui peut t'inspirer. Il sert à faire un traitement sur tous les fichiers d'un répertoire.

Code :

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

1
2
3
4
5
6
7
8
Dim Fichier As String
Fichier = Dir("D:\Users\Desktop\repertoire\*.xlsx")
While Fichier <> ""
 
   ----- Ta procédure
 
    Fichier = Dir()
Wend

Cela dit, il faudrait que tu paramètre tes deux sous-routines pour pouvoir leur transmettre le nom du fichier à traiter.

[candice27]

C'est normal puisque tu ne lui donnes pas de condition pour sortir de la boucle.

Mais comme quasiment tous les éléments sont non standard, difficile de dire ce que tu devrais utiliser comme consition.

la condition peut être l'adresse du fichier source et destinataire si on le déplace

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
 Private Sub Workbook_Open()
 
d_scrut = Feuil1.Cells(2, 3).Value
    d_archiv = Feuil1.Cells(3, 3).Value
Do While Len(fichier) > 0 
Workbooks.Open d_scrut & fichier
 
Name d_scrut & fichier As d_archiv & fichier
donnée_a_recup = Cells(2, 1).Value
 
 Workbooks(fichier).Close False
    Fichier = Dir()
'le code
loop
 
end sub

mais t'étais sur la piste. Ca marche si on deplace le fichier

Cela dit, il faudrait que tu paramètre tes deux sous-routines pour pouvoir leur transmettre le nom du fichier à traiter.

enfait il faut definir les mêmes paramètres entre les routines choses que je n'arrivais pas à faire mais c'est bon.

Merci de votre aide bonne journée