ouverture dossier windows avec code vba

Version imprimable

27/11/2018, 18h25
nicogef

ouverture dossier windows avec code vba

bonjour

quel code me conseillez-vous pour l'ouverture d'un dossier avec explorateur Windows avec un code vba avec position de la fenêtre et les dimensions ?

merci d'avance
27/11/2018, 18h40
patricktoulon

re

re
https://excel.developpez.com/faq/ind...reExploWindows

bonjour

le code fonctionne sans redimensionner la fenêtre et sans erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Function OuvrirFichier2(MonFichier As String)
'par Excel-Malin.com ( https://excel-malin.com )
Dim vl_procId
    vl_procId = Shell("C:\windows\explorer.exe " & MonFichier, vbNormalFocus)
    retval = vl_procId
    largeur = GetSystemMetrics32(0)
hauteur = GetSystemMetrics32(1)
 
 
    MoveWindow FindWindow(vbNullString, vl_procId.locationname), 0, ((hauteur / 4 * 3) - 50), largeur, hauteur / 4, True
End Function

avez vous une idée de mon problème ?

merci d'avance

re
les declarations d'api elles sont ou ?

bon te casse pas la tete j'ai retrouvé la mienne j'y ai fait l'adaptation a ton souhait

Code:

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
'*********************************************************************
'fonction pour ouvrir un dossier l'explorateur en placant et dimentionnant la fenetre
'auteur:patricktoulon Developpez.com
'ouvrir un dossier dans l'explorer et placer et dimentionner la fenetre
'*********************************************************************
'
Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
'
'
Public Function Ouverture_Dossier(Mondossier As String)
    Dim X&, Lcaption$
    With CreateObject("shell.application")    'creation de l'object shell.application
        X = .Windows.Count    'récuperation du count des fenetres eventuellement deja ouvertes
        Shell "C:\windows\explorer.exe " & Mondossier, vbNormalFocus    'ouverture du  dossier dans  l'explorer avec shell
        Do: DoEvents: Loop Until .Windows.Count > X:    'gestion d 'attente d'ouverture complete de l'explorateur le count augmente donc de 1
        Lcaption = .Windows(.Windows.Count - 1).locationname    'determine la caption$ de la fenetre
    End With
    'deplacement de la fenetre
    MoveWindow FindWindow(vbNullString, Lcaption), 0, ((GetSystemMetrics(1) / 4 * 3) - 50), GetSystemMetrics(0), GetSystemMetrics(1) / 4, True
End Function
'
Sub test()
    Ouverture_Dossier "C:\Users\polux\DeskTop"
End Sub

;)

28/11/2018, 21h14
nicogef

bonjour

merci pour le code il fonction très bien

Citation:

les déclarations d'api elles sont ou ?

je l'ai pas mis pour les prochaines fois je les métrai

peut ton récupéré la position et les dimension des fenêtre ouvert par vba et modifier a notre guise ?

merci d'avance

re
oui tu peux recupérer les dimemtions avec l'api getwindowrect par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long,lpRect As RECT) As Long 
 
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
sub truc()
Dim r As RECT
retour=GetWindowRect(hwnd, r)
' Affiche la position Haut/Gauche de la fenêtre
MsgBox "Gauche : " & r.Left & ", Haut: " & r.Top, vbOK, "Position fenêtre"
end sub

le bottom - le top c'est le height
le rigth-le left c'est le width
le hwnd c'est le handle

bonjour
j'arrive a récupéré les dimension des fenêtres excel et windows
mais quand je réutilise les dimensions sauvegarde pour excel c'est pas la meme dimension de fenêtre afficher mais par contre pour les fenêtre windows c'est les bonne dimension

Code:

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
Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As rect) As Long
Type rect
Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
 
 
Sub recuppeposition()
Dim rd As rect
Dim rf As rect
dossier = monhandledossier
If dossier <> 0 Then
retour = GetWindowRect(dossier, rd)
' Affiche la position Haut/Gauche de la fen?tre
Range("leftdossier").Value = rd.Left
Range("topdossier").Value = rd.Top
Range("rightdossier").Value = rd.Right
Range("bottomdossier").Value = rd.Bottom
End If
Fichier = monhandlefichier
If Fichier <> 0 Then
retour = GetWindowRect(Fichier, rf)
' Affiche la position Haut/Gauche de la fen?tre
Range("leftexcel").Value = rf.Left
Range("topexcel").Value = rf.Top
Range("rightexcel").Value = rf.Right 
Range("bottomexcel").Value = rf.Bottom 
End If
End Sub

30/11/2018, 22h48
patricktoulon

re
c'est normal getwindowrect te renvoie les dim en pixel avec l'app excel c'est en point
il te faut faire la convertion

voila pour le coéficient point to pixel ou l'inverse
tu divise pour pixel to point :multiplie pour point to pixel
Code:

1 2 3 function PtoPX()as double PtoPX= CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI") / 72 end function
02/12/2018, 11h39
nicogef

merci pour votre aides