Sous windows 7 la macro ci-dessous marchée très bien. Une fois que l'administrateur a installé windows 10, il y a un message d'erreur qui est généré lorsque la macro est lancée "This file cannot be found" et pourtant les fichiers sont dans le même répertoire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub OpenPdf()
 
Dim i As Long
Dim stFichier As String, Operation As String
Dim shell_res As Variant
 
 
  For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
    stFichier = Range("J" & i).Value  'colonne C chemin complet des fichiers pdf
    Operation = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe " & stFichier
    shell_res = Shell(Operation, vbNormalFocus)
Next i
End Sub

Merci!