Classeur excel =nom de feuille.PDF=ouverture PDFRésolu

Question

Bonjour, 
je suis un novice et je bidouille le VB pour EXCEL et CATIA en piochant sur le net

aujourd'hui je suis bloquer sur l'ouverture des fichiers PDF que j'ai généré 
en gros 
je transforme chaque feuille de mon classeur excel en PDF (nom de feuille.PDF)
en l'enregistrant dans le même répertoire

Maintenant je voudrais ouvrir chaque PDF créé , mais pour l'instant ça n'ouvre qu'une fenêtre me demandant le fichier à ouvrir
Voici ma Macro

Sub PDF()
Application.ScreenUpdating = False
On Error Resume Next

Path_name = ThisWorkbook.Path
For i = 1 To Sheets.Count
Sheets(i).Select
'conversion en PDF de chaque feuille
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path_name & "\" & Sheets(i).Name

'ouverture des PDF
LongFilename = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf,(*.*),*.*")

Next i
Sheets(1).Select
Application.ScreenUpdating = True
MsgBox ("Les " & Sheets.Count & " documents PDF viennent d'être créés et son disponnibles dans le même répertoire")
End Sub

pijaku · Answer

Bonjour,

Tout d'abord, lorsque vous placez du code sur notre forum, merci d'utiliser les balises à votre disposition. Le mode d'emploi (au cas ou) est ICI.

Ensuite, il est important, en VB, VBA de déclarer les variables que vous utilisez. Pour cela je vous conseille fortement d'utiliser, en tête de Module, Option Explicit. cf ICI.

Sinon, pour ouvrir un fichier pdf depuis Excel, vous pouvez simplement utiliser .FollowHyperlink.
Comme ceci :
Option Explicit

Sub PDF()
Dim Path_name As String, i As Integer

Application.ScreenUpdating = False
On Error Resume Next

Path_name = ThisWorkbook.Path
For i = 1 To Sheets.Count
    Sheets(i).Select
    'conversion en PDF de chaque feuille
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path_name & "\" & Sheets(i).Name
Next i
Sheets(1).Select
Application.ScreenUpdating = True
MsgBox ("Les " & Sheets.Count & " documents PDF viennent d'être créés et sont disponnibles dans le même répertoire")
For i = 1 To Sheets.Count
    'ouverture des PDF
    ThisWorkbook.FollowHyperlink Path_name & "\" & Sheets(i).Name & ".pdf"
Next i
End Sub

A votre place, j'ajouterai une boite de dialogue avant l'ouverture des pdf, pour demander à l'utilisateur s'il désire les ouvrir ou non...
Pour mettre ce type de boite de dialogue en place, n'hésitez pas à demander...

Cordialement,
Pijaku

fanch-bzh · Answer

super merci ça marche nikel

pour les boites de dialogues , je vais d'abord chercher par moi même .
je reviendrais pour demander de l'aide au besoin et de toute façon pour partager ma macro

fanch-bzh · Answer

voila , tout fonctionne


Sub PDF()Application.ScreenUpdating = FalseOn Error Resume NextPath_name = ThisWorkbook.PathFor i = 1 To Sheets.CountSheets(i).Select'conversion en PDF de chaque feuilleActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path_name & "\" & Sheets(i).NameNext iSheets(1).SelectApplication.ScreenUpdating = TrueMsgBox ("Les " & Sheets.Count & " documents PDF viennent d'être créés et son disponnibles dans le même répertoire")If MsgBox("Voulez-vous afficher les PDF ?", vbYesNo + vbInformation, "Message") = vbYes Then           MsgBox "Vous avez cliquer sur Oui ,voici vos PDF ", vbInformation, "Message"For i = 1 To Sheets.Count    'ouverture des PDF    ThisWorkbook.FollowHyperlink Path_name & "\" & Sheets(i).Name & ".pdf"Next i    Else       MsgBox "Vous avez cliquer sur Non . A bientôt ", vbInformation, "Message"    End IfEnd Sub

Classeur excel =>nom de feuille.PDF=>ouverture PDF

3 réponses

Votre réponse

Discussions similaires