Discussion :

[ericdev67]

Bonjour,

J'ai créé une macro qui ouvre un fichier .PDF partir d'une macro Excel (ouverture par lien hypertexte).
La macro ouvre bien le fichier .pdf et doit l'enregistrer dans un autre dossier.

Lorsque je fais ça avec excel, grace au code "activeworkbook.savecopy as...." +" activeWorkbook.close" ça fonctionne.

Par contre, je n'ai pas le code pour "commander" la fermeture du fichier .pdf.
(Adobe Reader 7.0)

Donc si une âme charitable avait l'équivalent de "activeworkbook.savecopy as..." pour adobe...., ça serait cool...j'ai pas trouvé ma réponse sur le forum et je cherche à fermer ces fichiers .pdf depuis 2 jours...et là, help

A+

[Invité]

Bonjour

Puisque tu as ouvert ton PDF, c'est que tu as son chemin et son nom, donc il te suffit d'utiliser les méthodes de copie de fichiers.

Un petit coup de Comment copier un fichier vers un autre répertoire ?

Dans l'exemple de la ce sont des fichiers Excel, tu mets ton fichier .pdf à la place.

Starec

[ericdev67]

Merci Starec,

J'avais vu ce forum, mais le soucis, est que j'ouvre (par macro) un lien hypertexte et donc je ne peux pas récupérer le chemin : voici le code (por être plus clair) :

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
 
 
Sub ouvriretenregistrerdansnvdossier()
Dim Lien As Hyperlink
Dim I As Byte
Dim Chemin As String, fichier As String
Chemin = "c:\eri\"
 
Application.ScreenUpdating = False
'Boucle sur les liens de la feuille active
For Each Lien In ActiveSheet.Hyperlinks
    'Vérifie si le lien correspond à un classeur
    If Right(Range(Lien.Range.Address).Hyperlinks(1).Address, 4) <> "" Then
        'Déclenche le lien pour ouvrir le classeur
        Range(Lien.Range.Address).Hyperlinks(1).Follow NewWindow:=False
 
        fichier = ActiveWorkbook.Name
 
        ActiveWorkbook.SaveCopyAs Chemin & fichier
 
 
        'Referme le classeur
        ActiveWorkbook.Close
    End If
Next
 
Application.ScreenUpdating = True
End Sub

En fait je n'arrive pas à récupérer "activeworkbook.name" = le fichier .pdf s'ouvre , mais je n'arrive pas à le sauvegarder dans un autre dossier et le fermer. : la macro fonctionne super bien avec excel, mais avec PDF, "impossible" d'enregistrer et fermer.

Merci
A+

[Invité]

Re

Visualise dans une msgbox la propriété Address d'un lien hypertexte pour voir.


Starec

[ericdev67]

Houps,
pas compris..... (p'ti jeunot en macro...)

Je vais voir sur le forum....et je reviens....

Merci
A+

[ericdev67]

Pas trouvé...........de solution ou d'idées de recherche....

A+

[tomy7]

ce que dis starec c est de faire :

msgbox .....ici ton chemin

tu insère ça ds ton code et la tu verra ton chemin....

[ericdev67]

Merci à tous les 2, mais comme j'ai pas bien compris comment fonctionne le code Msbox, j'ai cherché d'autres solutions...et j'ai trouvé : j'ai désactivé les liens hypertextes, récupéré la valeur du lien (c'était sous forme de aa.xls, donc le aa était facile à récupérer), puis j'ai utilisé le code de starec (filecopy ".C:\dossier\...,.d:\Dossier\...."), et ça marche super bien.

Merci, 2 jours pour une solution aussi simple.....les boules...mais comme le dit ouskel'n'or, c'est en cherchant et essayant qu'on trouve, la preuve...

A+