bonsoir,
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
19
20
21
22
23
24
Private Sub Btn_99_Druckausgabe_Speichern_Click()
Dim pfad
 
'Datum aktualisieren
Range("Z_Datum") = Date
 
'Date$ liefert MM-TT-YYY. 
datum = Left(Date$, 2) & Mid(Date$, 4, 2) & Mid(Date$, 7, 4)
 
 Dim FileSaveName 
 empfaenger = Range("Z_Titelblatt_Kunde")
 pfad = ActiveWorkbook.Path
 
      FileSaveName = Application.GetSaveAsFilename _
            (InitialFileName:=pfad & "\Checkliste_" & empfaenger & "_" & datum, _
            fileFilter:="EXCEL-Tabelle (*.xls), *.xls")
 
      If FileSaveName <> False Then
              ActiveSheet.SaveAs Filename:=FileSaveName, _
                   Password:=""
      End If
 
    On Error Resume Next 
   End Sub
meme si il ya des mots en allemand je crois que sa pose pas de probeme.

voila je vex enregistrer sous Pdf j ai lu dans le forum mais je ne sais pas ou je vais ajouter ou bien definir.

merci de votre aide