Discussion :

[Nako_lito]

Bonjour a tous,
j'ai une petite application qui quand je l'exécute m'ouvre un explorateur pour allé chercher un fichier excel qui s'ouvre, copie les donnée vers mon classeur et doit se fermer, malheureusement, lorsque j'arrive sur la ligne
windows(leFichier).Close il m'avertit que le presse papier contient des trucs et me demande ce que je veux en faire. Je ne veux pas que ce message apparaisse, comment faire ?

j'ai tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = false

mais ca fonctionne pas.

par avance merci.

[laetitia]

bonjour Nako_lito le forum eventuellement le vider avant peut être une solution!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
On Error Resume Next
Application.CommandBars("clipboard").Controls(4).Execute
windows(leFichier).Close

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.CutCopyMode = False
windows(leFichier).Close

[Nako_lito]

merci, la seconde fonctionne tres bien.
J'ai pas teste la premiere

[talondachil]

Salut.

Je me demande si cette commande n'irai pas (comme ça personne ne t'engueule).

DoCmd.SetWarnings False

Tu fais ton copier/coller, renverser ton café, exploser la TV, déborder l'eau du bain ...

DoCmd.SetWarnings True

Attend confirmation d'autre formumeur pour cette commande, je début sur VBa.

Salut

[laetitia]

re, bonjour talondachil "voisin" c'est pas une instruction pour access???

ps: je me pose une autre question!! si l'amie nako a ce pb... ne vient t 'il pas de du code qui lui sert a copier une reflexion...

[Nako_lito]

Laeticia a raison, le message n'apparait que lorsque le presse papier contient quelque chose, quand je repasse le mode copier/coller a false, le presse papier se vide par la meme occasion.
Problem solved.

[CodeFacile]

Bonjour ,

Je l'ai déja signalé. La commande suivante qui est présente sur le site ne fonctionne pas; On n'a pas tous une barre d'outils clipbooard avec un controls 4 qui correspond.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
Application.CommandBars("clipboard").Controls(4).Execute
' déclence l'erreur "l'indice n'appartinet pas à la sélection ".

Je suis en Excel 2003