Bizarreries

Misange

08/04/2009 à 13:36

pb a écrit :

Bonjour MichDenis
Non rien de private, ce sont les procédures que tu m'as envoyées hier
savoir:

Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)

et comme plusieurs contributeurs te l'ont indiqué, les macros avec
paramètre (WB As Workbook, ByVal Password As String) ne sont pas
visibles dans la liste des macros.
;-)

--
Misange migrateuse
http://www.excelabo.net : Participez à un travail collaboratif sur excel !

Daniel.C

08/04/2009 à 13:39

C'est parce qu'il y a des paramètres ! Lis les posts qu'on écrit.
Par exemple, dans "Sub Détruire_Le_Code(Wk As Workbook)",
"Wk As Workbook" est un paramètre.
Daniel

Bonjour MichDenis
Non rien de private, ce sont les procédures que tu m'as envoyées hier savoir:

Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object
Set vbProj = WB.VBProject
If vbProj.Protection <> 1 Then Exit Sub
Set Application.VBE.ActiveVBProject = vbProj
SendKeys Password & "~~"
Application.VBE.CommandBars(1).FindControl(ID:%78, _
recursive:=True).Execute
End Sub
et
Sub Détruire_Le_Code(Wk As Workbook)
Set VBComps = Wk.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next
End Sub

"MichDenis" a écrit dans le message de news:

Bonjour Pb,

Il se peut que ces 2 macros particulières qui ne s'affichent pas dans la
fenêtre des macros aient le mot "Private" dans la déclaration de la
procédure.

Private sub Toto()

End Sub

Tu n'as qu'à enlever le mot "Private" dans la déclaration.

"pb" a écrit dans le message de groupe de discussion :
#
Bonjour,
Lorsque je fais ALT+F8 toutes les macros ne sont pas listées mais elles
figurent bien dans le VBA.
En fait il en manque 2.
Une explication?
Merci
Pascal

MichDenis

08/04/2009 à 13:50

Dis nous
Que contient la ligne de déclaration de ta procédure ?
exemple : Sub toto()

Où est-elle située ? Dans un module du classeur lui-même ?
Un module du classeur Perso.xls ?

Quand tu ouvres la fenêtre de la liste des macros par Alt + F8
Tu dois faire attention à la liste déroulante de la fenêtre intitulée
"Macros dans :" ...

"pb" a écrit dans le message de groupe de discussion :

Non justement ce n'est ni des modules de feuilles ou de Userform.
Le ThisWorkBook je suis d'accord, mais les deux autres je ne comprends rien

a écrit dans le message de news:

Bonjour,

Dans ce cas outre l'option Private Module, vérifie qu'il ne s'agit pas
de modules de feuille ou de userform ou du ThisWorkbook
car dans ce cas il l'est d'emblée "private" et les sub dedans sont
private sub
n'apparaissent donc pas qd tu fais F8.

Cordialement.

--
lSteph

On 8 avr, 10:57, "pb" wrote:

J'ai regardé ton lien
Mon Projet vba n'est plus protégé et je n'ai aucun
option Private Module et il me manque toujours deux macros.
Comme d'hab je ne comprends rien
"Misange" a écrit dans le message de news:
%

> pb a écrit :
>> Bonjour,
>> Lorsque je fais ALT+F8 toutes les macros ne sont pas listées mais elles
>> figurent bien dans le VBA.
>> En fait il en manque 2.
>> Une explication?
>> Merci
>> Pascal

> regarde ici
>http://excelabo.net/trucs/macros_invisibles

> --
> Misange migrateuse
>http://www.excelabo.net: Participez à un travail collaboratif sur excel
>!- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

gmlsteph

08/04/2009 à 16:18

Alors comme indiqué plus haut , c'est visiblement des procèdures
paramêtrées
c'est pour cela que tu ne les a pas dans
Outils Macros (F8)

On 8 avr, 13:20, "pb" wrote:

Non justement ce n'est ni des modules de feuilles ou de Userform.
Le ThisWorkBook je suis d'accord, mais les deux autres je ne comprends ri en

a crit dans le message de news:

Bonjour,

Dans ce cas outre l'option Private Module, v rifie qu'il ne s'agit pas
de modules de feuille ou de userform ou du ThisWorkbook
car dans ce cas il l'est d'embl e "private" et les sub dedans sont
private sub
n'apparaissent donc pas qd tu fais F8.

Cordialement.

--
lSteph

On 8 avr, 10:57, "pb" wrote:

> J'ai regard ton lien
> Mon Projet vba n'est plus prot g et je n'ai aucun
> option Private Module et il me manque toujours deux macros.
> Comme d'hab je ne comprends rien
> "Misange" a crit dans le message de news:
> %

> > pb a crit :
> >> Bonjour,
> >> Lorsque je fais ALT+F8 toutes les macros ne sont pas list es mais el les
> >> figurent bien dans le VBA.
> >> En fait il en manque 2.
> >> Une explication?
> >> Merci
> >> Pascal

> > regarde ici
> >http://excelabo.net/trucs/macros_invisibles

> > --
> > Misange migrateuse
> >http://www.excelabo.net:Participez un travail collaboratif sur excel
> >!- Masquer le texte des messages pr c dents -

> - Afficher le texte des messages pr c dents -- Masquer le texte des mes sages précédents -

- Afficher le texte des messages précédents -

Bizarreries

4 réponses

Veuillez sélectionner un problème