Discussion :

[MarcelG]

Bonjour le Forum,

Depuis Excel, j'ouvre une fenêtre de dossiers.
Je souhaite que celle-ci s'affiche en plein écran

Mais mon code est vain quant à l'affichage plein écran

Le voici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Public Sub Ouvrir_exports(Optional ch_exports As String)
 
Dim Chemin As String
 
Debug.Print Len(ch_exports) = 0
 
Chemin = "monrépertoiresurlelecteuR"
'Debug.Print Chemin
ThisWorkbook.FollowHyperlink Chemin, NewWindow:=True
 
Call agrandit_fenetre
 
End Sub
 
Sub agrandit_fenetre()
Call ShowWindow(GetActiveWindow(), 3)
End Sub

Par avance, je vous remercie pour votre concours.

[patricktoulon]

Bonjour marcel

si j'ai bien compris c'est une fenêtre de l'explorateur Windows que tu veux maximizer ????

[MarcelG]

Bonjour Patrick,

Merci beaucoup pour ton retour.

Cela dit, j'ai continué à chercher.
Peut-être une voie

J'ai trouvé ce code sur autre site :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
 (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
 Declare Function SetForegroundWindow Lib "user32" _
 (ByVal hwnd As Long) As Long
 Declare Function ShowWindow Lib "user32" _
 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
 ' ShowWindow() Commands
 Public Const SW_HIDE = 0
 Public Const SW_SHOWNORMAL = 1
 Public Const SW_NORMAL = 1
 Public Const SW_SHOWMINIMIZED = 2
 Public Const SW_SHOWMAXIMIZED = 3
 Public Const SW_MAXIMIZE = 3
 Public Const SW_SHOWNOACTIVATE = 4
 Public Const SW_SHOW = 5
 Public Const SW_MINIMIZE = 6
 Public Const SW_SHOWMINNOACTIVE = 7
 Public Const SW_SHOWNA = 8
 Public Const SW_RESTORE = 9
 Public Const SW_SHOWDEFAULT = 10
 Public Const SW_MAX = 10
 '-----------------------------------
 
 Sub essai_chemin()
 Call Activer_chemin("lechemindudossier")
 End Sub
 
 Sub Activer_chemin(chemin As String)
 
 Dim hwnd As Long
 
 ThisWorkbook.FollowHyperlink chemin, NewWindow:=True
 hwnd = FindWindow(vbNullString, chemin)
 
 If hwnd = 0 Then Exit Sub
 SetForegroundWindow hwnd
 ShowWindow hwnd, SW_SHOWMAXIMIZED
 End Sub

Une question parallèle : Existe-t-il des livres VBA Excel Pro (ce qui ne veut pas dire grand chose pour moi, j'en conviens)

Un grand merci.

[MarcelG]

Bonjour,

Après redémarrage de mon poste de travail;
Le code que je crois avoir trouvé n'est plus efficace.

Bon week-end à tous.

[patricktoulon]

et oui c'est pas aussi simple

en fait il faut chercher la fenetre pour cela tu a besoins de plusieures APIS

allez teste mais remet ta sub export car moi je l'ai moifié

j'ai mis plein de commentaires
je pense que c'est assez facile a comprendre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
'Declare Function GetActiveWindow Lib "user32" () As Long    'on ne s'en sert plus elle fonctionne correctement qu'avec les userform dans l'application excel depuis les system 64 bits
'MODIFIE LAFFICHAGE DE LA FENETRE  3 POUR PLEIN ECRAN
Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
'pour capter le handle de la fenetre  ON NE S EN SERT PAS DANS CET EXERCICE
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
' pour determiner le texte de la caption de la fentre
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
' POUR DETERMIBER QUELLE CLASSE A LA FENTRE  ON NE S EN SERT PAS DANS CET EXERCICE
'Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
' capter la fenetre suivante dans la hierarchie de l affichage c est la qui est importants dans cet exercice
Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hWnd As Long, ByVal wFlag As Long) As Long
'POUR CAPTER LE HANDLE DU DESKTOP QUI EST LE HANDLE 0!!!!!!!!!! on par de celui ci vers les autre avec getnextindow
Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'ta sub il faudra la remtre comme tu l'avais fait
Public Sub Ouvrir_exports()
    'Application.DisplayAlerts = False
    Dim Chemin As String, zname As String
    'Debug.Print Len(ch_exports) = 0
    Chemin = "C:\Users\polux\Desktop\Nouveau dossier"
    zname = StrReverse(Split(StrReverse(Chemin), "\")(0)) 'on recupere le nom court qui est certainement le nom de la fenetre
    'Debug.Print Chemin
    ThisWorkbook.FollowHyperlink Chemin, NewWindow:=True
 
    agrandit_fenetre zname
End Sub
 
Public Function agrandit_fenetre(sname As String)
    Dim pointeur As Long, res As String, strBuff As String * 255
    Sleep 200 ' un laps de temps pour laisser la fentre arriver
      pointeur = GetDesktopWindow() ' on capte le hendle du desktop
    pointeur = GetNextWindow(pointeur, 5) 'on saute la taskbar qui est une fenetre aussi  et tout y cointi !!!!!
    Do
      'c'est parti!!!!!!!!!!
        DoEvents
           res = GetWindowText(pointeur, strBuff, Len(strBuff)) 'on capte le texte de la caption
           If Left(strBuff, Len(sname)) = sname Then Exit Do 'on verifie qu'il correspond  a notre titre de fenetre: si oui on sort de la boucle
        pointeur = GetNextWindow(pointeur, 2) 'on continu on descend dans la hierarchie
    Loop Until strBuff = "Progman" 'progman c'est le shelluser window il ne s'arete jamais
'on est sorti alors soit il n'y a pas la fenetre du nom de sname  soit elle est trouver alors .....
    ShowWindow pointeur, 3 'alors voila
    End
End Function

[MarcelG]

Bonjour Patrick, Bonjour le Forum,

To code est parfaitement actif.
Je n'y connais rien dans ce genre de développement.
Dès que possible, je regarderai tes interventions.
Sinon, comme je l'ai demandé, s'il existait une livre de référence qui vulgariserait ce genre de notion, alors je serais volontiers preneur.

Un grand merci.

Discussion résolue.