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
 
	 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		