Je protège ma macro par les instructions qui suivent.
Je souhaite aussi certifier la macro de manière
automatique et pourquoi pas faire plein d'autres choses
interessantes.
Ce que je saisis pas bien, c'est ou trouver l'info pour
ouvrir la fenêtre "Outils Signature électronique" et ainsi
de suite...
Pouvez-vous me dire ou trouver l'ID qui correspond aux
fenêtres (CommandBars.FindControl(ID:=2578).Execute)?
Merci pour votre aide.
Voilà ce que j'ai pu récupérer sur differents sites pour
effectuer la protection (cela fonctionne trés bien)
...
With Application.VBE
SetForegroundWindow FindWindowA
("wndclass_desked_gsk", _
.MainWindow.Caption)
VBP.VBComponents(1).CodeModule.codepane.Show
.CommandBars.FindControl(ID:=2578).Execute
End With
SendKeys "^{TAB} {TAB}" & MDP & "{TAB}" & MDP & "~",
True
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
Michel Pierron
Bonjour AV; Il s'agit de Propriétés d&e VBAProject... Pour lister les contrôles: Sub ListControlsVbe() Dim cbCtl As CommandBarControl Dim cbBar As CommandBar Dim i As Integer On Error Resume Next Application.ScreenUpdating = False Cells(1, 1).Value = "CommandBar" Cells(1, 2).Value = "Control" Cells(1, 3).Value = "FaceID" Cells(1, 4).Value = "ID" Cells(1, 1).Resize(1, 4).Font.Bold = True i = 2 For Each cbBar In Application.VBE.CommandBars Cells(i, 1).Value = cbBar.Name i = i + 1 For Each cbCtl In cbBar.Controls Cells(i, 2).Value = cbCtl.Caption cbCtl.CopyFace If Err.Number = 0 Then ActiveSheet.Paste Cells(i, 3) Cells(i, 3).Value = cbCtl.FaceId End If Cells(i, 4).Value = cbCtl.ID Err.Clear i = i + 1 Next cbCtl Next cbBar Range("A:B").EntireColumn.AutoFit End Sub
MP
"AV" a écrit dans le message de news:
Bonjour,
Sous Excel 2000 et VB6.
Je protège ma macro par les instructions qui suivent. Je souhaite aussi certifier la macro de manière automatique et pourquoi pas faire plein d'autres choses interessantes. Ce que je saisis pas bien, c'est ou trouver l'info pour ouvrir la fenêtre "Outils Signature électronique" et ainsi de suite... Pouvez-vous me dire ou trouver l'ID qui correspond aux fenêtres (CommandBars.FindControl(ID:%78).Execute)?
Merci pour votre aide.
Voilà ce que j'ai pu récupérer sur differents sites pour effectuer la protection (cela fonctionne trés bien) ... With Application.VBE SetForegroundWindow FindWindowA ("wndclass_desked_gsk", _ .MainWindow.Caption) VBP.VBComponents(1).CodeModule.codepane.Show .CommandBars.FindControl(ID:%78).Execute End With SendKeys "^{TAB} {TAB}" & MDP & "{TAB}" & MDP & "~", True
--
Bonjour AV;
Il s'agit de Propriétés d&e VBAProject...
Pour lister les contrôles:
Sub ListControlsVbe()
Dim cbCtl As CommandBarControl
Dim cbBar As CommandBar
Dim i As Integer
On Error Resume Next
Application.ScreenUpdating = False
Cells(1, 1).Value = "CommandBar"
Cells(1, 2).Value = "Control"
Cells(1, 3).Value = "FaceID"
Cells(1, 4).Value = "ID"
Cells(1, 1).Resize(1, 4).Font.Bold = True
i = 2
For Each cbBar In Application.VBE.CommandBars
Cells(i, 1).Value = cbBar.Name
i = i + 1
For Each cbCtl In cbBar.Controls
Cells(i, 2).Value = cbCtl.Caption
cbCtl.CopyFace
If Err.Number = 0 Then
ActiveSheet.Paste Cells(i, 3)
Cells(i, 3).Value = cbCtl.FaceId
End If
Cells(i, 4).Value = cbCtl.ID
Err.Clear
i = i + 1
Next cbCtl
Next cbBar
Range("A:B").EntireColumn.AutoFit
End Sub
MP
"AV" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:uoOPkM2VEHA.644@tk2msftngp13.phx.gbl...
Bonjour,
Sous Excel 2000 et VB6.
Je protège ma macro par les instructions qui suivent.
Je souhaite aussi certifier la macro de manière
automatique et pourquoi pas faire plein d'autres choses
interessantes.
Ce que je saisis pas bien, c'est ou trouver l'info pour
ouvrir la fenêtre "Outils Signature électronique" et ainsi
de suite...
Pouvez-vous me dire ou trouver l'ID qui correspond aux
fenêtres (CommandBars.FindControl(ID:%78).Execute)?
Merci pour votre aide.
Voilà ce que j'ai pu récupérer sur differents sites pour
effectuer la protection (cela fonctionne trés bien)
...
With Application.VBE
SetForegroundWindow FindWindowA
("wndclass_desked_gsk", _
.MainWindow.Caption)
VBP.VBComponents(1).CodeModule.codepane.Show
.CommandBars.FindControl(ID:%78).Execute
End With
SendKeys "^{TAB} {TAB}" & MDP & "{TAB}" & MDP & "~",
True
Bonjour AV; Il s'agit de Propriétés d&e VBAProject... Pour lister les contrôles: Sub ListControlsVbe() Dim cbCtl As CommandBarControl Dim cbBar As CommandBar Dim i As Integer On Error Resume Next Application.ScreenUpdating = False Cells(1, 1).Value = "CommandBar" Cells(1, 2).Value = "Control" Cells(1, 3).Value = "FaceID" Cells(1, 4).Value = "ID" Cells(1, 1).Resize(1, 4).Font.Bold = True i = 2 For Each cbBar In Application.VBE.CommandBars Cells(i, 1).Value = cbBar.Name i = i + 1 For Each cbCtl In cbBar.Controls Cells(i, 2).Value = cbCtl.Caption cbCtl.CopyFace If Err.Number = 0 Then ActiveSheet.Paste Cells(i, 3) Cells(i, 3).Value = cbCtl.FaceId End If Cells(i, 4).Value = cbCtl.ID Err.Clear i = i + 1 Next cbCtl Next cbBar Range("A:B").EntireColumn.AutoFit End Sub
MP
"AV" a écrit dans le message de news:
Bonjour,
Sous Excel 2000 et VB6.
Je protège ma macro par les instructions qui suivent. Je souhaite aussi certifier la macro de manière automatique et pourquoi pas faire plein d'autres choses interessantes. Ce que je saisis pas bien, c'est ou trouver l'info pour ouvrir la fenêtre "Outils Signature électronique" et ainsi de suite... Pouvez-vous me dire ou trouver l'ID qui correspond aux fenêtres (CommandBars.FindControl(ID:%78).Execute)?
Merci pour votre aide.
Voilà ce que j'ai pu récupérer sur differents sites pour effectuer la protection (cela fonctionne trés bien) ... With Application.VBE SetForegroundWindow FindWindowA ("wndclass_desked_gsk", _ .MainWindow.Caption) VBP.VBComponents(1).CodeModule.codepane.Show .CommandBars.FindControl(ID:%78).Execute End With SendKeys "^{TAB} {TAB}" & MDP & "{TAB}" & MDP & "~", True
--
AV
Allo ? Ici AV..... Vous avez-dit AV ? Comme c'est bizarre !
AV (le vrai) te salue !
Allo ?
Ici AV.....
Vous avez-dit AV ?
Comme c'est bizarre !
Allo ? Ici AV..... Vous avez-dit AV ? Comme c'est bizarre !
AV (le vrai) te salue !
sabatier
cher (autre) AV un effet de ta bonté pourrait-il faire que tu modifies tes initiales lorsque tu écris sur ce forum? comme tu n'en es pas habitué, tu n'as pas remarqué que l'un des plus éminents contributeurs (alain, je t'envoie ma facture plus tard) signe également AV...il vient d'ailleurs de faire une allusion à ce doublon mais comme il est timide, il n'a pas osé te demander de changer ton pseudo...voilà qui est fait et merci par avance jps
AV a écrit:
Bonjour,
Sous Excel 2000 et VB6.
cher (autre) AV
un effet de ta bonté pourrait-il faire que tu modifies tes initiales
lorsque tu écris sur ce forum?
comme tu n'en es pas habitué, tu n'as pas remarqué que l'un des plus
éminents contributeurs (alain, je t'envoie ma facture plus tard) signe
également AV...il vient d'ailleurs de faire une allusion à ce doublon
mais comme il est timide, il n'a pas osé te demander de changer ton
pseudo...voilà qui est fait et merci par avance
jps
cher (autre) AV un effet de ta bonté pourrait-il faire que tu modifies tes initiales lorsque tu écris sur ce forum? comme tu n'en es pas habitué, tu n'as pas remarqué que l'un des plus éminents contributeurs (alain, je t'envoie ma facture plus tard) signe également AV...il vient d'ailleurs de faire une allusion à ce doublon mais comme il est timide, il n'a pas osé te demander de changer ton pseudo...voilà qui est fait et merci par avance jps
