Copier fichier csv [Résolu/Fermé]

Messages postés
3
Date d'inscription
vendredi 10 juin 2016
Statut
Membre
Dernière intervention
10 juin 2016
- - Dernière réponse : mecanique12
Messages postés
3
Date d'inscription
vendredi 10 juin 2016
Statut
Membre
Dernière intervention
10 juin 2016
- 10 juin 2016 à 19:01
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

Afficher la suite 

2 réponses

Messages postés
14889
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
5 décembre 2019
1194
0
Merci
Bonjour,

copie apres le premier onglet, si en dernier:
wk1.sheets(Sheets.count)


'copie sheet
Sheets("trend0hd02").Select
Sheets("trend0hd02").Copy After:=wk1.Sheets(1)
mecanique12
Messages postés
3
Date d'inscription
vendredi 10 juin 2016
Statut
Membre
Dernière intervention
10 juin 2016
-
cela fonctionne très bien. Mais je me suis mal exprimé, je souhaite mettre à jour les données dans le fichier dans le sheet trend0hd02.
Désolé de réitérer votre aide.
Messages postés
3
Date d'inscription
vendredi 10 juin 2016
Statut
Membre
Dernière intervention
10 juin 2016
0
Merci
j'ais trouvé

'copie sheet
Sheets("trend0hd02").Cells.Copy
Sheets("trend0hd02").Paste


merci pour vottre aide.