XL 2016 VBA - importation fichier + convertisseur csv

[douguy]

re-bonjour cher forum
J'ai un problème dans l'identification d'un fichier sur VBA
Le fichier est une extraction de logiciel quotidien ou pas
Le nom du fichier est un code - un nom - la date du jour de l'extraction

j'en suis à ça

évidemment ca marche pas :
l'erreur vient de cette ligne Set wb = Workbooks("name2")
pourtant le nom reconstitué est bon.

Est ce qu'une âme charitable aurait une solution?

Ensuite le fichier est importé dans une feuille sous format csv et je voudrais que la fonction "convertir" de excel se déclenche aussitôt avant le copier coller!

merci à tous ceux qui voudront bien m'aider.

Sub ImportExtract()
Dim sh1 As Excel.Worksheet, sh2 As Excel.Worksheet, sh3 As Excel.Worksheet
Dim wb As Excel.Workbook, shA As Excel.Worksheet
Dim year As String, month As String, day As String, RID As String, name As String, name2 As String

Set sh1 = ThisWorkbook.Worksheets("Set")
Set sh2 = ThisWorkbook.Worksheets("Add Extract")
Set sh3 = ThisWorkbook.Worksheets("Extract")

year = sh1.Range("A4")
month = sh1.Range("A5")
day = sh1.Range("A6")
RID = sh3.Range("A2")

'Permet de recréer le nom de l'extract (feuille)
name = "H" & RID & "_TrackingList_" & year & month & day 'H5586_TrackingList_20170330.csv
'Idem avec .csv, correpond au nom du fichier
name2 = name & ".csv"

'Permet d'identifier le fichier extract
Set wb = Workbooks("name2")

'Puis la feuille
Set shA = wb.Worksheets(name)

'Détermine la dernière ligne de l'extract
lastrow = shA.Cells(shA.Rows.Count, 1).End(xlUp).Row

'Copie colle l'extract dans la feuille Add Extract du VEGA tool
sh2.Range("A1:S" & lastrow).Value = shA.Range("A1:S" & lastrow).Value

'Fermer sans enregistrer l'extract
wb.Close savechanges:=False

End Sub

 

[Lone-wolf]

Bonjour dougy 🙂, le Forum 🙂

Tu as cette ligne: Copie colle l'extract dans la feuille Add Extract du VEGA tool

Or si tu sauvegarde le classeur avant d'y copier les données, tu va être obligé de l'ouvrir pour y inserer celles-ci. Tandis que là (beaucoup plus simple), tu copie la feuille Add Extract et la sauvegarde en .csv.

 

[Lone-wolf]

Re

En PJ fichier exemple

 

[douguy]

bonjour Lone-Wolf
Merci pour ton retour et pour t'intéresser à mon problème.
je dois effectuer une batterie de tests et reviens vers toi
encore merci