Boite dialogue Presse papier

Delirium

XLDnaute Occasionnel
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 @+
 

Delirium

XLDnaute Occasionnel
Bonjours excalibur.

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

Voici ma macro :
Code:
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 :

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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

XLDnaute Impliqué
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('D378:D409').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
 

Discussions similaires

Réponses
4
Affichages
424

Statistiques des forums

Discussions
312 923
Messages
2 093 665
Membres
105 780
dernier inscrit
Autric