Benjamin42
XLDnaute Nouveau
Bonjour,
J'ai récupéré un codage d'un ancien fichier excel et je me rappelle plus ce que veut dire la phrase suivante dans ce codage " Val = ExecuteExcel4Macro("'" & Fichier & "Tableau'!R" & i & "C6") " :
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
Merci pour votre aide
J'ai récupéré un codage d'un ancien fichier excel et je me rappelle plus ce que veut dire la phrase suivante dans ce codage " Val = ExecuteExcel4Macro("'" & Fichier & "Tableau'!R" & i & "C6") " :
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
Merci pour votre aide