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 Presse papier

Presse papier

1 réponse
Avatar
David Vincent
Bonsoir,

j'ai dans ma proc une interruption par une fenêtre me demandant:

Le presse papier contient une grande quantité d'infos, voulez vous avoir la
possibilités de les coller dans 1 autre document ultérieurement?
Pour les enregistrer cliquer oui
Pour les supprimer cliquer non

J'ai trouvé sur Excelabo une syntaxe d'AV pour vider le presse papier mais
ça le fait pas?

Comment puis je éviter ce message au bon milieu de ma proc que voici...

Sub Import2()
'
' Import2 Macro


Windows("Fiche Vérif BIC.xls").Activate
Range("B1").Select
Windows("954507a.csv").Activate
Rows("1:3").Select
Selection.Copy
Windows("Fiche Vérif BIC.xls").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Windows("954507a.csv").Activate
ActiveWorkbook.Close False
Range("B101").Select
Windows("954507b.csv").Activate
Rows("1:3").Select
Selection.Copy
Windows("Fiche Vérif BIC.xls").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
On Error Resume Next
Application.CommandBars("Clipboard").Controls(4).Execute
Windows("954507b.csv").Activate
ActiveWorkbook.Close False
Range("B101").Select
Rows("101:104").Select
Selection.Delete Shift:=xlUp
Range("A1").Select

End Sub


Merci d'avance à celui ou ceux qui pourront m'aider...

Cordialement

DV
Signaler un problème avec ce contenu

1 réponse

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
michdenis
Bonjour David,

Tu peux utiliser ceci pour vider complètement le presse-papier

Proposée et publiée sur ce forum par Alain Cros.

Déclaration des API dans le haut d'un module Standard
'------------
Private Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long

'------------------
Sub Vider_Presse_Papier()
OpenClipboard 0
EmptyClipboard
CloseClipboard
End Sub
'------------------


Salutations!



"David Vincent" a écrit dans le message de news: 43d136e7$0$6665$
Bonsoir,

j'ai dans ma proc une interruption par une fenêtre me demandant:

Le presse papier contient une grande quantité d'infos, voulez vous avoir la
possibilités de les coller dans 1 autre document ultérieurement?
Pour les enregistrer cliquer oui
Pour les supprimer cliquer non

J'ai trouvé sur Excelabo une syntaxe d'AV pour vider le presse papier mais
ça le fait pas?

Comment puis je éviter ce message au bon milieu de ma proc que voici...

Sub Import2()
'
' Import2 Macro


Windows("Fiche Vérif BIC.xls").Activate
Range("B1").Select
Windows("954507a.csv").Activate
Rows("1:3").Select
Selection.Copy
Windows("Fiche Vérif BIC.xls").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Windows("954507a.csv").Activate
ActiveWorkbook.Close False
Range("B101").Select
Windows("954507b.csv").Activate
Rows("1:3").Select
Selection.Copy
Windows("Fiche Vérif BIC.xls").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
On Error Resume Next
Application.CommandBars("Clipboard").Controls(4).Execute
Windows("954507b.csv").Activate
ActiveWorkbook.Close False
Range("B101").Select
Rows("101:104").Select
Selection.Delete Shift:=xlUp
Range("A1").Select

End Sub


Merci d'avance à celui ou ceux qui pourront m'aider...

Cordialement

DV