Erreur: fichier introuvable suite fonction shell()

Bonjour

Avec la fonction ci-dessous, chez moi, pas de problème, le .JPG s'affiche correctement.
Par contre chez Salvatore, qui a le même programme et qui a la même fonction.
Une erreur se produit qui dit: "Fichier introuvable"

Private Sub Commande4_Click()
Dim retval, lechemin As String, chCritères As String
chCritères = DatePart("yyyy", Date)
lechemin = "C:\SVella\ScanFactAchats" & chCritères & "\" & Me!NomScan
'retval = Shell("C:\Program Files\Fichiers communs\Microsoft Shared\PhotoEd\PHOTOED.EXE " & lechemin, 1)
retval = Shell("C:\Program Files\IrfanView\i_view32.exe " & lechemin, 1)
End Sub

Lechemin est bon.

J'ai laissé la ligne avec photoed.exe, comme ce dernier n'existe plus, y a-t-il un autre fichier qui lui ressemble?
Donc, la base de Salvatore est en .mdb sous Office 2013, la mienne est aussi en .mdb sous Office 2010.
Sauf que, ce matin, j'ai repris sa base de données et l'ai importé sur mon PC et ça ne fonctionne plus, même message "fichier introuvable"
Comme j'avais renommé celui d'hier, pas de problème et là plus d'erreur, rien n'a été écrit, juste un copié collé.
Où devrais-je chercher?
Je vais déjà voir les références.
Il va de soi que toute autre solution est la bienvenue.
J'ai aussi téléchargé ta base SelfAccess images, intéressant, mais je dois pouvoir augmenter la taille de l'image.
En fait, les images sont des fichiers, factures, devis, ets. scannés d'où les .JPG.
D'avance merci

@+

Guy FALESSE