La macro mission impossible

Question

Bonjour, 

Je débute dans l'univers des macros (mon truc c'est java, mais allez expliquer ça au chef quand il ne jure que par vb ...) et j'ai un gros problème, ça s'appelle la macro impossible (pour moi...), j'ai plusieurs ntervenants sur un tas de fichier et je doit pondre une macro qui va assembler tous ces fichier pour en faire une bdd modèle...

Si je prends les choses dans l'ordre et que je considère que les intervenants peuvent agir à leur guise (aucun verouillage sur le fichier modèle), je dois d'abord faire en sorte que la macro comprenne ou il a saisit ses donnée et comment. selon moi il y a deux grandes familles de cas:

     1° Il saisit ses données sur plusieurs onglets (ou feuilles) du même fichier

     2° Il saisit ses données sur plusieur fichiers distincts qui sont des copies modèle

Ma question est la suivante, comment puis-je dans une macro obtenir la liste des noms de tout les classeurs ouverts et comment puis je aussi obtenir la liste de tout les noms des feuilles d'un classeur ouvert ?

J'imagine que ce doit être trés simple, mais vu que je n'y connait rien à ce langage, je vais avoir besoin d'un sacré coup de pouce.

Merci d'avance pour le ou les fous furieux prêt à m'aider

Oobaï TaPou !

gandalflegris007 · Answer

Salut Asrull

pour connaitre le nom de tous les classeurs xls ouverts, il faut quze tu fasse un truc du genre 
déclares un entier i et un tableau de chaines NomClasseurs

for i=1 to worksbooks.count step 1
     NomClasseurs(i)=workbooks.fullname
next i

(sur le for, le step 1 n'est pas utile mais ça fait plus propre)
(sur le next, i n'est pas utile mais c'est plus lisible si t'as des for next imbriqués)

pour avoir le nom des feuilles d'un classeur, même logique
for i=1 to worksheets.count
     NomFeuilles(i)=worksheets(i).name
next i

y a plus qu'à ...

Guich

gandalflegris007 · Answer

On pourrait même ^tre plus subtile du genre :

Tu déclares un nouveau type qui contiendra le nom du classeur, le nombre de feuilles et le nom de chacune d'elles :
Public Type Essai
    NomClasseur As String
    NbFeuilles As Integer
    NomFeuilles() As String
End Type

La c'est ta routine :
Sub toto()
    Dim i, j As Integer ' ça c'est pour les boucles
    Dim MonEssai() As Essai ' tableau de ton nouveau type
    Dim NbClasseurs As Integer ' nombre de classeurs ainsi récupérer
    
    ' init du nb de classeurd
    NbClasseurs = 0
    
    ' parcourt tous les classeurs ouverts
    For i = 1 To Workbooks.Count
        ' ajoute un classeur dans le compteur
        NbClasseurs = NbClasseurs + 1
        ' redimensionne notre tableau pour pouvoir travailler dessus
        ' le preserve permet de conserver les données déjà présentes dans le tableau
        ReDim Preserve MonEssai(NbClasseurs)
        ' récupère le nom du classeur en cours
        MonEssai(NbClasseurs).NomClasseur = Workbooks(i).FullName
        ' init le nb de feuilles pour le classeur en cours
        MonEssai(NbClasseurs).NbFeuilles = 0
        ' parcourt toutes les feuilles du classeur en cours
        For j = 1 To Worksheets.Count
            ' incrémente le nb de feuilles du classeur en cours
            MonEssai(NbClasseurs).NbFeuilles = MonEssai(i).NbFeuilles + 1
            ' redimmensionne à nouveau le tableau mais cette fois pour les feuilles
            ReDim Preserve MonEssai(NbClasseurs).NomFeuilles(MonEssai(NbClasseurs).NbFeuilles)
            
' récupère le nom de la feuille en cours 
MonEssai(NbClasseurs).NomFeuilles(MonEssai(NbClasseurs).NbFeuilles) = Workbooks(i).Worksheets(j).Name
        Next j ' boucle sur les feuilles
    Next i ' boucle sur les classeurs
    
' A ce niveau là, tu a déjà récupérer toutes les infos
' on peut donc les affichées en faisant des boucles par classeur et  par feuille

    For i = 1 To NbClasseurs
        For j = 1 To MonEssai(i).NbFeuilles
            MsgBox "La feuille n° " & j & " du classeur nommé " & MonEssai(i).NomClasseur & " est nommée " & MonEssai(i).NomFeuilles(j)
        Next j
    Next i
    
End Sub

La macro mission impossible

2 réponses

Discussions similaires