Problème d'écriture sur un fichier Binary
Bonjour tous,
J'ouvre un fichier en mode Binary :
Dim Adresse As Double
Dim Valeur As Byte
Fichier = FreeFile
Open "C:\Users...Dessin.bmp" For Binary As #Fichier
Puis j'écris un octet comme ceci :
Put #Fichier, Adresse, Valeur
L'octet de valeur Valeur est bien écrit mais Excel écrit/écrase aussi l'octet suivant du fichier en le mettant à 00 !
Comment remédier à cela ?
Merci par avance
Bonjour Excel 75011
Je n'ai pas essayé, dans l'absolu on doit pouvoir écrire une donnée à une adresse donnée.
Si le fichier n'est pas trop lourd, je l'aurais bien chargé (essai possible) dans un tableau de byte de longueur égale à la taille du fichier
Ensuite on pourrait modifier le seul caractère à changer, puis réécrire l'ensemble du fichier.
Remarque : Dans ton code, je ne suis pas sûr que la donnée Adresse puisse être déclarée de type double!!
Ton code est incomplet pour qu'on puisse l'essayer.
De l'aide sur l'instruction put : https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/put-statement
Bon, au temps pour moi.
Cela fonctionne correctement comme je l'ai rédigé dans le premier message.
Le problème venait en fait que j'avais remplacé Valeur par la valeur elle-même (9 dans mon cas) et là il mettait à zéro l'octet suivant !
Pour résumer :
Valeur = 9
Put #Fichier, Adresse, Valeur ---> pas de souci
Put #Fichier, Adresse, 9 ---> gros souci car mise à zéro de l'octet suivant !
A la prochaine pour de nouvelles aventures !!!