Ouvrir un pdf pb de macro

C

Compte Supprimé 979

Guest

• 17 Décembre 2012

• #2

Re : Ouvrir un pdf pb de macro

Bonsoir

Je dois faire une recherche de fichiers PDF via une TextBox et les ouvrir. (plusieurs milliers)

Cliquez pour agrandir...

Oui c'est bien beau, mais quel est le but ?

A+

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 17 Décembre 2012

• #3

Re : Ouvrir un pdf pb de macro

Bonsoir BrunoM45, le Forum

A partir d'un fichier EXCEL que j'ai développé pour des test en interféromètrie, j'ai besoin d'ouvrir un fichier PDF correspondant au numéro de série de l'objet testé.
Je reçois les numéros de série sur CDROM, j'ai donc des milliers de fichiers en PDF sur un serveur, je pourrais ainsi les ouvrir rapidement afin de les imprimer ou de les incorporer aux onglets.

Merci à toi.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 17 Décembre 2012

• #4

Re : Ouvrir un pdf pb de macro

Re,

Voici un fichier contenant un exemple de macro

A+

 

Pièces jointes

• xhudi69_Exemple.xlsm

  20.8 KB · Affichages: 60

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 18 Décembre 2012

• #5

Re : Ouvrir un pdf pb de macro

Bonjour BrunoM45,

je te remercie pour le fichier, je regarde cela au travail ce matin, compare et adapte avec les recherches que j'ai fait de mon côté.

Je te fait un retour dès cet après-midi.

@+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 18 Décembre 2012

• #6

Re : Ouvrir un pdf pb de macro

Bonjour Xhudi69, Bruno

On peut ouvrir un .PDf à partir de codes de ce type. Je priviliégierai le second en mettant le lien vers l'éditeur PDF qu'on désire utiliser (faire une recherche dans le dossier Programme), ce qui évite d'avoir des messages d'alertes intempestifs.

Code:

Sub OuvrePDFHyperlink()
'NF contient le chemin et le nom du fichier PDf dans la cellule active
NF = ActiveCell.Value
ActiveWorkbook.FollowHyperlink (NF)
End Sub

Sub OuvrePDFShell()
'NF contient le chemin et le nom du fichier PDf dans la cellule active
NF = ActiveCell.Value
Shell ("C:\Program Files\Tracker Software\PDF-XChange Viewer\pdf-viewer\PDFXCview.exe " & Chr(34) & NF & Chr(34))
End Sub

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 18 Décembre 2012

• #7

Re : Ouvrir un pdf pb de macro

Bonjour à tous

Merci beaucoup MJ13, la méthode avec "FollowHyperlink" marche très bien, je l'utilise comme ceci (merci aussi à BrunoM45)

Code:

ThisWorkbook.FollowHyperlink ("T:\10_ PRODUCTION\1_PRODUCTION_CHIFFRES\R.H\RH S50.pdf")

Le soucis est que mes fichiers pdf sont sous la forme 121959-0001, 20121122_012645

Quand je teste les produits, ceux-ci ont un numéro de série comme ci-dessus en gras.

Je saisie dans la TextBox1 le N° de série (en gras)
1 er Problème: comment faire pour incorporer TextBox1.Text dans la macro ?
2 ème Problème comment faire pour retrouver le fichier pdf sachant que son nom est plus grand?

Grand merci à vous pour votre travail.

@+

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 18 Décembre 2012

• #8

Re : Ouvrir un pdf pb de macro

Bonsoir le Forum,

Bon, j'ai résolu mon problème d'ouverture de fichier (voir PJ).

Il me reste à solutionner le soucis du nom de fichier.
Les noms de fichier PDF sont sous la forme (121959-0001, 20121122_012645)

les produits que je teste on pour numéros de série les 11 premiers caractères (en gras), donc comment faire pour ne saisir que ces 11 premiers caractères dans mon TextBox et retrouver mon fichier ??

That is the question, en tout cas merci pour vos réponces.

@+

 

Pièces jointes

• xhudi69_PDF_bis.xlsm

  28.5 KB · Affichages: 53
• xhudi69_PDF_bis.xlsm

  28.5 KB · Affichages: 53
• xhudi69_PDF_bis.xlsm

  28.5 KB · Affichages: 57

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 19 Décembre 2012

• #9

Re : Ouvrir un pdf pb de macro

Bonjour le Forum,

petit up du fil,

Merci à vous

 

Vote positif 0 Vote négatif