Discussion :

[neodeco]

Bonjour à tous,

Voilà mon problème, j'aimerai faire une liste de mes fichiers excel mais surtout savoir ceux qui utilise VBA

Faire une liste de mes fichiers je sais faire.

Ce que je n'arrive pas à faire ou à trouver c'est :
Comment savoir si les fichiers excel utilisent du VBA ou pas.

Cela doit être possible puisque, lorsqu'on lance un fichier qui utilise VBA il nous demande si on veut activer les macros ou pas.

Merci d'avance à ceux qui pourront m'aider.

[Invité]

Bonsoir neodeco

En ouvrant 1 à 1 les fichiers, tu peux savoir effectivement ... mais alors ça risque d'être lonnnnnggggg

[neodeco]

C'est un coup de main que je demande, si vous ne savez pas ou si ce n'est pas faisable dîtes le, mais évitez les réponses de ce genre.

Merci.

[Invité]

Re,

Noob sur ce forum avec 4 messages et voilà ta réponse ...

Je te dis simplement que c'est faisable mais en ouvrant les fichiers, pas autrement ...

Tu iras loin comme ça

A tchao

[neodeco]

Je suis peut être un noob sur ce forum mais bon ouvrir les fichiers un à un je sais le faire, j'ai pas besoin de venir poser une question sur un forum pour faire ça.
Ta façon de répondre ne me plait pas du tout, voilà.

Il suffit de dire que ce n'est pas faisable et le sujet était clos.

C'est pas avec des réponses comme ça que l'on avance.

Ciao

[Soraphiroth]

Il y a une solution envisageable.

Une fois que tu as listé tes fichiers, tu peux tester le contenu des modules VB qu'ils contiennent :

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
18
19
20
Function VerifMacro(byval Fichier as string) as boolean
 
    Dim MODULE As Object
    Dim classeur As Workbook
    Dim macroVB As Boolean
    macroVB = False
    Set classeur = Workbooks.Open(Fichier)
 
    For Each MODULE In classeur.VBProject.VBComponents
        If MODULE.CodeModule.CountOfLines <> 0 Then
            macroVB=true
            Exit For
        End If
    Next
 
    classeur.Close
    set classeur = Nothing
    VerifMacro=MacroVB
 
End Function

Ce code regarde tout les modules VB (y compris les feuilles, thisworkbook et les userforms) du fichier et compte les lignes. Si il y a une seule ligne de code dans le fichier, alors il retourne qu'il comporte une macro.