IMPORTER UN FICHIER PDF DANS EXCEL ????

[jmcr]

bonsoir le forum voila tout les mois je reçois des fichier pdf je voudrais les lires dans mon dossier excel comment je pourrais faire svp peut être un code bva si cela est possible
pouvez vous m'aidé
avec tout ma gratitude

 

[job75]

Bonjour jmcr, le forum,

S'il s'agit simplement de lire :

ThisWorkbook.FollowHyperlink "C:\MonFichier.pdf"

ou :

ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\MonFichier.pdf"

Bonne journée.

 

[job75]

Re,

Pour ouvrir les fichiers PDF d'un même dossier on peut utiliser un UserForm avec ce code :

Private Sub ListBox1_Click()
On Error Resume Next
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & ListBox1 'chemin à adapter éventuellement
End Sub

Private Sub UserForm_Initialize()
Dim fichier$
fichier = Dir(ThisWorkbook.Path & "\*.pdf") 'chemin à adapter éventuellement
While fichier <> ""
  ListBox1.AddItem fichier
  fichier = Dir
Wend
UserForm1.Caption = "  " & ListBox1.ListCount & " fichier(s) PDF à ouvrir"
End Sub

Placer les fichiers joints dans le même dossier (le bureau).

A+

 

[job75]

Re,

Avec cette API Windows dans Module1 :

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

c'est mieux car il n'y a plus de message d'alerte à l'ouverture des fichiers PDF.

Fichier (2).

A+

 

[jmcr]

bonjour le forum j 'ai trouvé comment appelle et lire mes pdf grâce a job 75 que je remercie beaucoup pour sont aide je préfère avec l'alerte r très bonne idée
se que j 'arrive pas a faire est comment enregistrer format EXCEL et PDF dans deux dossiers différents par un bouton. avec un choix
soit excel soit pdf pouvez vous m'aidé svp

 

[job75]

Re,

La question n'a guère de sens car le fichier Excel, normalement, est déjà enregistré !!!

Si l'on veut à partir de ce fichier créer un PDF et le placer dans un sous-dossier nommé "Fichiers PDF" :

Sub CreerPDF()
Dim chemin$, fichier$
With ThisWorkbook
  chemin = .Path & "\Fichiers PDF\"
  fichier = Left(.Name, InStrRev(.Name, ".")) & "pdf"
  If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'création du sous-dossier "Fichiers PDF"
  .ExportAsFixedFormat xlTypePDF, chemin & fichier
End With
End Sub

A+

 

[jmcr]

effectivement du a bien raison dans ton raisonnement j ai encore mal formulais ma demande je voulais juste dire que je voulais enregistrer mon dossier aussi en pdf pour l envoie en par email peut tu me dire dans le code se que je dois mettre pour l'envoyé dans mes documents dossier pdf enfin un grand merci pour le temps que tu a bien voulus m'accordées

 

[job75]

Re,

Pour l'envoi d'un fichier par mail cherchez sur le forum la solution qui vous convient.

A+

 

[jmcr]

merci beaucoup je vais suivre votre conseil encore merci pour votre aide

 

[jmcr]

je vais suivre votre conseil encore merci pour votre aide

 

[kiki29]

Salut, tu as un gros pb de vocabulaire parce qu'entre ouvrir un fichier PDF et le lire il y a un monde.

 

[gardian]

Merci pour vos commentaire. Résolus avec. JOB75 merci encore pour votre aide