Boucle avec importationde fichier texte
veropologne
Messages postés
1
Date d'inscription
mardi 17 avril 2007
Statut
Membre
Dernière intervention
17 avril 2007
-
17 avril 2007 à 09:47
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 17 avril 2007 à 11:37
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 17 avril 2007 à 11:37
A voir également:
- Boucle avec importationde fichier texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Roulettechat texte - Forum Visual Basic
- Fichier json - Conseils pratiques -Javascript
- Crypter un fichier texte ✓ - Forum Visual Basic
2 réponses
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
17 avril 2007 à 10:10
17 avril 2007 à 10:10
Salut,
Il est difficile de deviner exactement ce que tu souhaites mais essaies ce petit bout de code.
En espérant qu'il soit assez commenté.
Private Sub CommandButton1_Click()
Dim I As Integer
For I = 380 To 500 Step 5
Call TraiteFichier(".\n15k" & CStr(I))
Next
End Sub<hr />
Public Function TraiteFichier(ByRef NomFichier As String)
Dim Resultat As Long
Dim WB As Workbook
Static NumLigne As Long
'initialise NumLIgne If NumLigne 0 Then NumLigne 1
'Ouvre le fichier txt passer ne parametre
Set WB = Application.Workbooks.Open(NomFichier & ".txt")
'on sauve au format XLS
Call WB.SaveAs(NomFichier & ".xls")
'On va passer le classeur en parametre
Resultat = TaMacro(WB)
'On ferme le fichier en sauvant
Call WB.Close(True)
'Je suppose que a.xls est déjà ouvert avant tout ton traitement
Application.Workbooks("a.xls").Worksheets(1).Range("A" & NumLigne).Value = Resultat
'on détruit l'objet
Set WB = Nothing
End Function<hr />, ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
Il est difficile de deviner exactement ce que tu souhaites mais essaies ce petit bout de code.
En espérant qu'il soit assez commenté.
Private Sub CommandButton1_Click()
Dim I As Integer
For I = 380 To 500 Step 5
Call TraiteFichier(".\n15k" & CStr(I))
Next
End Sub<hr />
Public Function TraiteFichier(ByRef NomFichier As String)
Dim Resultat As Long
Dim WB As Workbook
Static NumLigne As Long
'initialise NumLIgne If NumLigne 0 Then NumLigne 1
'Ouvre le fichier txt passer ne parametre
Set WB = Application.Workbooks.Open(NomFichier & ".txt")
'on sauve au format XLS
Call WB.SaveAs(NomFichier & ".xls")
'On va passer le classeur en parametre
Resultat = TaMacro(WB)
'On ferme le fichier en sauvant
Call WB.Close(True)
'Je suppose que a.xls est déjà ouvert avant tout ton traitement
Application.Workbooks("a.xls").Worksheets(1).Range("A" & NumLigne).Value = Resultat
'on détruit l'objet
Set WB = Nothing
End Function<hr />, ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 août 2018
23
17 avril 2007 à 11:37
17 avril 2007 à 11:37
Sous Excel, tu as la possibilité d'utiliser l'entegistreur de macro.
Si tu fais tes actions avec un premier fichier, tu auras le code (à modifier quelque peu) et il restera à mettre tout ça dans une boucle, ce qui ne devrait pas te causer de difficulté puisque tu connais déjà le C++
MPi
Si tu fais tes actions avec un premier fichier, tu auras le code (à modifier quelque peu) et il restera à mettre tout ça dans une boucle, ce qui ne devrait pas te causer de difficulté puisque tu connais déjà le C++
MPi
