Lecture d'un fichier - remplacement des sauts de lignes
Bonjour à tous,
Je suis un petit nouveau sur vba et j'ai un soucis à la lecture d'un fichier( que j'ai mis en pièce jointe).
Dans ce fichier, je cherche à accèder aux valeurs en dessous de frequences propres.
Mon problème vient du fait que quand je lis le fichier, j'ai l'impresion qu'il ne fait qu'une seule ligne ( aucun retour chariot)
Je souhaiterais donc remplacer les saut de lignes par des retours chariots plus sauts de lignes.
Voici mon code:
Sub TEst()
Dim Modes(5) As Double
Dim chemin_dynam As String, samres As String, nom_fichier As String
Dim nom_step As String
nom_step = "RL_DB"
chemin_dynam = ThisWorkbook.Path
chemin_dynam = Replace(chemin_dynam, "Excel_Campbell", "CALCULS\RM4\MODAL_")
chemin_dynam = chemin_dynam & nom_step
nom_fichier = "samcef_dy2.res"
samres = chemin_dynam & "\" & nom_fichier
Call Resultats(samres)
End Sub
Avec la fonction : Resultats
Sub Resultats(chemin_fichier As String)
Test_fichier = Dir(chemin_fichier)
If Test_fichier = "" Then
MsgBox chemin_fichier & "non trouvé"
Exit Sub
End If
'MsgBox chemin_fichier & " trouvé"
' === REMPLACE MENT DES RETOUR A LA LIGNE ===============
' === PAR DES SAUTS DE LIGNE PUIS RETOUR A LA LIGNE =====
Open chemin_fichier For Input As #1
Do While Not EOF(1)
Line Input #1, ligne
ligne = Replace(ligne, "vbLf", "vbCrLF")
Loop
Close #1
MsgBox "Remplacé"
End Sub
Pouvez-vous m'aider à le corriger?
Merci de votre aide,
Corentin
Bonjour,
c'est une incompréhension de l'exécution du code ! Commencer par consulter l'aide VBA de l'instruction Line Input # …
Qui plus est la boucle Do … Loop telle quelle ne sert concrètement à rien !
Traduire le code en langage parlé et comparer avec ce qu'il est censé réaliser …
Le MsgBox est donc mensonger !
Si le but est de charger un fichier texte dans une feuille de calculs d'Excel, il est inutile de le modifier,
il suffit de bien répondre à l'Assistant de conversion lors de son ouverture …
Et en activant le Générateur de macros, une base de code est livrée sur un plateau !
Merci de ton aide je vais orienter mes recherches dans ce sens