Copier fichier csv
Résolu
mecanique12
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
mecanique12 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
mecanique12 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis un novice en VBA et en copiant ce que je lis, jais fait une formule pour copier les données d'un fichier CSV vers un fichier xls "rapport". Mon soucis et que lorsque je lance la macro, le fichier se copier dan un nouveau classeur et pas dans mon fichier qui est ouvert.
Deuxième demande, je voudrais vérifié si une cellule contient bien un texte défini avant de copier. Si pas pas correct un message apparaît et pas de copie.
Merci de m'éclairer.
René
Sub import_csv()
Dim wk1 As Workbook, wk2 As Workbook
Dim chemin As String, fichier As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wk1 = ThisWorkbook
'Indique le répertoire du fichier csv
'ici le même répertoire que le fichier destination
chemin = wk1.Path & "\"
'définit le nom du fichier à importer
fichier = "trend0hd02.csv"
'ouvre le fichier csv
Workbooks.Open chemin & fichier
Set wk2 = Workbooks(fichier)
'copie sheet
Sheets("trend0hd02").Select
Sheets("trend0hd02").Copy
wk2.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Je suis un novice en VBA et en copiant ce que je lis, jais fait une formule pour copier les données d'un fichier CSV vers un fichier xls "rapport". Mon soucis et que lorsque je lance la macro, le fichier se copier dan un nouveau classeur et pas dans mon fichier qui est ouvert.
Deuxième demande, je voudrais vérifié si une cellule contient bien un texte défini avant de copier. Si pas pas correct un message apparaît et pas de copie.
Merci de m'éclairer.
René
Sub import_csv()
Dim wk1 As Workbook, wk2 As Workbook
Dim chemin As String, fichier As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wk1 = ThisWorkbook
'Indique le répertoire du fichier csv
'ici le même répertoire que le fichier destination
chemin = wk1.Path & "\"
'définit le nom du fichier à importer
fichier = "trend0hd02.csv"
'ouvre le fichier csv
Workbooks.Open chemin & fichier
Set wk2 = Workbooks(fichier)
'copie sheet
Sheets("trend0hd02").Select
Sheets("trend0hd02").Copy
wk2.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
A voir également:
- Copier fichier csv
- Fichier epub - Guide
- Fichier bin - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
- Fichier 7z - Guide
Désolé de réitérer votre aide.