Changement macro PDf en XLS

Bonjour,

J'ai une macro qui fonctionne parfaitement qui m'enregistre ma page en .pdf, sauf que maintenant tout à changer et au lieu que ce soit un pdf sa doit être en fichier excel...

Voici la macro

Option Explicit
Sub enregistrer()
Dim nompdf As String

On Error GoTo erreur

    nompdf = "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\OTD clients mensuel\" & Range("E15").Value & "_" & Range("E19").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub

Que faut-il changer? "Type:=xlTypePDF," ; "Filename:=nompdf & ".pdf","??

Help merci

Bonjour,

ActiveSheet.SaveAs nompdf & ".xlsx", xlOpenXMLWorkbook

Cordialement.

Bonjour,

Merci de vais essayer!

Re,

J'ai cette fenêtre qui apparaît quand j’exécute la macro.

(pièce jointe)

Cordialement.

Un autre problème, lorsque je clique sur "oui" il enregistre toutes les feuilles de mon classeur or je veux qu'il enregistre juste la feuille active..

Merci

Petit Up

Bonjour,

à tester :

    nomf = "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\OTD clients mensuel\" & Range("E15").Value & "_" & Range("E19").Value & ".xlsx"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=nomf, FileFormat:=xlOpenXMLWorkbook

eric

Bonjour,

Eric a rectifié le tir, je vois . Reste plus que le message d'alerte : pour cela tu places avant :

Application.DisplayAlerts = False

Cordialement.

Bonjour,

Désolé de la réponse tardive.

Sa fonctionne parfaitement merci beaucoup à tous!

Re bonjour à tous,

Petit ajout, comment faire pour que le fichier se ferme tout seul? Car il reste ouvert et sa m’ennuie

Option Explicit
Sub enregistrer()
Dim nomf As String
Application.DisplayAlerts = False
On Error GoTo erreur

    nomf = ThisWorkbook.Path & "\" & Range("E15").Value & "_" & Range("E19").Value & ".xlsx"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=nomf, FileFormat:=xlOpenXMLWorkbook

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub

Merci d'avance !!!

PS: je pense que je vais encore avoir besoin d'aide...

Bonjour,

je dirai ActiveWorkbook.close

eric

Bonjour

Ah oui pas con Merci eriiic