« VBExcel » : différence entre les versions

<keywords content="VBexcel, VB, excel" />

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

 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