Macro Ouverture de plusieurs fichiers PDF à partir d'un fichier Excel ?

Bonjour;
J'ai une feuille Excel, avec une colonne "C" , chaque cellule, de cette colonne, représente le chemin d'accés à un fichier *.pdf. J'aimerai trouver un moyen (macro) afin d'ouvrir tous les fichiers PDF en utilisant les cellules de la colonne C.
J’ai pensé à la fonction Shell pour exécuter ce travail, mais je trouve des difficultés à la mettre au point.
Vos propositions sont les bienvenues, merci d’avance. 8O

Bonjour,
tu peux t'inspirer de tuer-tache-ouverte-shell-shellexecuteex/ initié par moi-même il y a bien longtemps.

Bonne chance.

De la FAQ
A tout hasard

Bonjour,

Citation:

---

Envoyé par Godzestla

tu peux t'inspirer de tuer-tache-ouverte-shell-shellexecuteex/ initié par moi-même il y a bien longtemps..

---

Bonsoir,
On s'inspirant de ton code voilà à quoi je suis arrivé:

Code:

---

1 2 3 4 5 6 7

Sub OpenPdf()   Dim Operation As String Dim shell_res As Variant Operation = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe D:\P_Documents\12600-12699\12682.pdf" shell_res = Shell(Operation, vbNormalFocus) End Sub

---

Ce code n'ouvre que le fichier "12682.pdf", alors que mois je cherche à ouvrir plusieurs fichiers PDF qui ce trouve dans des sous-répertoires du répertoire "D:\P_Documents\".
Comment je fais cela pour mes fichiers PDF ?
Pour votre information, la liste des chemins d'accés à ces fichiers PDF je l'ai dans mon classeur.

Citation:

---

Ce code n'ouvre que le fichier "12682.pdf", alors que mois je cherche à ouvrir plusieurs fichiers PDF qui ce trouve dans des sous-répertoires du répertoire "D:\P_Documents\".
Comment je fais cela pour mes fichiers PDF ?

---

Pour cela tu peux utiliser la commande DIR.

Citation:

---

Pour votre information, la liste des chemins d'accés à ces fichiers PDF je l'ai dans mon classeur.

---

Alors c'est simple, tu fais une boucle sur les noms dans ton classeur et tu renseigne ta variable operation.

Code:

---

1 2 3 4 5 6 7 8 9

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("C" & i).Value 'colonne C chemin complet des fichiers pdf Operation = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & stFichier shell_res = Shell(Operation, vbNormalFocus) Next i

---

Bonjour

Petite précision sur l'instruction Shell
Elle nécessite le chemin complet de l'application associée au fichier, ce qui peut être pénalisant sur des machines qui n'ont pas les mêmes configuration.

Il peut être intéressant plutôt de travailler avec ShellExecute, qui ouvre le fichier avec l'application qui lui est associée (sans se soucier de l'emplacement, ni de la version). Même si son utilisation nécessite une déclaration dans la section Déclarations du module, elle me parait plus souple à utiliser.

Merci à tout le monde, j'ai pu, avec vos aides, ouvrir tous mes documents PDF.
Cependant, il ya quelques fichiers qui ne s'ouvrent pas a cause du changement de leur nom suite à une ou plusieurs révisions.
Le nom devient par exemple: 12682Révxx ou 12682 révxxyyy yyyy.
Les questions sont:
1/- comment puis-je avoir les nom des fichiers non ouverts ?
2/- S'il y a une possibilité d'ouvrir tous les fichiers dont les noms ont été modifiés partiellements, c'est à dire on se basant sur la partie constante du nom, les quatre ou les cinq premièrs chiffres du nom du fichier avant sa révision ?

merci d'avance pour votre collaboration

Bonjour, tu peux utiliser la commande dir.

Code:

---

Dir(12682*)

---

Un exemple perso a adapter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Fichier = Dir(Repertoire & "*.xls")   Workbooks.Open Filename:=Repertoire & Fichier   Do While Len(Fichier) > 0 Fichier = Dir() If Fichier = Empty Then Exit Do End If DoEvents Workbooks.Open Filename:=Repertoire & Fichier   Loop

---

Bonsoir
ça marche, j'ai rajouté l'astérisque * devant les noms des fichiers et tous les fichiers PDF sont ouverts.
thanks awfully for every one, you are the best. :merci:
:ccool: