Discussion :

[nouha_79]

Bonjour,

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Dim pfad
Dim FileSaveName 'Pfad und Dateiname der zu sichernden Datei
Dim intCounter As Integer
Dim a As Byte
Dim Blatt As Worksheet
 
 
For Each Blatt In Sheets
Blatt.Visible = True
Next Blatt
 
'Datum aktualisieren
Range("Z_Datum") = Date
 
'Date$ liefert MM-TT-YYY. Die Bindestriche müssen raus
datum = Left(Date$, 2) & Mid(Date$, 4, 2) & Mid(Date$, 7, 4)
 empfaenger = Range("Z_Titelblatt_Kunde")
 pfad = ActiveWorkbook.Path
 
      FileSaveName = Application.GetSaveAsFilename _
            (InitialFileName:=pfad & "\Checkliste_" & empfaenger & "_" & datum, _
FileFilter:="EXCEL-Tabelle (*.xls), *.xls ,pdf datei (*.pdf),*.pdf")
If FileSaveName <> False Then
        Select Case LCase$(Right$(FileSaveName, 3))
            Case "xls"
                ActiveSheet.SaveAs Filename:=InitialFileSaveName
            Case "pdf"
                'deine Druckroutine für PDF
For intCounter = 9 To Sheets.Count - 6
      Sheets(intCounter).Select False
   Next intCounter
 
 
 
 
 Application.ActivePrinter = "Adobe Pdf auf Ne07:"
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, printtofile:=True, PrToFileName:=InitialFileName, Collate:=True
 
 End Select
    End If
 
    On Error Resume Next 'Fehlerausgang, Weiter mit Löschen, wenn EMail abgelehnt wurde
  For a = 9 To Sheets.Count 'oder die Zahl bis wohin ausgeblendet werden soll
        Sheets(a).Visible = False
    Next a

voila quand je choisi enregistrer sous .xls il l enregistre comme ca (Checkliste _nom _date)
et quand je choisi enregistrer sous .pdf il l enregistre au nom du tout le fichier .moi je veux qu il l enregistre sous la meme forme que de .xls (checkliste_nom_date)


merci de votre aide

[ouskel'n'or]

Et en remplaçant InitialFileName par FileSaveName, non ?
A+

[nouha_79]

malheureusement non

est ce que personne n a une idee?

[ouskel'n'or]

Une idée ? Si : tu crées un variable

Code :

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

NomFichPdf = pfad & "\Checkliste_" & empfaenger & "_" & datum & ".pdf"

et tu mets

Code :

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

  ActiveWindow.SelectedSheets.PrintOut Copies:=1, printtofile:=True, PrToFileName:=NomFichPdf, Collate:=True

Tu vérifies que l'extension est nécessaire, il est possible que le fait "d'imprimer" sur "Adobe Pdf" l'ajoute automatiquement.
Tu dis
A+

[nouha_79]

malheureusement ca marche pas avec le code que tu m a donner?

[nouha_79]

voila merci j ai resolu le probleme de date maintenant j ai un autre probleme ,moi j ai dans le programm quand je veux imprimer les feuilles la mise en page dela feuille il ya (le numero de la page ,la date),mais quand je l es enregistre sous un pdf envoie toute la feuille mais il ya une date ancienne pas la date aktuelle ?comment je peux changer mon code ? le probleme s y pose rien quand je l enregistre sous un pdf.


merci