VBA - Ne pas afficher un pop up raltif au Presse papier!!!

[La braise]

Bonjour à tous,

Petite question qui me travaille depuis un moment... 🙂

Dans une macro je fais copier 3 lignes (en tête de colonne) d'un fichier source dans un fichier de destination.

Seul pbm, Excel me demande :
"le presse papier contient une grande quantité d'infos (PS : 3 lignes, super!!!)... Voulez-vosu avoir la possibilité de coller ces infos...
oui pour les garder
non pour le supprimer"

l'option que je souhaite est OUI par défaut.

mon code :

Application.DisplayAlerts = False
ActiveSheet.Paste
Application.DisplayAlerts = True

mais la macro me pose toujours la question.

Avez-vous solution magique pour que la macro :
- selectionne OUI par défaut
et
- ne me pose plus la question

D'avance merci pour votre aide sur la question.

🙂

 

[excalibur]

Re : VBA - Ne pas afficher un pop up raltif au Presse papier!!!

bonjour La braise le forum a la fin de ton code
On Error Resume Next
Application.CommandBars("clipboard").Controls(4).Execute

 

[Guest]

Re : VBA - Ne pas afficher un pop up raltif au Presse papier!!!

Bonjour LaBraise,

A essayer:

Application.DisplayAlerts = False
ActiveSheet.Paste
[B]Application.CutCopyMode = False '[/B] vider le presse papier
Application.DisplayAlerts = True

A+

 

[La braise]

Re : VBA - Ne pas afficher un pop up raltif au Presse papier!!!

Bonjour Hasco et excalibur, le Forum,

J'ai essayé vos 2 solutions :

Application.DisplayAlerts = False
ActiveSheet.Paste
Application.DisplayAlerts = True
On Error Resume Next
Application.CommandBars("clipboard").Controls(4).Execute

et

Application.DisplayAlerts = False
ActiveSheet.Paste
Application.CutCopyMode = False ' vider le presse papier
Application.DisplayAlerts = True

mais aucune des 2 deux ne fonctionnent... 🙁

Le système me pose toujours la même question.

Les 3 lignes que je copie proviennent d'un fichier que j'ouvre pour copier les lignes et que je ferme immédiatement.

Faut-il le laisser ouvert le temps du coller dans le fichier de destination et fermer le fichier source après le collage dans le fichier destination???

D'avance merci pour votre aide toujours aussi précieuse.
🙂

 

[tototiti2008]

Re : VBA - Ne pas afficher un pop up raltif au Presse papier!!!

Bonjour à tous,

en effet, si tu as la possibilité de ne fermer le 1er fichier qu'après avoir collé, tu pourras utiliser le code de Hasco puis fermer ton fichier, tu verras qu'il ne pose plus de question. D'ailleurs, tu n'as pas besoin des lignes avec DisplayAlerts.

 

[La braise]

Re : VBA - Ne pas afficher un pop up raltif au Presse papier!!!

je teste et je vous tient au courant.
Merci pour votre réactivité

🙂🙂🙂

 

[i0raek]

Re : VBA - Ne pas afficher un pop up raltif au Presse papier!!!

Bonjour à tous !!!

juste pour dire que

application.cutcopymode = false

ne fait que de désélectionner la copie... mais ne vide pas le presse papier...
pour cela je te renvoie au lien dont le code fonctionne très bien !!!
http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/vider-presse-papier-sujet_95376_1.htm

voilou ! @++

 

[La braise]

Re : VBA - Ne pas afficher un pop up raltif au Presse papier!!!

re,

j'ai fait la modif. suivante :

j'ai laissé mon fichier source ouvert pendant tous les collages dans les fichiers destination et je le ferme une fois fini.

ça marche nickel! 🙂

J'ai supprimé les display alerts...

Mon code final :

Rows("1:3").Select
Selection.Copy
Windows(File_Name_original).Activate
Rows("1:3").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Merci à vous tous pour votre aide précieuse.

🙂🙂🙂