Boite dialogue Presse papier

[Delirium]

Bonjours à tous.

J'ai un petit soucis dans une macro qui copie d'un classeur à un autre des données puis ferme les classeur.

Ma macro s'arrête car excel m'affiche une boite dialogue qui me dit que le presse papier contient une grande quantité d'informations et me demande si je veux les concervés.

Or je ne veux pas les concervé et je ne veux pas que cette boite de dialogue apparaisse (pour que ma macro s'execute normalement).

Si quelqu'un connais le code à mettre dans ma macro.

Merci et @+

 

[excalibur]

bonjour delerium , le forum insere cette macro apres tes copier coller qui vide le presse papiers Sub vide_pp()
On Error Resume Next
Application.CommandBars('clipboard').Controls(4).Execute
End Sub ' salutations

 

[Delirium]

Bonjours excalibur.

Je n'arrive pas a exploiter ton code dans ma macro

Voici ma macro :

Private Sub CommandButtonPlanC_Click()
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & '\\PlanC.thx'
Workbooks.Open Filename:=ThisWorkbook.Path & '\\PlanR.thx'
Windows('PlanR.thx').Activate
Sheets('Données').Range('D378:D409').Copy
Windows('PlanC.thx').Activate
Sheets('Résumé Congés').Range('O378:O409').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Windows('PlanR.thx').Activate
Sheets('Données').Range('E12:E377').Copy
Windows('PlanC.thx').Activate
Sheets('Feuil4').Range('F12:F377').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Windows('PlanR.thx').Activate
ActiveWindow.Close
Windows('PlanC.thx').Activate
Sheets('Feuil1').Range('A1').Select
Application.ScreenUpdating = True
End Sub

Le problème est à la fermeture de 'PlanR.thx' au niveau du code :

Windows('PlanR.thx').Activate
ActiveWindow.Close

La boite de dialogue de excel apparait. Cette boite de dialogue me propose de conservé ou de ne pas conservé les informations contenues dans le presse papier. Or je ne veux pas les concervé et je ne veux pas que cette boite de dialogue apparaisse au milieu de l'execution de ma macro.

J'espère avoir été plus clair.

Merci pour ton aide.

A+

 

[MichelXld]

bonsoir Delirium , bonsoir Excalibur

tu peux tester cette macro pour vider le presse papier

Sub viderPressePapier()
'nécéssite d'activer la référence 'Microsoft Forms 2.0 Object Library'
Dim Cible As dataObject
Set Cible = New dataObject
Cible.setText ''
Cible.putInClipboard
Set Cible = Nothing
End Sub


bonne soiree
MichelXld

 

[Delirium]

Bonsoir MichelXld

Qu'est ce que 'Microsoft Forms 2.0 Object Library' ?

Je ne connais pas.

Merci.

 

[MichelXld]

rebonsoir

Microsoft Forms 2.0 Object est la librairie qu'il faut activer pour que la macro fonctionne

dans l'éditeur de macros
menu Outils
References
coches la ligne 'Microsoft Forms 2.0 Object Library'
cliques sur OK pour valider


bonne soiree
MichelXld

 

[Delirium]

Une autre question sur Microsoft Forms 2.0 Object.

Si ma macro doit fonctionner sur un autre PC, l'utilisateur de mon fichier Excel devra activer 'Microsoft Forms 2.0 Object' ?

Si oui cela me dérange un peu, car pour utiliser l'application que je suis entrain de réaliser l'utilisateur ne doit pas changer le paramétrage d'Excel.

Autrement j'ai testé ton code est cela fonctionne, mais à nécessité que j'active Microsoft Forms 2.0 Object (dommage).

Merci et @+

 

[MichelXld]

rebonsoir Delirium

l'activation de la librairie est liée au classeur que tu as créé .

si tu utilises le classeur sur un autre poste il ne devrait pas y avoir de probleme . si tout va bien , Excel doit meme gérer les différences de version d'un PC à l'autre


bonne soiree
MichelXld

 

[excalibur]

bonjour delirium , michel , le forum essaie comme cela defois!! Private Sub CommandButtonPlanC_Click()
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & '\\PlanC.thx'
Workbooks.Open Filename:=ThisWorkbook.Path & '\\PlanR.thx'
Windows('PlanR.thx').Activate
Sheets('Données').Range('D378409').Copy
Windows('PlanC.thx').Activate
Sheets('Résumé Congés').Range('O378:O409').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
call vide_pp
Windows('PlanR.thx').Activate
Sheets('Données').Range('E12:E377').Copy
Windows('PlanC.thx').Activate
Sheets('Feuil4').Range('F12:F377').PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
call vide_pp
Windows('PlanR.thx').Activate
ActiveWindow.Close
Windows('PlanC.thx').Activate
Sheets('Feuil1').Range('A1').Select
End Sub' salutations

 

[Delirium]

Merci MichelXld et excalibur.

Ma macro fonctionne nickel maintenant .

Merci et a bientôt sur le forum XL Download.