Extraire une colonne et l'importer sur un fichier.dat
Bonjour
J'ai plusieurs fichiers .dat ,ce sont des courbes. Dans un premier temps j'ai reporté ces données sur Excel via la macro suivante:
Sub Macro1()
'
' Macro1 Macro
'
Dim File As Integer
Dim b As Byte
File = FreeFile
Open "R:\25\10-Bouygues TELECOM\Docs techniques\MESURE RADIO\Atelier Automatisation PV mesures\tests modifs marqueurs\t21379-1800sfr-r5b-s1d m1 modif.dat" For Binary Access Read As #File
Ligne = 2
Do While Not EOF(File)
Get #File, , b
Cells(Ligne, 4) = Hex(b)
Ligne = Ligne + 1
Loop
Close #File
End Sub
Ainsi je me retrouve avec des données en hexa dans ma feuille Excel.
Désormais je voudrais faire la manip inverse c'est à dire extraire une colonne et l'importer sur mon fichier .dat.
Car je voudrais changer valeur par valeur les Hexa sur excel et voir le changement sur les courbes .dat
Merci d'avance de votre aide
bonjour
a tester, (sur une copie du fichier original !)
Sub Macro2()
Dim File As Integer
Dim b As Byte
File = FreeFile
Open "R:\25\10-Bouygues TELECOM\Docs techniques\MESURE RADIO\Atelier Automatisation PV mesures\tests modifs marqueurs\t21379-1800sfr-r5b-s1d m1 modif.dat" For Binary Access Write As #File
ligne = 2
Do While Cells(ligne, 4) <> ""
b = Application.WorksheetFunction.Hex2Dec(Cells(ligne, 4))
Put #File, , b
ligne = ligne + 1
Loop
Close #File
End Subedit remplace access read par access write dans l'instruction open
Re
tout d'abord merci de m'avoir répondu
ensuite j'ai essayé le code que vous m'avez proposé et ça me met une erreur pour la ligne : Put #File, , b
Et j'ai aucune idée du pk
merci encore
ça me met erreur d’accès chemin/Fichier
Remplace read par write dans l'instruction open
ha oui en effet on est en écriture pas en lecture.
Je vais essayé ça, ça devrait fonctionner normalement
Merci beaucoup