LolPiratas
Messages postés80Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention15 décembre 2010
-
17 févr. 2008 à 14:36
LolPiratas
Messages postés80Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention15 décembre 2010
-
17 févr. 2008 à 18:34
Bonjour, j’ai fait un programme pour lire les fichiers mazak d’un disque dur, il analyse les fichiers vérifient s'il est ok. Mais tout en le vérifiant j’aimerais qu’il retranscrit dans un fichier Excel le numéro de programme qui correspond à la machine ex : Programme t32, Programme t2, programme m32 etc. Donc supposons que le numéro 0214 et t’un programme T2 il s’écrit en dessous de programme t2. J’avais déjà cette source mais plus moyen de le retrouver. Et au fait il faisait bien la correspondance mais quand il changeait de colonne il laissait une case vierge c’est possible aussi qu’il ne fasse plus ce genre de case vide merci ?
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 17 févr. 2008 à 16:35
Comme je ne connais pas ce genre de fichier (mazak), c'est difficile d'aider...
Peux-tu mettre un extrait d'un fichier et un peu de ton code, tout en explicant ce qui ne fonctionne pas ?
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 17 févr. 2008 à 17:24
Je ne sais pas ce que vaut "txt1", mais si tu veux écrire dans le fichier, il faudrait commencer ta boucle à 1 et non 0, parce que la ligne 0 n'existe pas sous Excel.
Pour vider la mémoire, je ne sais pas.
Mais pour accélérer le processus, tu peux mettre
Application.ScreenUpdating = False en début de boucle et le remettre à True à la fin. Ça évitera le raffraîchissement de l'écran et ça ira plus rapidement.
Et tu es mieux d'utiliser une boucle plutôt qu'un Timer parce que tu ne sauras pas combien de temps ça prend pour effectuer une tâche. Vaut mieux laisser le système décider, je pense.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
LolPiratas
Messages postés80Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention15 décembre 2010 17 févr. 2008 à 17:46
merci MPi , j'ai eu une amélioration niveau ralentissement , mais c pas encore ca
je cherche, je cherche, encore merci de ton aide je ne connaissez pas cette instruction Application.ScreenUpdating = False
Yo ManaM oY
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 17 févr. 2008 à 17:57
Si je comprend bien, tu programmes sous VB6 et utlises l'Automation pour accéder à Excel et y copier des données. Je ne sais pas si c'est possible, mais as-tu pensé utiliser Excel pour tout faire plutôt que de passer par VB6 ?
Je pense que ce serait plus rapide du fait qu'il n'y aurait pas le ralentissement de l'Automation... (?) une idée comme ça...
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
p2[1]110001002A003200DFBD3D464F4E44204445204D4154 on prend les deux chiffres on les change en decimale et on a le nom du fichier ex :
Private Sub ecran2(txt As TextBox)If txt "2E" Then txt "."If txt "30" Then txt "0"If txt "31" Then txt "1"If txt "32" Then txt "2"If txt "33" Then txt "3"If txt "34" Then txt "4"If txt "35" Then txt "5"If txt "36" Then txt "6"If txt "37" Then txt "7"If txt "38" Then txt "8"If txt "39" Then txt "9" If txt = "00" Then txt = " " If txt "41" Then txt "A" If txt "42" Then txt "B" If txt "43" Then txt "C" If txt "44" Then txt "D" If txt "45" Then txt "E" If txt "46" Then txt "F" If txt "47" Then txt "G" If txt "48" Then txt "H" If txt "49" Then txt "I" If txt "50" Then txt "P" If txt "51" Then txt "Q" If txt "52" Then txt "R" If txt "53" Then txt "S" If txt "54" Then txt "T" If txt "55" Then txt "U" If txt "56" Then txt "V" If txt "57" Then txt "W" If txt "58" Then txt "X" If txt "59" Then txt "Y" If txt "4A" Then txt "J" If txt "4B" Then txt "K" If txt "4C" Then txt "L" If txt "4D" Then txt "M" If txt "4E" Then txt "N" If txt "4F" Then txt "O" If txt "5A" Then txt "Z" If txt "20" Then txt " "
End Sub
000000100012000A01000000000000000000000000000000000000000000000000000000000000001101
<hr align="left" width="33%" size="1" />1B
<hr align="left" size="1" />[1]1000003C0000000000000000000000000000000000000000800100000000000AAE6< et ici on a le numero de fichier le reste c le programme d’une piece a tourner 00002FFFFDFA000000000000088B800000000000000000000000000000000
<hr align="left" size="1" /> donc pas facile déjà j’ai galerer a tout decoder.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 17 févr. 2008 à 18:29
Ça reste que ça devrait pouvoir tout se faire sous Excel, en principe. VBA, c'est presque la même chose que VB. La syntaxe est un peu différente, mais tu as à peu près les mêmes possibilités.
Ça vaudrait peut-être le coup d'essayer. Si tu copies tout ton code dans un module d'Excel, tu n'auras peut-être rien à changer, ou très peu, je pense.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
LolPiratas
Messages postés80Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention15 décembre 2010 17 févr. 2008 à 18:34
ok je vais essayer de voir si il y a une possibiliter, mais du a un blem de pc j'avais perdu mon project, donc j'ai repris une sauvegarde pour recommencer et j'avais reussi sans blem avec excel, en tout les cas je te remerci de ta patience.