voila j'ai écrit il y a quelque temps pourobtenir un programme permettant de récupérer des valeurs dans d'autres fichiers vous m'avez beaucoup aidé, sa marchait très bien mais en sur les 2000 fichier 200 sont inexistant et ilme demandais à chaque fois de le retrouver, donc j'ai voulu incorporer une fonction pour seulement passer la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro1()
 
 
Dim i As Integer
 
 
For i = 3 To 2000
     If ='C:\...\" & Cells(i, 2).Value & "\" & Cells(i, 7).Value & "\" & "[" & Cells(i, 7).Value & ".XLS" & "]Feuil1'!R22C8" = false Then
'rien
     Else
        Cells(i, 17).Select
        ActiveCell.FormulaR1C1 = _
        "='C:\...\" & Cells(i, 2).Value & "\" & Cells(i, 7).Value & "\" & "[" & Cells(i, 7).Value & ".XLS" & "]Feuil1'!R22C8"
     End If
Next i
End Sub
mais je ne connais pas la synthaxe "if lien=false then rien."