VBA liste fichiers avec informations Fermé

Question

Bonjour tous le monde! 

Je suis bloqué dans ma macro et ça a l'air assez balèze ... 

Alors voilà, j'ai un dossier, avec 500 fichiers excel. Dans chaque fichier, il y a une seule feuille. Sur chaque feuille, il y a 2 case d'option (formulaire) qui permettent de savoir la fiche est complète ou non (c'est l'utilisateur qui coche lui-même).

J'ai créer un fichier excel qui permet de lister tous les fichier excel qui se trouvent dans le dossier (une colonne avec en A1 "Fichier" et le nom des fichiers à la suite en dessous.

J'aimerais maintenant que dans la colonne B, apparaissent à coter de chaque nom de fichier la mention "complet" ou "pas complet".


Sub MAJ()

Dim Rep As String, Fichier As String
Dim i As Integer
Dim NomOnglet As String

NomOnglet = ActiveWorkbook.ActiveSheet.Name

i = 1
  
Rep = "C:\Users\...\...\TEST\"
Fichier = Dir(Rep & "*.xls")
Do While Fichier <> ""
    i = i + 1
    Sheets(NomOnglet).Range("A" & i) = Fichier
    Fichier = Dir
Loop

Columns("A:A").EntireColumn.AutoFit

Range("A2").Select

End Sub


Alors j'avais penser à ouvrir chaque fichier que je viens de lister, vérifier l'état des OptionButtons et en fonction de cet état, mettre la mention "complet" ou non.
... Seulement je ne sais pas du tout comment faire et ça prendrait la journée pour ouvrir 500 fichiers. Y a-t-il un moyen de faire cela sans ouvrir les fichiers? 

Je ne sais pas si j'ai été assez clair mais d'avance merci du temps que vous passerez ... ça à l'air d'être un sacré défi!

Cordialement

tyranausor · Answer

Bonjour, avec ton fichier contenant la macro et un des fichiers à vérifier (sans données perso) on pourrait t'aider. Tu compresse le tout et utilise cjoint.com pour le transmettre

michel_m · Answer

Bonjour,


EDIT: 12,30H

Pour travailler sans ouvrir les classeurs, il faut qu'il y ait une cellule commune qui dise  1 ou 2 suivant l'option bouton activée.(dans "propriétés")
mais j'en ai pas vu dans tes classeurs
Donc, tu vois le boulot...
mais si on a cette cellule "1-2" toujours à la m^me adresse on n'a pas besoin d'ouvrir les fichiers en utilisant une macro XL4

un exemple de cette macro XL4 pour le principe (syntaxe à aménager au cas par cas)
Cells(2, 2) = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R2C1") 'R2C1=A2

de +,

si tu boucles sur tous les classeurs sources dans le dossier, pourquoi les énumérer dans ton recap ?
 Michel

tyranausor · Answer

Bonjour, je pense plutôt à avoir dans un cellule du fichier à vérifier un booléen (vrai/faux ou complet/incomplet)  car il n'est pas possible de savoir, sans ouvrir le fichier, si un checkbox est cochée

michel_m · Answer

Excusez moi d'avoir dérangé en essayant d'aider

tyranausor · Answer

Bonjour, si tu préfère, la macro peut ouvrir chaque classeur pour rechercher l'information ce qui évite par ailleurs e travailler avec des fichiers fermé ce qui complique moins les choses! Après, il faudra que tu dise si tu veux voir ou non les opérations à l’écran c'est-à-dire avoir un aperçu en direct

Michel · Answer

Et bien, si c'est possible en ouvrant chaque fichier d'aller rechercher l'info, alors ok :)

Et pour voir ou non les opérations à l'écran, je ne sais pas ce qui est le plus compliqué à coder ...

Et j'ai remarqué que ce code fonctionne :

Sub Test_case_option()Dim NomOnglet As StringNomOnglet = ActiveWorkbook.ActiveSheet.Name With Sheets(NomOnglet) Select Case xlOnCase .OptionButtons(1).ValueMsgBox "case Fait sélectionnée" Case .OptionButtons(2).ValueMsgBox "case Pas Fait sélectionnée" End SelectEnd WithEnd Sub

Est-ce que ça veut dire que les cases option renvoient une information? Dans ce cas là, je pourrais l'adapter à mon problème :

Pour chaque fichier excel dans le dossier "C:\Users\...\...\TEST\"
Ecrire le nom du fichier dans la colonne A
Ouvrir le fichier
Si case.OptionButtons(1) cochée alors
Activer "Fichier liste"
Ecrire dans colonne B "Fait"
Sinon si case.OptionButtons(2) cochée alors
Activer "Fichier liste"
Ecrire dans colonne B "Pas Fait"
Fermer le fichier

... Vous pensez cela réalisable?

Merci beaucoup pour votre temps!

tyranausor · Answer

application.screenupdating=false signifie que l'écran ne se rafraichit pas, pas de mise à jour. Autrement dit, tu ne verras pas la macro travailler

michel_m · Answer

Bonjour

proposition: 0,4 secondes pour 3 classeurs :-/
(extrapolation: pour 150 classeurs: 20 secondes au lieu de 60....bof!!!)

http://www.cjoint.com/c/FGffkEa5gst

Option Explicit'----------------------------------------------------------Sub recapituler_etats()Dim T_etats, Chemin As StringDim Fichier As String, Cptr As IntegerDim Start As Single    Start = Timer 'mesure durée exécution _    à supprimer après essais'-----------------------------------initialisations    'fige défilement écran: confort, rapidité    Application.ScreenUpdating = False    With Sheets("feuil1")        .Range("A2:B5000").Clear  'nettoyage        'préparation tablo fichier -état        ReDim T_etats(1 To 5000, 1 To 2)        'emplacement des fichiers d'états A ADAPTER        Chemin = ThisWorkbook.Path & "\" & "fichiers" & "\"        '------------------------------recherche etat dans les fichiers        'déplacement dans le dossier des classeurs-état        ChDir Chemin        Fichier = Dir(Chemin & "*.xls")        While Fichier <> ""                Cptr = Cptr + 1                Workbooks.Open (Fichier)                    'mémorisation du nom de classeur                    T_etats(Cptr, 1) = Fichier                    'mémorisation de l'état du classeur                    With ActiveSheet                        Select Case xlOn                            Case .OptionButtons(1).Value                                T_etats(Cptr, 2) = "fait"                            Case .OptionButtons(2).Value                                T_etats(Cptr, 2) = " pas fait"                        End Select                    End With                ActiveWorkbook.Close            Fichier = Dir        Wend'----------------------Récapitulatif de l'état par classeur       With .Range("A2").Resize(Cptr, 2)            .Value = T_etats            .Borders.Weight = xlThin        End With    End With    'a supprimer après essais    Application.ScreenUpdating = False    MsgBox "durée: " & Timer - Start & " secondes."    End Sub

michel_m · Answer

re moi,

pour le fun, je suis tombé à 3/100 de seconde pour les 3 fichiers...

si ca t'intéresse tu fais signe 
attention dans ton classeur "135" il ya une discordance ente le nom du fichier er le nom de l'onglet : manque un espace dans la parenthèse du nom de fichier  :-(

présentation de la bidouille:
2 classeurs: 1 qui construit la cellule liée (c'est long mais on le fait qu'une fois) et à prévoir pour de nouveaux classeurs (peut-^tre créer un modèle).
une fois créée la cellule liée,L'autre exécute la macro xl4 sans ouvrir les fichiers. de plus le code est + simple (au passage: toujours tourner 7 fois la souris sur le tapis avant de .... etc)
 
calcul théorique pour 2000 lignes= 20 secondes au lieu de 13 minutes prévues au départ
 Michel

tyranausor · Answer

Bonjour, je viens avec une autre propositions avec des boutons radio en ActiveX avec une cellule liée indiquant l'état.

http://www.cjoint.com/c/FGfkEftcigB


 Tu me diras ce que tu en pense

VBA liste fichiers avec informations

10 réponses

Discussions similaires

Newsletters