VBExcel

Attendre dans un script vb

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Date de dernière modification

Import de fichier csv

avec copy paste dans la feuille sSheetNAme

SUB ImportTxtFile(sName AS STRING, sSheetName AS STRING)
sCommandSheet = ActiveSheet.Name
sMyBook = ActiveWorkbook.Name
Workbooks.Open FileName:=sName
Cells.Select
Selection.Copy
fileWorkBook = ActiveWorkbook.Name
Windows(sMyBook).Activate
Sheets(sSheetName).Select
ActiveSheet.Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks(fileWorkBook).Close SaveChanges:=False
Windows(sMyBook).Activate
Sheets(sCommandSheet).Select
ActiveWorkbook.SAVE
END SUB

import de fichier

Liens Externes