Plien Ecran a l'ouverture du fichier

[Ilino]

Bonsoir @ tous
je cherche un code VBA plien ecran a l'ouverture du fichier excel sans cliquer sur un bouton
ci dessous un code mais avec un bouton

Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "User32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim hWnd As Long, exLong As Long, zFactor As Integer

hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
Me.Width = Application.Width
Me.Height = Application.Height

End Sub

 

[Fred0o]

Re : Plien Ecran a l'ouverture du fichier

Bonsoir Ilino,

Code à placer dans le code de ThisWorkBook :

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

A+

 

[Ilino]

Re : Plien Ecran a l'ouverture du fichier

Bonsoir Fredo
merci pour la reponse , peut etre j'ai mal explique mon soucis; mon pblm est comment afficher mon USF au demarrage de l'excel en plien ecran et non pas la feuille?

 

[Fred0o]

Re : Plien Ecran a l'ouverture du fichier

Bonsoir Ilino,

Ton code fonctionne très bien. Pour qu'il s'exécute à l'ouverture du fichier, il te faut le placer dans l'USF que tu veux afficher, puis placer cette instruction dans le code de ThisWorkBook :

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

A+

 

[Modeste geedee]

Re : Plien Ecran a l'ouverture du fichier

Bonsour®
voir en bas de cette page :
discussions similaires...

 

[Ilino]

Re : Plien Ecran a l'ouverture du fichier

bonsoir

salutations fredoo

mais quand les demandeurs apprendront ils à chercher sur le forum ??
[/url]

Bonjour Tous le monde ; bonjour carcharodon;
tu as raison peut etre j'ai mal cherché mais si tu regarde mon poste # 1 je pense que j'ai fait qlq effort ..mon souci est au démarrage de l’excel c a d le USF s’ouvert automatiquement a plein écran.
Mais quand même je peut exploiter ta réponse on l’adaptant a mon programme.
Un grand merci pour tout le monde et Good Week end

 

[Ilino]

Re : Plien Ecran a l'ouverture du fichier

Bonsoir @ tous
Sans souci, je tien a te remercier pour tous les exemples que tu as fait dans ce forum je suis un parmi les adhérents qui exploite tes examples .j’apprécié largement tes exemples Un Grand Merci .
Grazie a+