Plein ecran vba et presse papier
Résolu/Fermé
TANK7070
Messages postés
4
Date d'inscription
samedi 27 mai 2023
Statut
Membre
Dernière intervention
28 mai 2023
-
27 mai 2023 à 15:45
yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 - 29 mai 2023 à 09:28
yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 - 29 mai 2023 à 09:28
A voir également:
- Plein ecran vba et presse papier
- Presse papier - Guide
- Presse-papier : mieux l'utiliser avec Windows 10 et 11 - Guide
- Double ecran - Guide
- Presse papier iphone ✓ - Forum Windows 7
- Presse papier - Forum iPhone
1 réponse
yg_be
Messages postés
23471
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 février 2025
Ambassadeur
1 568
27 mai 2023 à 20:38
27 mai 2023 à 20:38
bonjour,
à première vue, je ne vois pas le lien entre ce code et l'effet sur le presse-papier.
as-tu essayé avec un code vide?
27 mai 2023 à 22:23
oui j'ai essayé, même avec un tout nouveau classeur, c'est comme ça que j'ai pu identifier le problème, et moi non plus je ne vois pas le lien
28 mai 2023 à 12:13
explique précisément la suite des opérations.
28 mai 2023 à 12:24
c'est pourtant simple, apparemment l'événement Workbook_Activate() avec les instructions de plein écran font réinitialiser le presse papier si les données copiées proviennent d'un autres classeur excel
28 mai 2023 à 19:27
Même sans l'évenement, n'est-il pas bien connu que les données copiées doivent restées "activées" pour pouvoir être collées?
28 mai 2023 à 20:53
Bah allez savoir le pourquoi du comment, d'ailleurs mon problème est résolu par blocage d'évènement :
Private Sub Workbook_Activate()
Application.EnableEvents = False
Application.DisplayFullScreen = True 'plein écran
ActiveWindow.DisplayHeadings = False 'colonnes et lignes
ActiveWindow.DisplayGridlines = False 'quadrillage
Application.DisplayFormulaBar = False ' barre de formule
ActiveWindow.DisplayWorkbookTabs = False 'onglets
End Sub
merci pour votre aide