Discussion :

[bigaccess]

Bonjour,

Je souhaite convertir un nombre en hexadécimal.

Par contre, mon nombre comporte 10 chiffres et il semble que Access n'aime pas.

Code :

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

1
2
3
MaVar = 2450735097
ConvertHex = Hex(MaVar)
MsgBox ConvertHex

VBA ajoute un # a la fin de va variante (MaVar = 2450735097#) et ça ne fonctionne pas.

Des idées?

Merci.

[Thierry_PALLIER]

Bonjour bigaccess.

Quel est le type de "ConvertHex" ?

Entier long (Valeur par défaut) Stocke les nombres compris entre –2 147 483 648 et 2 147 483 647

Sinon, il faudrait stocker ce resultat au format texte.
Cdlt

[Thierry_PALLIER]

Je viens de voir dans l'aide Access que la fonction Hex renvoie une chaine de caractères (string) et l'argument peut etre numérique ou chaine
Donc le type de données de "ConvertHex" doit etre sur string et "MaVar" aussi si il dépasse 2 147 483 647
Cdlt2

[bigaccess]

Même si je convertis ça fait la même chose.

Code :

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

1
2
3
4
Dim ConvertHex, MaVar As String
MaVar = 2450735097#
ConvertHex = Hex(MaVar)
MsgBox ConvertHex

Ça ne fonctionne pas.

[electrosat03]

Salut,

Si MaVar est de type String, il faut la mettre entre " ", je pense, non

[tee_grandbois]

bonsoir,

Salut,

Si MaVar est de type String, il faut la mettre entre " ", je pense, non

@ electrosat03: cela ne changera rien car le problème est tout autre: la fonction Hex() d'Access est limitée aux entiers longs (entre -2 147 483 648 et 2 147 483 647)
@ bigaccess: Une solution serait d'utiliser la fonction Dec2Hex() d'Excel qui accepte des plus grands nombres (entre -549 755 813 888 et 549 755 813 887):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub convHex()
Dim ConvertHex, MaVar As String
Dim apXls As Excel.Application
 
MaVar = "2450735097"
' appel fonction Excel Dec2Hex
ConvertHex = Excel.WorksheetFunction.Dec2Hex(MaVar)
Set apXls = Nothing
 
MsgBox ConvertHex
 
End Sub

Remarque: ce code ouvre une instance d'Excel qui sera fermée automatiquement à la fermeture de l'instance Access associée, cela évite de charger une instance à chaque appel de la procédure.

[bigaccess]

Ce n'est pas Excel c'est Access !

[Arkham46]

Bonjour,

En découpant en deux parties :

Code :

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

1
2
3
4
5
6
7
8
 
Public Function ToHex(pDec As Double) As String
Const puissance As Long = 5
Dim part1 As Long, part2 As Long
part1 = Int(pDec / (16 ^ puissance))
part2 = pDec - part1 * (16 ^ puissance)
ToHex = Hex(part1) & Right(String$(puissance, "0") & Hex(part2), puissance)
End Function

Apparemment ça fonctionne bien mais j'ai testé rapidement.

[tee_grandbois]

bonsoir,

Ce n'est pas Excel c'est Access !

oui, merci j'avais compris. mais si Excel possède une fonction plus complète, autant l'utiliser, on utilise bien des API ou des commandes non Access si cela peut servir ..

[Arkham46]

Bonjour,

Remarque: ce code ouvre une instance d'Excel qui sera fermée automatiquement à la fermeture de l'instance Access associée, cela évite de charger une instance à chaque appel de la procédure.

Où l'instance est--elle ouverte ? ApXls n'est de plus jamais utilisé.

Ensuite le choix d'ajouter une dépendance à Excel se discute...

[tee_grandbois]

bonjour Arkham46,

Où l'instance est--elle ouverte ? ApXls n'est de plus jamais utilisé.

tu as raison, l'instance est ouverte ici:

Code :

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

ConvertHex = Excel.WorksheetFunction.Dec2Hex(MaVar)

donc ApXls ne sert à rien, et comme j'ai Excel en référence, c'est pour cela que l'instance reste active jusqu'à la fermeture d'Access.

Ensuite le choix d'ajouter une dépendance à Excel se discute...

sans doute, sauf que je ne fais qu'utiliser la fonction d'une référence de VBA.
Ce que je trouve dommage c'est que les fonctions Hex() d'Access et Dec2Hex() d'Excel n'aient pas été mis au même "niveau"...

Mais cela n'a plus d'importance puisque ton code fonctionne, j'étais aussi parti sur l'idée de "découper" le montant pour contourner la limitation de l'entier long, mais n'étant pas très doué en maths, je me suis perdu en route ...

Merci pour le code
Bonne journée