Discussion :

[kev159]

Bonjour,

est ce que quelqu'un pourrait m'aider à optimiser ma macro pour un déroulement plus rapide svp.

Voici la macro en question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Choix_de_fichier()
Dim Fichier As Variant
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Text Files (*.rcp), *.rcp")
If Fichier <> False Then
Lire Fichier
End If
End Sub
 
Sub Lire(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur As String * 1
 
Sheets("Feuil1").Select
 
 
' Séparateur Point Virgule
'Separateur = "\"
 
Cells.Clear
Application.ScreenUpdating = False
NumFichier = FreeFile
iRow = 1
 
Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
 
 
End Sub

Merci d'avance pour votre aide.

Cordialement.

[AlainTech]

Pourquoi cherches-tu à lire la totalité du fichier alors qu'il a une structure de fichier .ini?
Tu as clôturé ton autre discussion sans aucune explication.
Où en es-tu avec celle-là?

[kev159]

J'ai resolu le post d'hier en utilisant le code que j'ai posté aujourd'hui.

Par contre avec celui ci la macro est très longue, surtout que je cherche uniquement 3 lignes du fichier txt. je vous le joint en copie si quelqu'un peux y jeter un oeil. je cherche les lignes 2 - 16 et 23 a copier dans la feuil1 de mon classeur.

comment faire pour ne pas faire la boucle sur toute les ligne mais uniquement sur celle que je cherche?

cordialement

[AlainTech]

J'insiste donc lourdement.

As-tu lu mon dernier message de ton autre discussion?
C'est LA réponse à ton problème.
Mais si tu continues à essayer de le contourner, ne t'attands pas à des miracles.

[kev159]

Bonjour,

Je suis désolé, mais je suis novice en vba, et je ne comprend pas la marche à suivre pour lire dans un fichier .ini.

Et je ne sais pas non plus une fois que le fichier aura était lu pour écrire les information requise dans mon fichier excel.

En tant que modérateur, pouvez vous m'indiquer un bout de code qui m'aiderai à démarrer ma macro svp.

Cordialement.

[AlainTech]

C'est justement pour te donner une piste avec du code que je t'ai dit dans l'autre discussion:

J'ai retrouvé l'info dans les FAQ:
http://vb.developpez.com/faq/?page=Systeme#ini

Commence par faire quelque chose.
Montre-nous le code que tu auras essayé (même et surtout s'il ne fonctionne pas) et on te guidera.

Montre-nous un peu de bonne volonté de ta part et on sera toujours là pour t'aider.