Ouvrir un fichier PDF en VBA

Version imprimable

Bonjour,

J'ai un code qui me permet d'enregistrer un état en format PDF dans le répertoire que j'ai choisis.
Je voudrais aussi qu'il l'ouvre (PDF) sous adobe acrobat.
Est-ce possible

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Macro1()
On Error GoTo Macro1_Err
 
Dim Ladate As Date, Lentier As Variant
Ladate = Forms![F_Preventif]![Date_p]
Lentier = Format(DateSerial(Year(Ladate), Month(Ladate), Day(Ladate)), "dd-mm-yy")
 
    DoCmd.OutputTo acOutputReport, "PRINCIPALE", acFormatPDF, "\\fermat\echange\Entretien_r01\Méthodes Maintenance\Gammes\" & "Gamme_" & Forms![F_Preventif]![lstligne] & "_" & Forms![F_Preventif]![lstmachine] & "_" & Lentier & ".pdf"
 
 
Macro1_Exit:
    Exit Function
 
Macro1_Err:
    MsgBox Error$
    Resume Macro1_Exit
 
End Function

Merci infiniment pour votre aide

02/10/2017, 12h46
Jean-Philippe André

Salut,

tout est dans la :faq:
https://excel.developpez.com/faq/?pa...erShellExecute
02/10/2017, 14h09
othmanepf

Merci, mais ça ne correspond pas à ce que j'ai.
Je veux ouvrir un fichier que je crée moi même, le nom du fichier dépend de certains paramètres :

Code:

\\fermat\echange\Entretien_r01\Méthodes Maintenance\Gammes\" & "Gamme_" & Forms![F_Preventif]![lstligne] & "_" & Forms![F_Preventif]![lstmachine] & "_" & Lentier & ".pdf

La fonction proposée dans le tuto sert à ouvrir un fichier qui existe déjà.

Oui tout a fait, c'est pour cela que tu fais ton extract dans un premier temps puis le shellexecute ensuite :)

Code:

1
2
3
4
Dim Fichier As String
Fichier = "\\fermat\echange\Entretien_r01\Méthodes Maintenance\Gammes\" & "Gamme_" & Forms![F_Preventif]![lstligne] & "_" & Forms![F_Preventif]![lstmachine] & "_" & Lentier & ".pdf"
DoCmd.OutputTo acOutputReport, "PRINCIPALE", acFormatPDF, Fichier
ShellExecute 0, "", Fichier, "", "", 0

04/10/2017, 11h31
othmanepf

Merci infiniment KIKI, ça m'aide vraiment beaucoup :)