Exporter tous les userform d'un projet [FAQ] [Résolu]

[ouskel'n'or]

Silky nous a passé le code pour exporter un userform
De là, j'ai modifié la ligne de commande afin d'exporter tous les userforms d'un projet. Le code :

Code :

1
2
3
4
5
Sub ExporterTousLesUserforms() 
    For Each LaForm In ThisWorkbook.VBProject.VBComponents("UserForm1")
        LaForm.Export OutputFileName:="D:\frm\" & LaForm.Name
    Next
End Sub

or la procédure bloque sur "Export"
Message : "Membre de méthode ou de données introuvable"
Si je fais "Msgbox LaForm.name, j'ai bien le nom de l'userform
En VBA97, la syntaxe pour Export correspond à celle de l'aide
Aucune référence n'est marquée manquante dans VBA

Si quelqu'un a une idée...

Par avance, merci (j'ai 31 form à exporter pour aider un pauv' gars qu'à lui-même un problème et qui s'arrache les cheveux -> http://www.developpez.net/forums/sho...d.php?t=179647 pour ceux que ça intéresse )

[bidou]

tu as bien la référence VBE ?

[SilkyRoad]

bonjour

tu peux tester cette syntaxe

Code :

1
2
3
4
5
6
7
8
9
'necessite d'activer la référence
'"Microsoft Visual Basic for Applications Extensibility 5.3 "
'
Dim VBComp As VBComponent
 
For Each VBComp In ThisWorkbook.VBProject.VBComponents
    If VBComp.Type = 3 Then _
        VBComp.Export "C:\" & VBComp.Name & ".frm"
Next VBComp

bonne journée
michel

[ouskel'n'or]

Tu veux dire une référence MANQUANTE ? Non, je n'ai aucune indication et l'aide me conduit au message bateau

"Membre de méthode ou de données introuvable"
La collection, l'objet ou le type défini par l'utilisateur ne contient pas le membre référencé. Causes et solutions de cette erreur :

· Une faute de frappe s'est glissée dans le nom de l'objet ou du membre.
etc

[bidou]

non, je veux parler de la référence citée au début du code de Michel

[ouskel'n'or]

Hello Michel,
Avec ce nouveau code, la procédur bloque sur

For Each VBComp In ThisWorkbook.VBProject.VBComponents

Message "Type incompatible"
Bidou, je ne vois pas de quelle référence tu veux parler
Le code qu'il a fourni au départ était cette ligne

Code :

ThisWorkbook.VBProject.VBComponents("UserForm1").Export "C:\copieUSF.frm"

Qui fonctionne parfaitement

[bidou]

Microsoft Visual Basic for Applications Extensibility 5.3

[bbil]

le code à michel fonctionne chez moi sous excel 2002... sans référence particuliéres en modifiant la ligne

Code :

1
2
 
Dim VBComp ' As VBComponent

[ouskel'n'or]

Ok, j'ai compris. Je corrige et je mets résolu dès que c'est résolu
Je voulais exporter Userform1 alors que je dois exporter LaForm.

Sub ExporterTousLesUserforms()
For Each LaForm In ThisWorkbook.VBProject.VBComponents("UserForm1")
LaForm.Export OutputFileName:="D:\frm\" & LaForm.Name
Next
End Sub

Reste plus qu'à voir par quoi je dois remplacer Userform1 (je croyais que c'était une contante)
Merci à vous deux

[bbil]

je comprends pas : avec cette ligne

Code :

     For Each LaForm In ThisWorkbook.VBProject.VBComponents("UserForm1")

tu parcours tous les objets présent sur l'userForm1....

et non pas toutes les userforms....! (voir code michel)

Que ve tu faire ?+

[ouskel'n'or]

Ok ! (Là je reviens du marché...) Merci à tous. Désolé, bbil, si ça fonctionne chez toi sans rien changer au code de Michel mais chez moi, ça marche pas tel quel.
J'ai VBA97 et en torturant un pneu, j'y suis arrivé. Je mets le code à toutes fins utiles.

Code :

1
2
3
4
5
6
7
Sub ExporterTousLesUserforms() 'selon SilkyRoad
Dim LaForm
    For Each LaForm In ThisWorkbook.VBProject.VBComponents
        'MsgBox LaForm.Name
        If LaForm.Type = 3 Then ThisWorkbook.VBProject.VBComponents(LaForm.Name).Export "D:\xls\" & LaForm.Name & ".frm"
    Next
End Sub

si je n'utilise pas le nom de la form dans cette ligne

.........If LaForm.Type = 3 Then ThisWorkbook.VBProject.VBComponents(LaForm.Name) _
..........................................Export "D:\xls\" & LaForm.Name & ".frm"

j'ai une erreur. Donc ainsi ça fonctionne et si on peut simplifier, je verrai plus tard.
Reste à importer mais là, je devrais pouvoir me débrouiller
Encore merci

[ouskel'n'or]

Pour importer tous les userform

Code :

1
2
3
4
5
6
7
8
Sub ImporterTousLesUserformsDunRépertoire() 'd'après SilkyRoad
Dim NomFich
    NomFich = Dir("D:\xls\*.frm")
    Do While NomFich <> ""
        Application.VBE.ActiveVBProject.VBComponents.Import (NomFich)
        NomFich = Dir
    Loop
End Sub

Placer la macro dans un module du projet "récepteur"
A toutes fins utiles

[ThierryAIM]

bien, voilà qui est interessant
hop, un petit tag FAQ

[bbil]

Envoyé par ouskel'n'or

Ok ! (Là je reviens du marché...) Merci à tous. Désolé, bbil, si ça fonctionne chez toi sans rien changer au code de Michel mais chez moi, ça marche pas tel quel....

bon je me suis décidé à démarrer mon vieux Pentium III pour tester le code à michel ( #3 ) sous Excel 97 ... et celui-ci fonctionne tel quel, en cochant la bonne référence , ou en déclarant la variable VBComp en variant...

Code :

Dim VBComp ' As VBComponent

[ouskel'n'or]

Ok, bbil, mais moi, ça marche pas. Peut-être un pb de bibliothèque. Jète un oeil là http://www.developpez.net/forums/sho...d.php?t=181795
Si tu as une idée je dirai partout que tu es le meilleur