Discussion :

[Lexot2]

Bonjour

J'ai un programme "Operation32.xlsm" en vba Excel 2007 qui fonctionne très bien sur Excel 2007 ou 2010 32 bits. Malheureusement ce programme se bloque sur vba Excel 2013 64 bits. Quelle est la modification à apporter svp pour obtenir un fonctionnement correct?
Merci pour l'attention apportée à mon post, et bonne soirée!

lexot


PS: J'ai mis "Operation32.zip" en pièces jointes composée de 3 fichiers

[pgz]

Bonsoir.

Si tu utilises des API, il faut les déclarer autrement.
Dans tous les cas, une bonne adresse : Développer avec Office 64 bits d'Arkham46.

Cordialement,

PGZ

[Lexot2]

Bonsoir,

Quelques précisions. Ce programme permet de s'entrainer en calcul mental sur les 4 opérations (addition, soustraction, multiplication, et division).
L'amplitude des nombres est paramétrable. On peut décider en addition d'ajouter que des nombres positifs. Donc on réglera le minimum à 0 et le maximum à 10 par exemple. La somme minimale sera "0+0", et la somme maximale sera "10+10". Le programme propose 3 réponses possibles. Si la réponse est correcte, "Bien" est affiché, le compteur de réponses correctes est incrémenté, et on passe à l'opération suivante. Si la réponse est fausse, un bip est émis, le compteur de réponses fausses est incrémenté, et on attend une bonne réponse de l'utilisateur pour passer à la question suivante.

Si on veut utiliser des nombres négatifs, on réglera le minimum à -10 et le maximum à 10 par exemple.
La somme minimale sera "-10 + -10 = -20", et la somme maximale sera "10+10 = 20".

Un grand "merci" à celui qui me viendra en aide. Ce programme date de 2006, et j'aurai du mal si je devais le refaire.
Je veux croire que les modifications à faire pour qu'il fonctionne sur vba Excel 2013 sont mineures.

Ce programme est distribué gratuitement pour venir en aide à tout élève ayant des difficultés en calcul mental.
Merci pour tous ces élèves qui pourront utiliser cet outil sur vba Excel 2013.

Bonne soirée

[Lexot2]

Bonsoir

Merci apz pour ton aide. Je suis un programmeur "autodidacte", et j'ai oublié ce que c'est qu'un API.
La seule modif que j'ai faite sur un programme VBA Excel 2007 a été d'ajouter l'instruction "PtrSafe", et le programme a bien fonctionné sur Excel 2013.

vba Excel 2007

Code :

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

1
2
3
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As _
    Long) As Long

vba Excel 2013

Code :

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

1
2
3
Public Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As _
    Long) As Long

Mais "PtrSafe" ne suffit plus au programme "Opération32", et ça bloque.
Encore merci pour toute l'aide que je reçois.

lexot2

[kiki29]

Salut, dans le lien donné par pgz lire ceci

[Lexot2]

Bonjour,

J'ai installé Office 2013 32 bits sur mon pc, et le programme "Operation32.xlsm" fonctionne correctement. Microsoft recommande d'utiliser Office 2013 32 bits au lieu d'Office 2013 64 bits même si on dispose d'un pc muni d'un windows en 64 bits.
Merci pour votre aide, et bonne journée

Cordialement

[Lexot2]

Bonsoir,

Mon programme "Opération32.xlsm" conçu sur Excel 2007 a bien fonctionné sur Excel 2013 32 bits et s'est à nouveau bloqué. Moi qui pensait tenir la solution. Merci encore pour votre aide

Cordialement