Discussion :

[Mounamidou]

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.

[Godzestla]

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

Bonne chance.

[ouskel'n'or]

De la FAQ
A tout hasard

[Mounamidou]

Bonjour,

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 :

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

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.

[aalex_38]

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.

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.

[mercatog]

Code :

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

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

[fgiambelluco]

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.

[Mounamidou]

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

[aalex_38]

Bonjour, tu peux utiliser la commande dir.

Code :

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

Dir(12682*)

Un exemple perso a adapter :

Code :

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

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

[Mounamidou]

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.