Dessins à main levée(Procédure)

yannick64

XLDnaute Junior

• 16 Décembre 2011

• #2

Re : Dessins à main levée(Procédure)

Bonsoir, je sais que le sujet est plutôt ancien mais j'ai le même problème que vous. Aviez vous trouvé une solution?

Merci
Yannick64

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 16 Décembre 2011

• #3

Re : Dessins à main levée(Procédure)

Bonsoir
Pas certain mais à essayer

Sub crayon()
Application.CommandBars("Drawing").Visible = True
SendKeys "%rl{right}{right}{right}{right}{right}{enter}"
End Sub

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2011

• #4

Re : Dessins à main levée(Procédure)

Bonsoir

Tu as de la chance ce soir Yannick
(J'espère que patefp repassera ici, quoique ses élèves ont du changer de prof depuis 😉 )

Donc voici la réponse à une question de novembre 2008
(Comme quoi il est jamais trop tard ; )

Code:

Sub AlAMiMineLEVEE_CPLUSCHOUETTE()
'Pour patdef avec du retard, mais le cœur y est
'pour Yannick mais sans le retard ;-)
CommandBars("Drawing").Controls(3).Controls("&Lignes").Controls(6).Execute
End Sub

EDITION
PS: Bonsoir roro69, en fait voila 2 réponses 😉
(j'ai testé la mienne, cela fonctionne)

 

Dernière édition: 28 Décembre 2011

Vote positif 0 Vote négatif

yannick64

XLDnaute Junior

• 17 Décembre 2011

• #5

Re : Dessins à main levée(Procédure)

😉Super ! ça marche nickel !!!😉
Merci à tous !

 

Vote positif 0 Vote négatif

yannick64

XLDnaute Junior

• 1 Février 2012

• #6

Re : Dessins à main levée(Procédure)

Salut le forum !

J'ai utilisé depuis mon message du mois de décembre la manip suivante :

Sub crayon()
Application.CommandBars("Drawing").Visible = True
SendKeys "%rl{right}{right}{right}{right}{right}{enter} "
End Sub

Cliquez pour agrandir...

Qui me permettais d'activer le dessin à main levée sur excel 2003. Ca marchait super bien sur mon PC (excel 2003 et windows 7 pro).
Pour le boulot j'ai fait l'acquisition d'une tablette Archos 9 sous windows 7 starter. J'y ai installé excel 2003 et avec cette même manip j'obtiens un message d'erreur :

erreur d'execution '70':
permission refusée

Cliquez pour agrandir...

😕

Est ce que vous avez une idée pour résoudre mon problème???

Merci d'avance
Yannick64

 

Vote positif 0 Vote négatif

yannick64

XLDnaute Junior

• 1 Février 2012

• #7

Re : Dessins à main levée(Procédure)

En fait le problème venait du niveau de sécurité de windows. Je l'ai descendu au maximum et ça fonctionne. En espérant que cela puisse servir à d'autres !

Yannick64

 

Vote positif 0 Vote négatif