Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour Sub nn() Dim f As Form, i As Integer For Each f In Application.Forms MsgBox f.Name i = i + 1 Next MsgBox "Il y a " & i & " formulaires d'ouvert" End Sub a mettre dans un module
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Doudou" a écrit dans le message de news:
Bonjour je désire lister tous les fomulaires ouverts grace à un code VBA, Ensuite je veut pouvoir les compter...
Merci d'vance
bonjour
Sub nn()
Dim f As Form, i As Integer
For Each f In Application.Forms
MsgBox f.Name
i = i + 1
Next
MsgBox "Il y a " & i & " formulaires d'ouvert"
End Sub
a mettre dans un module
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
"Doudou" <Doudou@discussions.microsoft.com> a écrit dans le message de news: C0D1F6A4-8DFB-4A2C-82E2-AE957937C270@microsoft.com...
Bonjour je désire lister tous les fomulaires ouverts grace à un code VBA,
Ensuite je veut pouvoir les compter...
bonjour Sub nn() Dim f As Form, i As Integer For Each f In Application.Forms MsgBox f.Name i = i + 1 Next MsgBox "Il y a " & i & " formulaires d'ouvert" End Sub a mettre dans un module
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Doudou" a écrit dans le message de news:
Bonjour je désire lister tous les fomulaires ouverts grace à un code VBA, Ensuite je veut pouvoir les compter...
Merci d'vance
Gafish
Bonjour,
Doudou wrote:
Bonjour je désire lister tous les fomulaires ouverts grace à un code VBA, Ensuite je veut pouvoir les compter...
Merci d'vance
Pour compter les formulaires : Forms.Count
Pour les lister :
Dim frm As Form For Each frm in Forms msgbox frm.Name Next
je t'ai mis msgbox mais tu fais ce que tu veux, tu récupères le nom avec frm.Name, tu peux très bien y insérer dans une table par exemple à la place
Arnaud
-- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Doudou wrote:
Bonjour je désire lister tous les fomulaires ouverts grace à un code
VBA, Ensuite je veut pouvoir les compter...
Merci d'vance
Pour compter les formulaires : Forms.Count
Pour les lister :
Dim frm As Form
For Each frm in Forms
msgbox frm.Name
Next
je t'ai mis msgbox mais tu fais ce que tu veux, tu récupères le nom avec
frm.Name, tu peux très bien y insérer dans une table par exemple à la place
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
