Benjamin42
XLDnaute Nouveau
Bonjour,
J'ai créé un codage pour indiquer le nombre de ligne à importer mais cela me renvoi 0 à chaque fois, vous avez une idée :
' Nombre d'evenements à importer
Dim Fichier As String
Dim Chemin As String
Dim Dernligne As Integer
Dim i As Double
Dim Val As Long
Chemin = ThisWorkbook.Path
Fichier = Chemin & "\[Sas_Temp.xlsx]"
For i = 2 To 100000
Val = ExecuteExcel4Macro("'" & Fichier & "Tableau'!R" & i & "C6")
If Val = 0 Then
Exit For
End If
Next i
Dernligne = i - 2
Evenements.Value = Dernligne
End Sub
J'ai créé un codage pour indiquer le nombre de ligne à importer mais cela me renvoi 0 à chaque fois, vous avez une idée :
' Nombre d'evenements à importer
Dim Fichier As String
Dim Chemin As String
Dim Dernligne As Integer
Dim i As Double
Dim Val As Long
Chemin = ThisWorkbook.Path
Fichier = Chemin & "\[Sas_Temp.xlsx]"
For i = 2 To 100000
Val = ExecuteExcel4Macro("'" & Fichier & "Tableau'!R" & i & "C6")
If Val = 0 Then
Exit For
End If
Next i
Dernligne = i - 2
Evenements.Value = Dernligne
End Sub