Discussion :

[michael-ECN]

Bonjour tout le monde,

Je programme sous vba word. En utilisant le dso, j'arrive à connaître l'auteur, la date du dernier enregistrement et diverses informations comme celles-ci pour des fichiers pdf, cependant, je n'arrive pas à connaitre le nombre de pages contenues ces derniers.

Est-ce que quelqu'un connait un bout de code, une méthode ou quelquechose comme ça qui m'aiderait à atteindre mon objectif?

Est-ce que ce qu'il faut utiliser le fso? Si vous y arrivez en programmant sous excel, ça me va aussi.

Merci par avance.

[Heureux-oli]

Salut,

Pour le FSO, tu peux oublier.
Pour le DSO aussi, c'est un activeX qui récupère les infos des fichiers Microsoft.

La solution si elle existe doit se trouver chez Adobe.

[Krovax]

Bonjour,
stagiaire dans le bureau d'à coté de notre camarade Michael.
Je me suis intéressé au problème. (avec VBA excel mais a part pour stocker le résultat ca ne devrait rien changer)

Je précise j'ai honte de ce code , mais on est très limité niveau outil disponible.

Il se lance une fois que le pdf est ouvert et que la fenêtre est bien activé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
DoEvents
SendKeys "^p"
DoEvents
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
DoEvents
SendKeys "^c"
DoEvents
SendKeys "{ESC}"
DoEvents
SendKeys "%{F4}"
DoEvents
ThisWorkbook.Worksheets("Feuil2").Range("A1").NumberFormat = "@"
ThisWorkbook.Activate
Worksheets("Feuil2").Select
Range("A1").Select
ThisWorkbook.Worksheets("Feuil2").PasteSpecial Format:="Texte Unicode", Link:=False, DisplayAsIcon:=False
 
num = ThisWorkbook.Worksheets("Feuil2").Range("A1")
If InStr(num, "-") <> 0 Then
num = Trim(Split(num, "-")(1))
Else
num = 1
End If
ThisWorkbook.Worksheets("Feuil1").Range("A1") = num
Worksheets("Feuil1").Select
End Sub

En fait je récupère la plage de page a imprimé dans le presse papier a gros coup de sendkeys. Ça fonctionne pour un fichier isolé reste a voir dans quel mesure on peu le passer a plus grande échelle quitte a mettre quelque boucle de doevents et des tempo arbitraire et laisser tourner le code tout le week-end (le code sera lancé une et une seule fois)

Maintenant que cela est fait il ne me reste plus cas aller me cacher