Compatibilité excel 2007 et 2010 code vba

Version imprimable

Bonsoir,

Il y de cela un bon moment, j'avais trouvé dans la faq un code que je n'arrive plus à retrouver (juste pour mettre le lien).

Le code en question permet de retirer de la barre de titre d'une userform les icônes réduire/ajuster/fermer.

Sous excel 2007, c'est impeccable mais ne fonctionne pas sous excel 2010.

J'ai bien trouvé quelques codes que je n'arrive pas à adapter ou ne sont pas applicables à mon cas.

Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 UserForm_Initialize()
    Dim hwnd As Long
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
                                       "X", "D") & "Frame", Me.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
    End Sub

En vous remerciant par avance.

Bon week-end.

05/12/2015, 03h09
clementmarcotte

Quel Excel 2010: 32 bits ou 64 bits ?

Et puis Excel 2010 ce n'est pas la version 8; c'est la version 14.

Et puis, il doit bien y avoir un message d'erreur à quelque part.

Et puis, si c'est ce que je pense, c'est un sujet amplement traité et tu devrais probablement lire ceci :

http://arkham46.developpez.com/artic...ice/vba64bits/
05/12/2015, 06h21
Invité

Bonjour Clementmarcot,

Je te remercie beaucoup pour ton retour et pour ton lien. Désolé, j'ai omis de mention les versions sur mon pc c'est windows7 32 bits et excel 2007 32 bits.

Chez moi ça fonctionne très bien. Par contre, ça ne fonctionne pas chez mon ami, sa machine est sur windows7 32 bits et excel 2010 32 bits.

Pour l'erreur, je ne sais pas exactement car ça ne se pas sur ma machine.

edit:J'ai bien trouvé quelques codes que je n'arrive pas à adapter ou ne sont pas applicables à mon cas.

J'ai en effet trouvé le document que tu me signales, mais en d'autres termes je n'ai pas su comment adapter.

Merci quand même de m'avoir répondu.

Bon week-end.

Bonjour,

A tester mais relativement similaire. Il est possible d'avoir ou non la barre de titre :

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
 
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 UserForm_Initialize()
 
    Dim hwnd As Long
    Dim AvecBarre As Boolean
 
    AvecBarre = True
 
    hwnd = FindWindowA(IIf(Val(Application.Version) < 9, "ThunderXFrame", "ThunderDFrame"), Me.Caption)
 
    SetWindowLongA hwnd, -16, IIf(AvecBarre, GetWindowLongA(hwnd, -16), 0&) And &HFFF7FFFF
 
End Sub

05/12/2015, 13h23
Invité

Merci beaucoup Theze. Sur ma machine (win7 32bits et excel 2007 32bits) c'est parfait.

Sur excel 2010 32bits, j'attends le retour de mon ami et je te tiendrai au courant.

Encore merci, je te souhaite un excellent week-end.

Bonjour
si je comprend bien tu veux enlever le bouton fermer de la caption

ce code commence a dater

je te propose celui ci fonctionne pour 64/32bits sans rien changer

j'utilise directemnt un nombre hex je n'ai pas besoins de capter le long au prealable (sans getwindowlongA)
je n'ai besoins que de ces deux apis (getactivewindows et setwindowslongA)
moins lourd plus propre
met ceci dans ton userform
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 #If vba7 Then 'pour 64 bit 'api accisition handle Private Declare ptrsafe Function GAW Lib "User32" Alias "GetActiveWindow" () As Long 'Fonction de changement Private Declare ptrsafe Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #Else 'pour 32 bits 'api accisition handle Private Declare Function GAW Lib "User32" Alias "GetActiveWindow" () As Long 'Fonction de changement Private Declare Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #End If Private Sub UserForm_Activate() SWL GAW, -16, &H94C00080: 'Changement propriétés End Sub
tu aurais du le trouver dans les contributions j'y donne aussi tout les nombre au format hex pour modifier la caption (3 boutons,elasticité,pas de caption etc....)

je peut te les redonner si besoins est

05/12/2015, 19h35
Invité

Bonsoir Patrick,

Je te remercie beaucoup pour ton code qui est en effet très léger.

J'ai effectivement consulté certaines de tes contributions très intéressantes. Mais vu que mes connaissances sont des plus basiques et de surplus je ne code qu'occasionnellement, j'éprouve très souvent des difficultés à retrouver certaines choses que j'avais déjà faites (codage).

J'ai testé ton code sur ma machine (win7, excel7) et c'est impeccable. Sur excel 2010, je dois attendre la réponse de mon ami (qui se trouve à + de 200km).

Serait-il possible aussi de retirer la petite croix rouge qui ferme l'userform?.

C'est très sympa de ta part de me proposer les nombres HEX, en effet je suis intéressé.

Je te suis vraiment très reconnaissant. Encore merci.

Bonne soirée et bon dimanche.
05/12/2015, 21h33
kiki29

2 pièce(s) jointe(s)

Salut, de Stephen Bullen, à tester.
05/12/2015, 22h21
Invité

Bonsoir Kiki29,

Toute ma reconnaissance. Ce fichier démo est vraiment super. Je vais tenter d'extraire seulement ce dont j'ai besoin un peu plus tard.

Ne pas afficher les petites icônes de la barre de titre pour excel 2010. Ceci n'est pas pour moi mais pour un ami qui a excel 2010.

Chez moi, le fichier démo fonctionne très bien.

C'est gentil de ta part, mais je trouve le code de PatrickToulon très intéressant pour sa simplicité.

Encore merci et bon dimanche.
06/12/2015, 10h47
patricktoulon

2 pièce(s) jointe(s)

re

re
ya qu'a demander

tu garde la déclaration de apis comme je te les ai donné
et dans le activate du userform tu met
bouton fermer et maximiser

Code:

SWL GAW, -16, &H94C90080

bouton fermer et maximiser et minimiser

Code:

SWL GAW, -16, &H94CB0080

bouton fermer et maximiser et minimiser et elastic

Code:

SWL GAW, -16, &H94CF0080

rien que le bouton maximiser

Code:

SWL GAW, -16, &H94C90080

rien que le bouton minimiser

Code:

SWL GAW, -16, &H94CA0080

rien que le bouton maximiser et_elastic

Code:

SWL GAW, -16, &H94CD0080

rien que l'elastic et bouton fermer

Code:

SWL GAW, -16, &H94CC0080

Sans_bouton et elastic()

Code:

SWL GAW, -16, &H94C40080:

Sans_bouton et pas elastic

Code:

SWL GAW, -16, &H94C00080:

Sans_Caption et elastic

Code:

SWL GAW, -16, &H94040080

Sans_Caption

Code:

SWL GAW, -16, &H94080080: SWL GAW, -20, 0

rien que minimiser_et_elastic

Code:

SWL GAW, -16, &H94CE0080

voila
;)
edit:
j'etais curieux de savoir si j'avais toujours: un exemplaire de ma classe formica

j'en ai retrouvé un c'est pas le dernier mais tu a tout tu a meme le kin by color (rendre une couleur transparente dans le userform )
ainsi que mettre une shape dans un label

ainsi que skiner un userform avec une shape

bref tu a tout

bon j'avais fait ca il y a 3 ans alors mais ca fonctionne encore aujourdh'ui par contre il n'y a pas la gestion vba7/vba6 (64/32bits ) mais dans l'exemple que je t'ai donné je l'avais fait alors fait pareil

voila voilou!!
Pièce jointe 194450
06/12/2015, 13h01
Invité

Bonjour PatrickToulon,

Trop gentil de ta part, c'est super tes explications. Enfin, moi je trouve.

Par contre, j'ai pu constater qu'une personne n'a pas apprécié ton post pour ceci :moinsser:.

Pourquoi? Mystère et boule de suif!

Pas vraiment compris ces attitudes.

Pour ma part je te dis un bravo. Merci beaucoup, je te suis très reconnaissant.

Ps: n'ayant pas excel 2010 et n'ayant pas eu de retour sur la question. Je suppose que mon ami est en mission.

Merci infiniment Patrick. si je pouvais moi je mettrai 10^12 de :plusser: et :king: et dommage je ne connais la signification de tous smileys.

ça m'énerve, la méchanceté gratuite. Mais bon.
06/12/2015, 14h47
Invité

Bonjour,
Malgré le point négatif, je pense que Patrick dormira quand même comme un bébé ce soir.

Je compense :plusser:
06/12/2015, 15h52
Invité

Bonjour Rdurupt,

Citation:

Malgré le point négatif, je pense que Patrick dormira quand même comme un bébé ce soir

Et puis je n'en doute pas un seul instant.
Et puis c'est un grand monsieur
Et puis il est bien au-dessus de ça
Et puis à tout seigneur tout honneur

Au fait, mon ami vient de m'avertir que c'est impeccable sur excel 2010.

Merci infiniment.:plusser:
06/12/2015, 18h24
patricktoulon

re

re
il faut que j'aille a la pharmacie de garde pour achetzer des somnifères je ne vais pas en dormir

purré ce -1 je l'ai en travers hein !!!!!!

:rouleau::furieux::piou::pan::mouarf3: