XL 2016 Plein écran en vba et presse papier

TxAcid · 28 Mai 2023

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

TooFatBoy · 28 Mai 2023

Bonjour,

Essaye de mettre ta macro dans Open plutôt que dans Activate.

patricktoulon · 28 Mai 2023

bonjour
c'est la première fois que j'entends çà
je viens de tester chez moi et le clipboard n'est pas vide après fullscreen

Dudu2 · 30 Mai 2023

Bonjour,

Ça dépend...
J'avais déjà rencontré ce problème avec un Application.DisplayStatusBar.

VB:

Sub a()
    [B1].ClearContents
    [A1].Value = "TEST 1"
    [A1].Copy
    [B1].PasteSpecial xlPasteAll
    Application.CutCopyMode = False
 
    Application.Wait Now + TimeSerial(0, 0, 2)
 
    [B1].ClearContents
    [A1].Value = "TEST 2"
    [A1].Copy
  
    Application.DisplayFullScreen = False 'plein écran
 
    '--------------------------------------------------------
    'Chacune des instructions suivantes bousille le Clipboard
    '--------------------------------------------------------
    'ActiveWindow.DisplayHeadings = True
    'ActiveWindow.DisplayGridlines = True
    'Application.DisplayFormulaBar = True
    'ActiveWindow.DisplayWorkbookTabs = True
    'Application.DisplayStatusBar = True
 
    On Error Resume Next
    [B1].PasteSpecial xlPasteAll
    If Err.Number <> 0 Then MsgBox "Impossible de coller !"
    On Error GoTo 0
    Application.CutCopyMode = False
End Sub

Edit: j'ai inversé les Flags pour pas se retrouver Gros-Jean comme devant

XL 2016 Plein écran en vba et presse papier

TxAcid

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires