ydu_sputnik
Messages postés8Date d'inscriptionjeudi 7 juin 2007StatutMembreDernière intervention25 septembre 2007
-
25 sept. 2007 à 13:08
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013
-
25 sept. 2007 à 13:30
Bonjour,
Voici une macro excel. à l'origne c'était du VBS mais elle a été passée en VB mais un bug subsiste (ligne en rouge)
Merci de votre aide
@+ Ydu
sub decoupe
Dim fs, f, fich, sem, spli, buf, pos, taille, index, fich_dst, size
index = 1
sem = InputBox("Numero de semaine a se taper !", "YDU")
If sem = "" Then
MsgBox "A Plus !", 0, "YDU"
wscript.quit (1)
End If
fich = InputBox("Entrez le chemin complet du fichier a decouper", "YDU", "C:\Conquete G\transmission\conquete_groupe S" & sem & ".xls")
Set fs = CreateObject("Scripting.FileSystemObject") 'creation d'un objet systeme de fichier
If (fs.FileExists(fich)) Or fich <> "" Then
spli = Split(fich, ".", -1, 1) 'recuperation du chemin complet et
fich1 = spli(0) & ".dat"
Set fich_src = fs.OpenTextFile(fich, 1)
Set inf1 = fs.GetFile(fich)
MsgBox "taille : " & inf1.size
size = inf1.size
size = size / 3
taille = InputBox("Entrez la taille de decoupe du fichier", "YDU", size)
If taille = "" Then
taille = 1024
End If
Call copie
MsgBox "Fichier " & fich & " decoupé en " & index - 1 & " parties", 0, "C'est fini"
Else
MsgBox "A Plus !", 0, "YDU"
exit sub
End If
end sub
Sub copie()
Set fich_inf = fs.OpenTextFile(fich1 & "info", 8, True)
fich_inf.WriteLine (fich)
Do While fich_src.AtEndOfStream <> True
Set fich_dst = fs.OpenTextFile(fich1 & index, 8, True)
buf = fich_src.Read(taille)
fich_dst.Write (buf)
fich_inf.WriteLine (fich1 & index)
fich_dst.Close
index = index + 1
Loop
End Sub
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 25 sept. 2007 à 13:30
Salut,
si tu sais que tu fais du VBA, pourquoi tu poste dans la rubrique VB6 ????
Je locke ton topic, j'en ai assez de devoir déplacer des messages vers la section VBA a longueur de journée !
______________________________________
DarK Sidious