"Stéphane Lavergne" a écrit dans le message de news:
Bonjour,
Comment vider le presse-papier en VBA Excel ?
Merci d'avance
-- Cordialement,
Stéphane Lavergne
ru-th
Salut
manquait des tests Sub test() Dim rep As Boolean With Application.CommandBars("clipboard") rep = .Visible If rep = False Then .Visible = True If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute .Visible = rep End With End Sub
a+ rural thierry
"Stéphane Lavergne" a écrit dans le message de news:
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du Presse-papiers
Mais j'ai 1 message d'erreur : Erreur d'exécution 91 Variable objet ou variable de bloc With non définie
en exécutant ce code: Sub toto() Application.CommandBars("clipboard").FindControl(ID:634).Execute End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne également :)
"Stéphane Lavergne" a écrit dans le message de news:
Bonjour,
Comment vider le presse-papier en VBA Excel ?
Merci d'avance
-- Cordialement,
Stéphane Lavergne
Salut
manquait des tests
Sub test()
Dim rep As Boolean
With Application.CommandBars("clipboard")
rep = .Visible
If rep = False Then .Visible = True
If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute
.Visible = rep
End With
End Sub
a+
rural thierry
"Stéphane Lavergne" <no@spam.fr> a écrit dans le message de news:
e0fSLxJnDHA.2432@TK2MSFTNGP10.phx.gbl...
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du
Presse-papiers
Mais j'ai 1 message d'erreur :
Erreur d'exécution 91
Variable objet ou variable de bloc With non définie
en exécutant ce code:
Sub toto()
Application.CommandBars("clipboard").FindControl(ID:634).Execute
End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne également
:)
Merci encore
Stéphane
"ru-th" <ailleurs@nowhere> a écrit dans le message de
news:%23TVycnJnDHA.2416@TK2MSFTNGP10.phx.gbl...
manquait des tests Sub test() Dim rep As Boolean With Application.CommandBars("clipboard") rep = .Visible If rep = False Then .Visible = True If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute .Visible = rep End With End Sub
a+ rural thierry
"Stéphane Lavergne" a écrit dans le message de news:
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du Presse-papiers
Mais j'ai 1 message d'erreur : Erreur d'exécution 91 Variable objet ou variable de bloc With non définie
en exécutant ce code: Sub toto() Application.CommandBars("clipboard").FindControl(ID:634).Execute End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne également :)
"Stéphane Lavergne" a écrit dans le message de news:
Bonjour,
Comment vider le presse-papier en VBA Excel ?
Merci d'avance
-- Cordialement,
Stéphane Lavergne
Stéphane Lavergne
Merci Thierry
En effet :) Mais.... Trop long... Je reste sur Cutcopymode :)
Stéphane
"ru-th" a écrit dans le message de news:%23%
Salut
manquait des tests Sub test() Dim rep As Boolean With Application.CommandBars("clipboard") rep = .Visible If rep = False Then .Visible = True If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute
.Visible = rep End With End Sub
a+ rural thierry
"Stéphane Lavergne" a écrit dans le message de news:
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du Presse-papiers
Mais j'ai 1 message d'erreur : Erreur d'exécution 91 Variable objet ou variable de bloc With non définie
en exécutant ce code: Sub toto() Application.CommandBars("clipboard").FindControl(ID:634).Execute End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne également :)
"Stéphane Lavergne" a écrit dans le message de news:
Bonjour,
Comment vider le presse-papier en VBA Excel ?
Merci d'avance
-- Cordialement,
Stéphane Lavergne
Merci Thierry
En effet :)
Mais....
Trop long...
Je reste sur Cutcopymode :)
Stéphane
"ru-th" <ailleurs@nowhere> a écrit dans le message de
news:%23%23grP4JnDHA.1656@tk2msftngp13.phx.gbl...
Salut
manquait des tests
Sub test()
Dim rep As Boolean
With Application.CommandBars("clipboard")
rep = .Visible
If rep = False Then .Visible = True
If .FindControl(ID:634).Enabled = True Then
.FindControl(ID:634).Execute
.Visible = rep
End With
End Sub
a+
rural thierry
"Stéphane Lavergne" <no@spam.fr> a écrit dans le message de news:
e0fSLxJnDHA.2432@TK2MSFTNGP10.phx.gbl...
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du
Presse-papiers
Mais j'ai 1 message d'erreur :
Erreur d'exécution 91
Variable objet ou variable de bloc With non définie
en exécutant ce code:
Sub toto()
Application.CommandBars("clipboard").FindControl(ID:634).Execute
End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne également
:)
Merci encore
Stéphane
"ru-th" <ailleurs@nowhere> a écrit dans le message de
news:%23TVycnJnDHA.2416@TK2MSFTNGP10.phx.gbl...
En effet :) Mais.... Trop long... Je reste sur Cutcopymode :)
Stéphane
"ru-th" a écrit dans le message de news:%23%
Salut
manquait des tests Sub test() Dim rep As Boolean With Application.CommandBars("clipboard") rep = .Visible If rep = False Then .Visible = True If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute
.Visible = rep End With End Sub
a+ rural thierry
"Stéphane Lavergne" a écrit dans le message de news:
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du Presse-papiers
Mais j'ai 1 message d'erreur : Erreur d'exécution 91 Variable objet ou variable de bloc With non définie
en exécutant ce code: Sub toto() Application.CommandBars("clipboard").FindControl(ID:634).Execute End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne également :)
"Stéphane Lavergne" a écrit dans le message de news:
Bonjour,
Comment vider le presse-papier en VBA Excel ?
Merci d'avance
-- Cordialement,
Stéphane Lavergne
ru-th
Salut
en complément copie d'une remarque d'AV
Tout dépend de ce qui vient d'être copier.. S'il d'un copier/coller ou couper/coller d'une plage, Application.CutCopyMode False, sera suffisant pour vider le presse-papiers Exemples à contrario : Copier le contenu d'une cellule dans la barre de formule ou en passant en mode saisie de la cellule => coller ailleurs => exécuter : Sub test() Application.CutCopyMode = False Application.CommandBars("Clipboard").Visible = True End Sub Le presse-papier n'est pas vide ! En exécutant le même test après un copier/coller d'un objet (objets dessiné quelconque par ex.), on obtient le même résultat : Presse-papier non vidé !
Moralité : pour vider le presse-papier quel que soit son contenu "Application.CutCopyMode = False" n'est pas du sur à 100%
a+ rural thierry
"Stéphane Lavergne" a écrit dans le message de news: O8CK#
Merci Thierry
En effet :) Mais.... Trop long... Je reste sur Cutcopymode :)
Stéphane
"ru-th" a écrit dans le message de news:%23%
Salut
manquait des tests Sub test() Dim rep As Boolean With Application.CommandBars("clipboard") rep = .Visible If rep = False Then .Visible = True If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute
.Visible = rep End With End Sub
a+ rural thierry
"Stéphane Lavergne" a écrit dans le message de news:
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du Presse-papiers
Mais j'ai 1 message d'erreur : Erreur d'exécution 91 Variable objet ou variable de bloc With non définie
en exécutant ce code: Sub toto() Application.CommandBars("clipboard").FindControl(ID:634).Execute End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne également
"Stéphane Lavergne" a écrit dans le message de news:
Bonjour,
Comment vider le presse-papier en VBA Excel ?
Merci d'avance
-- Cordialement,
Stéphane Lavergne
Salut
en complément
copie d'une remarque d'AV
Tout dépend de ce qui vient d'être copier..
S'il d'un copier/coller ou couper/coller d'une plage,
Application.CutCopyMode False, sera suffisant pour vider le presse-papiers
Exemples à contrario :
Copier le contenu d'une cellule dans la barre de formule ou en passant en
mode
saisie de la cellule => coller ailleurs
=> exécuter :
Sub test()
Application.CutCopyMode = False
Application.CommandBars("Clipboard").Visible = True
End Sub
Le presse-papier n'est pas vide !
En exécutant le même test après un copier/coller d'un objet (objets dessiné
quelconque par ex.), on obtient le même résultat : Presse-papier non vidé !
Moralité : pour vider le presse-papier quel que soit son contenu
"Application.CutCopyMode = False" n'est pas du sur à 100%
a+
rural thierry
"Stéphane Lavergne" <no@spam.fr> a écrit dans le message de news:
O8CK#LKnDHA.3312@tk2msftngp13.phx.gbl...
Merci Thierry
En effet :)
Mais....
Trop long...
Je reste sur Cutcopymode :)
Stéphane
"ru-th" <ailleurs@nowhere> a écrit dans le message de
news:%23%23grP4JnDHA.1656@tk2msftngp13.phx.gbl...
Salut
manquait des tests
Sub test()
Dim rep As Boolean
With Application.CommandBars("clipboard")
rep = .Visible
If rep = False Then .Visible = True
If .FindControl(ID:634).Enabled = True Then
.FindControl(ID:634).Execute
.Visible = rep
End With
End Sub
a+
rural thierry
"Stéphane Lavergne" <no@spam.fr> a écrit dans le message de news:
e0fSLxJnDHA.2432@TK2MSFTNGP10.phx.gbl...
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du
Presse-papiers
Mais j'ai 1 message d'erreur :
Erreur d'exécution 91
Variable objet ou variable de bloc With non définie
en exécutant ce code:
Sub toto()
Application.CommandBars("clipboard").FindControl(ID:634).Execute
End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne
également
:)
Merci encore
Stéphane
"ru-th" <ailleurs@nowhere> a écrit dans le message de
news:%23TVycnJnDHA.2416@TK2MSFTNGP10.phx.gbl...
Tout dépend de ce qui vient d'être copier.. S'il d'un copier/coller ou couper/coller d'une plage, Application.CutCopyMode False, sera suffisant pour vider le presse-papiers Exemples à contrario : Copier le contenu d'une cellule dans la barre de formule ou en passant en mode saisie de la cellule => coller ailleurs => exécuter : Sub test() Application.CutCopyMode = False Application.CommandBars("Clipboard").Visible = True End Sub Le presse-papier n'est pas vide ! En exécutant le même test après un copier/coller d'un objet (objets dessiné quelconque par ex.), on obtient le même résultat : Presse-papier non vidé !
Moralité : pour vider le presse-papier quel que soit son contenu "Application.CutCopyMode = False" n'est pas du sur à 100%
a+ rural thierry
"Stéphane Lavergne" a écrit dans le message de news: O8CK#
Merci Thierry
En effet :) Mais.... Trop long... Je reste sur Cutcopymode :)
Stéphane
"ru-th" a écrit dans le message de news:%23%
Salut
manquait des tests Sub test() Dim rep As Boolean With Application.CommandBars("clipboard") rep = .Visible If rep = False Then .Visible = True If .FindControl(ID:634).Enabled = True Then .FindControl(ID:634).Execute
.Visible = rep End With End Sub
a+ rural thierry
"Stéphane Lavergne" a écrit dans le message de news:
Merci Ruth
Je comprends que ca exécute le bouton Effacer tout de la barre du Presse-papiers
Mais j'ai 1 message d'erreur : Erreur d'exécution 91 Variable objet ou variable de bloc With non définie
en exécutant ce code: Sub toto() Application.CommandBars("clipboard").FindControl(ID:634).Execute End Sub
Ce n'est pas grave... Application.Cutcopymodeúlse fonctionne également
C'était de bon coeur, cher Président d'autant que j'ai ramé un peu pour trouvé id:634 le controls(4) me paraissait trop..trivial ! ;-))
a+ rural thierry
"AV" a écrit dans le message de news:
"Application.CutCopyMode = False" n'est pas du sur à 100%
Je souscris Monseigneur !
;-) AV
Vincent.
Je souscris également à 100%... ;-)
-----Message d'origine----- C'était de bon coeur, cher Président d'autant que j'ai ramé un peu pour trouvé id:634 le controls(4) me paraissait trop..trivial ! ;-))
a+ rural thierry
"AV" a écrit dans le message de news:
"Application.CutCopyMode = False" n'est pas du sur à 100%
Je souscris Monseigneur !
;-) AV
.
Je souscris également à 100%...
;-)
-----Message d'origine-----
C'était de bon coeur, cher Président
d'autant que j'ai ramé un peu pour trouvé id:=3634
le controls(4) me paraissait trop..trivial !
;-))
a+
rural thierry
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:
eAkQRUKnDHA.3316@tk2msftngp13.phx.gbl...
"Application.CutCopyMode = False" n'est pas du sur à
100%
-----Message d'origine----- C'était de bon coeur, cher Président d'autant que j'ai ramé un peu pour trouvé id:634 le controls(4) me paraissait trop..trivial ! ;-))
a+ rural thierry
"AV" a écrit dans le message de news:
"Application.CutCopyMode = False" n'est pas du sur à 100%
