Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Eviter Message du Presse Papier

Eviter Message du Presse Papier

4 réponses
Avatar
ZoX
Bonjour!

je fais la copie d'une feuille =E0 une autre avec cette
fonctionne

Sub CopieSource()

Application.ScreenUpdating =3D False
Workbooks.Open("Liste.xls").IsAddin =3D True


Windows("Formulaire informatique_FINALv1.1.xlt").Activate
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name =3D "Ted"
ActiveSheet.Visible =3D False

Workbooks("Liste.xls").Activate
Sheets("Feuil1").Select
Sheets("Feuil1").Cells.Select
Selection.Copy


Workbooks("Formulaire informatique_FINALv1.1.xlt").Activate
'activation de la feuille
Sheets("Ted").Visible =3D True
Sheets("Ted").Select
ActiveSheet.Paste
Sheets("Ted").Range("A1").Select
' Masquage de la feuille
Sheets("Ted").Visible =3D False

Worksheets("Feuil1").Activate

Workbooks("Liste.xls").Saved =3D True
Workbooks("Liste.Xls").Close

End Sub

et j'aimerais =E9viter le message du Presse Papier lorsqu'il
dit qu'il contient une grande quantit=E9 d'informations.
Y-a-il un moyen de simuler un click OK ou bien =E9viter ce
message ?

Thx!
ZoX
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Ellimac
Bonjour,

Est-ce que Application.CutCopyModeúlse résoudra ton
problème ?

Camille

-----Message d'origine-----
Bonjour!

je fais la copie d'une feuille à une autre avec cette
fonctionne

Sub CopieSource()

Application.ScreenUpdating = False
Workbooks.Open("Liste.xls").IsAddin = True


Windows("Formulaire
informatique_FINALv1.1.xlt").Activate

ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "Ted"
ActiveSheet.Visible = False

Workbooks("Liste.xls").Activate
Sheets("Feuil1").Select
Sheets("Feuil1").Cells.Select
Selection.Copy


Workbooks("Formulaire
informatique_FINALv1.1.xlt").Activate

'activation de la feuille
Sheets("Ted").Visible = True
Sheets("Ted").Select
ActiveSheet.Paste
Sheets("Ted").Range("A1").Select
' Masquage de la feuille
Sheets("Ted").Visible = False

Worksheets("Feuil1").Activate

Workbooks("Liste.xls").Saved = True
Workbooks("Liste.Xls").Close

End Sub

et j'aimerais éviter le message du Presse Papier lorsqu'il
dit qu'il contient une grande quantité d'informations.
Y-a-il un moyen de simuler un click OK ou bien éviter ce
message ?

Thx!
ZoX
.



Avatar
ZoX
où est ce que je devrais mettre cette ligne?
Avatar
ZoX
ahhhh
ca a l'air de marcher !

thx :)
Avatar
Patrick BASTARD
Bonjour, *ZoX*
J'ai lu ton post 2ce101c507ab$f0877b60$
avec le plus grand intéret :


ahhhh
ca a l'air de marcher !


Pas que l'air, fais confiance à Camille...
;-)

Patrick.