komanvi
Messages postés57Date d'inscriptionmardi 5 octobre 2010StatutMembreDernière intervention 8 mars 2011 22 nov. 2010 à 09:46
mes fichiers txt contiennent des information de mesure sur des entités d'un reseau de telephonie
normalement je les ouvre avec wordpad,mais comme je dois acceder a leur contenu pour effectuer des calculs et afficher le resultat dans des classeurs,alors j'ai decidé de les ouvrir eux aussi dans un seul claseur
cs_loulou69
Messages postés672Date d'inscriptionmercredi 22 janvier 2003StatutMembreDernière intervention 2 juin 20161 22 nov. 2010 à 11:09
Bonjour
Ce petit code me charge tous les fichiers texte du DOSSIER (constante), une feuille par fichier
Sub LireFichierTextesDossier()
Const DOSSIER = "C:\Mon_dossier"
Dim s as String
s = Dir(DOSSIER & "*.txt")
While s <> ""
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Replace(Mid(s, 1, Len(s) - 4), " ", "_")
Dim iLine As Long
Dim sLine as String
iLine = 0
Open DOSSIER & s For Input As #1
If Err.Number = 0 Then
While Not EOF(1)
Line Input #1, sLIne
iLine = iLine + 1
ActiveSheet.Cells(iLine, 1) = sLIne
Wend
End If
Close #1
s = Dir()
Wend
End Sub
komanvi
Messages postés57Date d'inscriptionmardi 5 octobre 2010StatutMembreDernière intervention 8 mars 2011 22 nov. 2010 à 15:46
merci
je vais essayer pour voir
mais j'ai un autre souci:je voeux par un code vba, renommer automatiquement tous les fichiers d'un dossier(peut inporte leur extentions) en .xls
je travail egalement sur ces fichiers en question,mais je voeux
les mettre sur le forum par piece joint mais je ne sais pas comment faire;pour que vous puissez
prendre connaissance
je compte sur vous
Vous n’avez pas trouvé la réponse que vous recherchez ?
komanvi
Messages postés57Date d'inscriptionmardi 5 octobre 2010StatutMembreDernière intervention 8 mars 2011 22 nov. 2010 à 16:04
donc je cherche un code pour enregistrer plusieurs fichiers d'un meme dossier en format excel
les fichiers que je voeux enregistrer sont en plusieurs format