macro automatique vba

Version imprimable

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:

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:

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

28/06/2016, 18h20
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+
28/06/2016, 19h14
Menhir
Citation:

Envoyé par candice27

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:

1 2 Else Exit Do
Mais c'est vraiment sans garantie.

Citation:

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:

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:

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.

Citation:

Envoyé par Menhir

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:

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 :)

Citation:

Envoyé par Menhir

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 :)