Bonjour,
J'ai un petit problème avec VBA, j'ai trouvé un code qui extrait les donnés d'un fichier texte dans excel pour ensuite les envoyer par mail.
Le problème c'est que quand j'extrait le texte du .txt a chaque virgule j'ai un saut a la ligne et le reste du teste se retrouve dans la cellule du dessous alors que je veux seulement représenter une virgule.
En gros je veux tout mettre dans une cellule au lieu qu'a chaque virgule je passe a la cellule du dessous.
Je vous met mon code ci dessous.
Merci d'avance,
Tolga
J'ai un petit problème avec VBA, j'ai trouvé un code qui extrait les donnés d'un fichier texte dans excel pour ensuite les envoyer par mail.
Le problème c'est que quand j'extrait le texte du .txt a chaque virgule j'ai un saut a la ligne et le reste du teste se retrouve dans la cellule du dessous alors que je veux seulement représenter une virgule.
En gros je veux tout mettre dans une cellule au lieu qu'a chaque virgule je passe a la cellule du dessous.
Je vous met mon code ci dessous.
Merci d'avance,
Tolga
VB:
Sub Profile1()
Dim Nom_Fichier As String, Texte As Variant
Dim NumFile As Integer, Compteur As Integer
Dim Send_Email As Worksheet
If ActiveSheet.Range("I4") = "" Then
MsgBox "Fill Profile Name !", vbCritical + vbOKOnly, "Attention..."
Exit Sub
End If
Nom_Fichier = "C:\Users\" & ActiveSheet.Range("I4") & ".txt"
Compteur = 1
If Dir(Nom_Fichier) = "" Then
MsgBox " Wrong name !", vbCritical + vbOKOnly, "Attention..."
Exit Sub
Else
ActiveSheet.Select
NumFile = FreeFile
Open Nom_Fichier For Input As NumFile ' ouverture du fichier
Do While Not EOF(NumFile)
Input #NumFile, Texte
Sheets("Send_Email").Range("Z" & Compteur).Select
Sheets("Send_Email").Range("Z" & Compteur).Value = Texte
Compteur = Compteur + 1
Loop
End If
ActiveSheet.Range("A1").Select
Close NumFile
End Sub