plein ecran qui ne marche plus sous 2010

[gege21]

bonsoir a tous,
j'ai se code qui marchait très bien sous 2007
mais depuis que je suis passe en version 2010 sa ne marche plus ???
(mise au format de l’écran automatique )
merci pour votre aide

 

[Gelinotte]

Re : plein ecran qui ne marche plus sous 2010

Bonsoir,

Je viens de tester sur deux ordinateurs qui ont des résolutions d'écran différentes. Le plein écran fonctionne bien.

G

 

[gege21]

Re : plein ecran qui ne marche plus sous 2010

bonjour,
je confirme bien chez moi cela ne marche plus
voici une capture d’écran de l'erreur

 

[Gelinotte]

Re : plein ecran qui ne marche plus sous 2010

Bonjour,

Possiblement une référence dans VBE qui manque :

.

G

 

[Efgé]

Re : plein ecran qui ne marche plus sous 2010

Bonjour gege21 , Gelinotte, Dans le premier exemple le code fait appel à des fonction 32Bits. Si la version d'excel est 64bits, ça plante. Il y a une solution pour savoir si l'on est en 64 ou 32 dans le code (voir ce fil https://www.excel-downloads.com/threads/comment-savoir-si-lutilisateur-est-sous-xp-ou-seven.181939/. C'est long mais très instructif si l'on lit bien tout) Cordialement

 

[gege21]

Re : plein ecran qui ne marche plus sous 2010

re,
je suis perdu sous 2010 sa se trouve dans quel menu

Possiblement une référence dans VBE qui manque :

je suis 2010 64bit

 

[Efgé]

Re : plein ecran qui ne marche plus sous 2010

Re, @gege21 si tu avais suivi mon coseil tu aurais trouvé ce fichier laissé par david ( https://www.excel-downloads.com/threads/comment-savoir-si-lutilisateur-est-sous-xp-ou-seven.181939/ ) et qui règle le problème. Cordialemnt

 

[YANN-56]

Re : plein ecran qui ne marche plus sous 2010

Bonjour gege21,efgé et à ceux qui passeront par ici,

Pour faire suite à la remarque de efgé, voici un exemple de gestion 32/64 bits:
Ce Module à pour action de supprimer la Bande Bleue de l'USF
Tu constateras l'ajout de " PtrSafe" suite à une aide qui m'a été apportée sur XLD.
Bonjour gege21,efgé et à ceux qui passeront par ici,

Pour faire suite à la remarque de efgé, voici un exemple de gestion 32/64 bits:
Ce Module à pour action de supprimer la Bande Bleue de l'USF
Tu constateras l'ajout de " PtrSafe" suite à une aide qui m'a été apportée sur XLD.

#If VBA7 Then ' On est en 64 Bits
Declare PtrSafe Function GetWindowLongA Lib "User32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare PtrSafe Function SetWindowLongA Lib "User32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare PtrSafe Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
#Else ' On est en 32 Bits
Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
#End If
Sub CACHER_BANDE_BLEUE(USF As UserForm)
Dim hwnd&
hwnd = FindWindowA("Thunder" & IIf(Application.version Like "8*", "X", "D") & "Frame", USF.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And Not &HC00000: DrawMenuBar hwnd
End Sub

L'appel est dans l'initialisation de l'USF:
CACHER_BANDE_BLEUE Me

Regarde si tu peux adapter, car je n'ai pas les outils pour tester.

Amicalement,

Yves
P.S. Désolé, mes balises de codes ne fonctionnent pas



L'appel est dans l'initialisation de l'USF:

CACHER_BANDE_BLEUE Me

Regarde si tu peux adapter, car je n'ai pas les outils pour tester.

Amicalement,

Yves

 

[YANN-56]

Re : plein ecran qui ne marche plus sous 2010

Crotte de bique cela risque de faire doublon!
Je n'avais pas vu le dernier Poste de efgé

 

[Efgé]

Re : plein ecran qui ne marche plus sous 2010

Re Bonjour Yves , Tes balises fonctionnent, mais on ne peux pas mettre de couleur dans la balise code. Je te laisse les balises highlight si cela peux t'aider : [highlight=vba ] [ /highlight] Cordialement

 

[gege21]

Re : plein ecran qui ne marche plus sous 2010

re bonjours a tous
effectivement sa marche (efgé dsl j'avais loupé le poste )
par contre

Sub CACHER_BANDE_BLEUE(USF As UserForm)
Dim hwnd&
hwnd = FindWindowA("Thunder" & IIf(Application.version Like "8*", "X", "D") & "Frame", USF.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And Not &HC00000: DrawMenuBar hwnd
End Sub

ne marche pas sur 64 bit

 

[YANN-56]

Re : plein ecran qui ne marche plus sous 2010

Merci efgé pour l'info,

Gege21:
Mon ordi fixe étant en panne; je suis sur mon NetBook.
Outre le fait que je ne dispose plus de ma bibliothèque VBA,
je ne suis pas très à l'aise pour poursuivre.

Continue à suivre les conseils de efgé, et tu aboutiras!

Regarde aussi le PDF que j'ai déposé dans ce Fil:
http://www.excel-downloads.com/forum/181939-comment-savoir-si-lutilisateur-est-sous-xp-ou-seven-8.html#post1123907

Bon courage, bonne route, et au plaisir,

Yves

 

[gege21]

Re : plein ecran qui ne marche plus sous 2010

re,
il y avait quelque erreur
maintenant tout marche bien
enlever la bar des titre le l'userform et une bonne ide
mais comme faire pour mettre un bouton pour la faire réapparaitre ?

 

[gege21]

Re : plein ecran qui ne marche plus sous 2010

pas de petite ide pour reafficher barre des titre userform ??

 

[YANN-56]

Re : plein ecran qui ne marche plus sous 2010

Bonsoir gege,

La seule solution que je connaisse est de Unloader l'USF, et de l'ouvrir à nouveau,
avec une variable public dans un module notant si c'est la première ou la xème ouverture.On appelle la fonction ou pas

Mais peut-être il y a-t-il autres méthodes. (Là; je n'ai jamais exploré)

Amicalement,

Yves