Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouverture fichier excel plein écran et impact d'autre fichiers

TEMAGOULTFARID

XLDnaute Occasionnel
Bonjour a vous tous,
j'ai un petit souci, j'ai un fichier excel avec macro pour plein écran, jusqu'ici tout va bien et je remercie Chalet 53 pour sa participation a mon projet.Mon problème est , lorsque j'ouvre mon fichier en plein écran sur un PC avec des fichiers excel déjà ouvert , ces dernier se mettent en plain écran automatiquement.Il y a t'il une solution pour que seul mon fichier s'ouvre en plein écran sans impact sur la autre fichiers excel quelque soit le PC .
par avance , merci
bien a vos tous
 

patricktoulon

XLDnaute Barbatruc
re

déjà je vois pas comment faire si X fichiers excel ouverts dans la même instances d'excel a moins de faire une usine a gaz

Staple160 je crois reconnaître mon code avec api tout du moins une partie car il en manque et en plus c'est pas ce que j'ai fait de mieux
bref le demandeur va se manifester et préciser avec le code qu'il utilise en entier si possible

ma derniere en date avec utilisation des api en 32 c'est
VB:
Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As AppBarData) As Long
Public Type RECT: Left As Long: Top As Long: Right As Long: Bottom As Long: End Type
Public Type AppBarData: cbSize As Long: hwnd As Long: uCallbackMessage As Long: uEdge As Long: rc As RECT: lParam As Long: End Type

Sub fullscreen()
  
    With Application: ScreenUpdating = False: .OnKey "{ESCAPE}", "": .DisplayFullScreen = True: .DisplayFormulaBar = False: End With

    With ActiveWindow
        .DisplayHeadings = False: .DisplayGridlines = True: .DisplayHorizontalScrollBar = False: .DisplayVerticalScrollBar = False: .DisplayWorkbookTabs = False
    End With

    SetWindowLongA FindWindowA(vbNullString, Application.Caption), -16, &H15070000
    ShowWindow FindWindowA(vbNullString, Application.Caption), 3
    DrawMenuBar FindWindowA(vbNullString, Application.Caption)
ChangeTaskBar 1
    'ShowWindow hwnd, 3
End Sub
Sub Nofullscreen()
    With Application: ScreenUpdating = False: .OnKey "{ESCAPE}", "{ESCAPE}": .DisplayFullScreen = False: .DisplayFormulaBar = True: End With
    With ActiveWindow
        .DisplayHeadings = True: .DisplayGridlines = True: .DisplayHorizontalScrollBar = True: .DisplayVerticalScrollBar = True: .DisplayWorkbookTabs = True
    End With
    ChangeTaskBar 0
    SetWindowLongA FindWindowA(vbNullString, Application.Caption), -16, &H15CF0000
    DrawMenuBar FindWindowA(vbNullString, Application.Caption)
End Sub

'Applique les propriétés à la barre des taches
'Mode = 0 : voir la barre des tâche
'Mode = 1 : cache la barre des tâches

Public Function ChangeTaskBar(Mode As Long)
    Dim BarDt As AppBarData, ret As Long
    'Entrée des paramètres
    BarDt.cbSize = Len(BarDt): BarDt.hwnd = FindWindowA("shell_traywnd", ""): BarDt.lParam = Mode
    'Applique
    ret = SHAppBarMessage(&HA, BarDt)
    If ret = 0 Then
        Call MsgBox("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
    End If
End Function
voir même maintenant je ne les utilises même plus
 

Staple1600

XLDnaute Barbatruc
Re

patricktoulon
Moi je me suis juste arrêté la dessus.
jusqu'ici tout va bien et je remercie Chalet 53 pour sa participation a mon projet.
Ensuite les fonctionnalités offertes par Xenforo ont fait le reste et j'ai posté le lien du fil
où Chalet53 échange avec le demandeur.

Reste à savoir si c'était le bon fil
 

TEMAGOULTFARID

XLDnaute Occasionnel
Bonjour a vous deux , effectivement, c'est bien le bon fil et le fichier concerné est TABLEAU-MC-2019.
je vous envoie ce soir le fichier
merci a vous deux
 

Discussions similaires

Réponses
36
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…