Discussion :

[othmanepf]

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 :

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
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

[Jean-Philippe André]

Salut,

tout est dans la
https://excel.developpez.com/faq/?pa...erShellExecute

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

\\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à.

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[othmanepf]

Merci infiniment KIKI, ça m'aide vraiment beaucoup