Plein ecran vba et presse papier

Résolu
TANK7070 Messages postés 5 Statut Membre -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -

Bonjour,

pour mon classeur j'ai mis le code suivant:

Private Sub Workbook_Activate()
    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

est cela donne l'effet escompté, cependant ça réinitialise le presse papier à la sélection du classeur, alors impossible de y coller les données copiées des autres classeurs


Windows / Opera 98.0.0.0

1 réponse

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     

    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?

    0
    1. TANK7070 Messages postés 5 Statut Membre
       

      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

      0
    2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > TANK7070 Messages postés 5 Statut Membre
       

      explique précisément la suite des opérations.

      0
    3. TANK7070 Messages postés 5 Statut Membre > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
       

      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

      0
    4. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > TANK7070 Messages postés 5 Statut Membre
       

      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?

      0
    5. TANK7070 Messages postés 5 Statut Membre > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
       

      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

      0

Discussions similaires

Acceder au presse papier windows 10
Chibani31 -
Gaia06700 -

15 réponses
Quel est le raccourci clavier pour le plein écran ?
Carotte77 -
KhyraRockwell -

19 réponses
Les presses-papier de facebook ??
GamlerZ -
Utilisateur anonyme -

3 réponses
Où se trouve le presse papier dans Huawei P30 ?
Virginie -
Makkio -

3 réponses
???????????????? Où est le PRESSE-PAPIER
Imamiah52 -
little boy62 -

1 réponse