Discussion :

[TANK7070]

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.
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,
y a t-il une solution pour y remédier ?
Merci

[Franc]

Salut, essaie avec ces 2 lignes de code supplémentaires:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Activate()
    ' Désactiver temporairement le code pour éviter la réinitialisation du presse-papiers
    Application.EnableEvents = False
 
    ' Activer le plein écran
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayWorkbookTabs = False
 
    ' Réactiver le code après la fin de l'opération de copie
    Application.EnableEvents = True
End Sub

[TANK7070]

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