Ouvrir et traiter un ficher .csv sous excel en VBA
Résolu
kyoleroi
Messages postés
32
Date d'inscription
lundi 10 décembre 2007
Statut
Membre
Dernière intervention
26 mai 2008
-
6 mai 2008 à 09:58
kyoleroi Messages postés 32 Date d'inscription lundi 10 décembre 2007 Statut Membre Dernière intervention 26 mai 2008 - 6 mai 2008 à 15:41
kyoleroi Messages postés 32 Date d'inscription lundi 10 décembre 2007 Statut Membre Dernière intervention 26 mai 2008 - 6 mai 2008 à 15:41
A voir également:
- Vba ouvrir un fichier csv
- Ouvrir csv excel - Meilleures réponses
- Ouvrir fichier csv excel - Meilleures réponses
- Ouvrir un classeur Excel par macro sans l'afficher ✓ - Forum Visual Basic 6
- Ouvrir userform vba ✓ - Forum Visual Basic
- Ouvrir un UserForm à condition que .. ✓ - Forum VBA Office (Excel, Word ...)
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
5 réponses
kyoleroi
Messages postés
32
Date d'inscription
lundi 10 décembre 2007
Statut
Membre
Dernière intervention
26 mai 2008
6 mai 2008 à 15:41
6 mai 2008 à 15:41
J'ai trouvé!!!!
Voici la solution:
Sub Auto_Open()
Dim NomFicher(101) As String
Dim CdoMessage As CDO.Message
Dim FichiersChoisis As String
Dim remplace As String
remplace = ".txt"
FichiersChoisis = ""
FichiersChoisis = Application.GetOpenFilename("Fichier Text (*.txt),*.txt")
If FichiersChoisis <> "" Then
'Ouverture du fichier text
Workbooks.OpenText Filename:= _
FichiersChoisis, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:= _
xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=True, _
Comma:=False, _
Space:=False, _
Other:=False
' On enlève l'adresse complète du fichier et on garde son nom
FichiersChoisis = Mid(FichiersChoisis, InStrRev(FichiersChoisis, "") + 1)
'On active le classeur
Windows(FichiersChoisis).Activate
'On supprime le *.txt pour pouvoir sélectionne la feuille
FichiersChoisis = Replace(FichiersChoisis, remplace, "")
Sheets(FichiersChoisis).Select
'On sélèctionne les parties du tableaux qui nous intéresse
Nomfichier = Range("A1:AM10000").Value
'On sélèctionne le dossier ou l'on veux déplacer notre ficher .txt
Windows("NomduFichier.xls").Activate
'On remplace
Sheets("Releves").Range("B17:AN10000").Value = Nomfichier
End If
End Sub
Voici la solution:
Sub Auto_Open()
Dim NomFicher(101) As String
Dim CdoMessage As CDO.Message
Dim FichiersChoisis As String
Dim remplace As String
remplace = ".txt"
FichiersChoisis = ""
FichiersChoisis = Application.GetOpenFilename("Fichier Text (*.txt),*.txt")
If FichiersChoisis <> "" Then
'Ouverture du fichier text
Workbooks.OpenText Filename:= _
FichiersChoisis, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:= _
xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=True, _
Comma:=False, _
Space:=False, _
Other:=False
' On enlève l'adresse complète du fichier et on garde son nom
FichiersChoisis = Mid(FichiersChoisis, InStrRev(FichiersChoisis, "") + 1)
'On active le classeur
Windows(FichiersChoisis).Activate
'On supprime le *.txt pour pouvoir sélectionne la feuille
FichiersChoisis = Replace(FichiersChoisis, remplace, "")
Sheets(FichiersChoisis).Select
'On sélèctionne les parties du tableaux qui nous intéresse
Nomfichier = Range("A1:AM10000").Value
'On sélèctionne le dossier ou l'on veux déplacer notre ficher .txt
Windows("NomduFichier.xls").Activate
'On remplace
Sheets("Releves").Range("B17:AN10000").Value = Nomfichier
End If
End Sub
