bonjour à tous
En cas de #ref! dans la Cellule Bi de ma feuille "résultats", je souhaite ouvrir le fichier nommé dans la cellule Ai de la meme feuille. (cf doc joint)
voivi le code auquel j'ai pensé........et qui ne marche pas......
merci pour vos lumières
Sub nc()
'
'
Dim i As Integer
Nblignes = [A65536].End(xlUp).Row
Windows("synthèse.xls").Activate
Sheets("résultats").Select
For i = 4 To Nblignes
If Range("B" & i).Value = "#REF!" Then
Workbooks.Open Filename:="L:\service\enquêtesatisfaction\A&i&.xls"
Range("A1").Select
Selection.Copy
Windows("synthèse.xls").Activate
Sheets("liaisons").Select
Range("F" & i).Select
ActiveSheet.Paste
End If
Next i
End Sub
En cas de #ref! dans la Cellule Bi de ma feuille "résultats", je souhaite ouvrir le fichier nommé dans la cellule Ai de la meme feuille. (cf doc joint)
voivi le code auquel j'ai pensé........et qui ne marche pas......
merci pour vos lumières
Sub nc()
'
'
Dim i As Integer
Nblignes = [A65536].End(xlUp).Row
Windows("synthèse.xls").Activate
Sheets("résultats").Select
For i = 4 To Nblignes
If Range("B" & i).Value = "#REF!" Then
Workbooks.Open Filename:="L:\service\enquêtesatisfaction\A&i&.xls"
Range("A1").Select
Selection.Copy
Windows("synthèse.xls").Activate
Sheets("liaisons").Select
Range("F" & i).Select
ActiveSheet.Paste
End If
Next i
End Sub
Pièces jointes
Dernière édition: