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
- Vba ouvrir fichier csv - Meilleures réponses
- Vba open csv - Meilleures réponses
- Ouvrir un fichier jnlp ✓ - Forum Java
- Ouvrir fichier jnlp - Forum Java
- Jar signé, Jnlp ok mais ca se lance toujours pas - Forum Java
- Ouvrir un fichier sous windows avec java - Forum Java
- Erreur de chargement d'un fichier avec Java Web Start - Forum Java
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
