Ouvrir et traiter un ficher .csv sous excel en VBA [Résolu]
kyoleroi
- Messages postés
- 33
- Date d'inscription
- lundi 10 décembre 2007
- Statut
- Membre
- Dernière intervention
- 26 mai 2008
- Messages postés
- 33
- Date d'inscription
- lundi 10 décembre 2007
- Statut
- Membre
- Dernière intervention
- 26 mai 2008
A voir également:
- Vba ouvrir un fichier csv
- Vba ouvrir fichier csv - Meilleures réponses
- Ouvrir fichier csv vba - Meilleures réponses
- Vba ouvrir un fichier texte - Conseils pratiques - Visual Basic / VB.NET
- Vba ouvrir un fichier excel - Forum - Visual Basic
- Vba ouvrir un fichier pdf ✓ - Forum - VBA Office (Excel, Word ...)
- Vba ouvrir un fichier excel sans l'afficher ✓ - Forum - Visual Basic 6
- Vba ouvrir un fichier word existant ✓ - Forum - VB.NET
5 réponses
Meilleure réponse
- Messages postés
- 33
- Date d'inscription
- lundi 10 décembre 2007
- Statut
- Membre
- Dernière intervention
- 26 mai 2008
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
210 internautes nous ont dit merci ce mois-ci
- Messages postés
- 17280
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 21 juillet 2019
google m'a soufflé la réponse...
WorkBooks Open CSV
http://drq.developpez.com/vb/tutoriels/Excel/Chapitre2/
WorkBooks Open CSV
http://drq.developpez.com/vb/tutoriels/Excel/Chapitre2/