Discussion :

[Djoraider]

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!

[Menhir]

Est-ce que les extensions de fichiers sont masquées dans l'Explorateur Windows ?
Si c'est le cas, décocher cette option dans l'Explorateur Windows.

[Djoraider]

Est-ce que les extensions de fichiers sont masquées dans l'Explorateur Windows ?
Si c'est le cas, décocher cette option dans l'Explorateur Windows.

Les extensions n'étaient pas masquées, puis je les ai décochées, mais le problème persiste!

[Djoraider]

Bonjour,
Il y a un détail que j'aimerai bien porter à votre connaissance. Quelques soit le nombre de fichiers PDF à ouvrir, après le lancement de la Macro, il y a quatre (4) messages d'erreur qui s'affichent selon la chronologie suivante:

1- There was an error opening this document. This file cannot be found.
2- There was an error opening this document. Access denied.
3- There was an error opening this document. This file cannot be found.
4- There was an error opening this document. This file cannot be found.

Merci pour votre collaboration!

[Menhir]

pourtant les fichiers sont dans le même répertoire.

Y compris Accrobat Reader ?

[Djoraider]

Y compris Accrobat Reader ?

Non, je parlais des fichier PDF qui sont placés sur réseau (serveur de la compagnie) dans un répertoir appelé "PO Document" et le répertoire contient des sous répertoires qui contients les PO par plage de numéros (exemple : 10000-10099; 10100-10199, ..etc). Chaque sous répertoires contient plus ou moins 99 fichiers PDF. Cependant Acrobate est installé sur le C comme l'indique la tranche du code VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Operation = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe "

Pour le path de chaque fichier, il est renvoyé par une formule du fichier Excel, en copiant la liste des PO dans une certaine colonne et le résultat est par exemple: J:\Depts\Appros\01 - PO Documents\10000-10099\10010*.pdf .

[Menhir]

Pour le path de chaque fichier, il est renvoyé par une formule du fichier Excel, en copiant la liste des PO dans une certaine colonne et le résultat est par exemple: J:\Depts\Appros\01 - PO Documents\10000-10099\10010*.pdf .

En supposant que cette référence soit en A1, mets dans une autre cellule la formule =LIEN_HYPERTEXTE(A1) puis clique sur cette cellule pour voir si Excel trouve ce fichier à l'adresse indiquée.

[Djoraider]

mets dans une autre cellule la formule =LIEN_HYPERTEXTE(A1) puis clique sur cette cellule pour voir si Excel trouve ce fichier à l'adresse indiquée.

Menhir, lorsque j'enlève l'astérisk devant le numéro du PO, il l'ouvre (exemple : J:\Depts\Appros\01 - PO Documents\24000-24099\24022.pdf) et avec l'astérisk c'est négatif.
Cependant, quand je lance la macro, avec ou sans l'astérisk, ce sont toujours les mêmes messages d'erreurs.

NB/ L'astérisk c'est pour qu'il m'ouvre la dernière révision s'il y on a, exemple 240200 Rev 02

[Menhir]

Essaye ça comme code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub OpenPdf()
Dim Ri As Range, res As Variant
For Each Ri In Range("J2", Cells(Rows.Count, "J").End(xlUp))
    res = GetObject(Ri.Text)
Next Ri
End Sub

[Djoraider]

Essaye ça comme code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub OpenPdf()
Dim Ri As Range, res As Variant
For Each Ri In Range("J2", Cells(Rows.Count, "J").End(xlUp))
    res = GetObject(Ri.Text)
Next Ri
End Sub

Il a généré ce message : Proprièté ou méthode non gérée par cet objet

Il y a lieu de rapeller que le contenu des cellules allant de J2 à J51 (50 c'est le Max de fichiers que peut ouvrir Acrobat raider en une seule fois) est une formule: =SI(F2<>0;$J$1&"\"&G2&"\"&F2&"*"&".pdf";"") où
F2 : Numéro du PO
J1: Path du répertoire PO (J:\Depts\Appros\01 - PO Documents)
G2: Sous répertoire où se trouve le PO

Merci pour votre aide

[Djoraider]

Bonjour,
Le problème résidait dans Adobe Reader XI. Dans le menu Edit ---> Security (Enhanced) -----> Il fallait décocher la case "Enable Protected Mode at Startup".
Tous marche à la perfection.

Merci infiniment Menhir pour votre assitance!