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.
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.
Code:
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