Code VBA pour fermer feuille active et ouvrir application

bonjour,

voici mon code, je voudrais modifier ce code pour éviter une manip

Sub csv()
'
' csv Macro
'

'
ActiveWorkbook.Save
Sheets("lienpub").Select
ChDir "C:\Users\Utilisateur\Desktop\etiquettes\Etiquette Le Ramier"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Utilisateur\Desktop\etiquettes\Etiquette Le Ramier\produits.csv", _
FileFormat:=xlCSV, CreateBackup:=True



On Error GoTo csvErreur
Dim MonApplication As Object
Dim MonFichier As String
Set MonApplication = CreateObject("Shell.Application")

MonFichier = "C:\Users\Utilisateur\Desktop\etiquettes\Etiquette Le Ramier\Etiquette Le Ramier.pub"

' je pense que c'est ici je voudrais fermer la feuille enregistrée en csv et lancer mon application publisher

MonApplication.Open (MonFichier)


Set MonApplication = Nothing
Exit Sub

csvErreur:
Set MonApplication = Nothing
MsgBox "Erreur lors de l'ouverture de fichier..."


End Sub

merci pour votre aide

Bonjour,

A tester :

Sub OuvrirPublisher()

Dim PubApp As New Publisher.Application, DocPub As Publisher.Document
Dim Chemin As String

    On Error GoTo csvErreur

    Chemin = "C:\Users\Utilisateur\Desktop\etiquettes\Etiquette Le Ramier\produits.csv"
    Set PubApp = CreateObject("Publisher.Application")

    With PubApp
         .ActiveDocument.ConvertPublicationType (pbTypeWeb) ' Artifice pour rendre visible Publisher.
         Set DocPub = .Open(Chemin)
    End With

    'DocPub.Close
    'PubApp.Quit

    Set PubApp = Nothing: Set DocPub = Nothing

    Exit Sub

csvErreur:

    Set PubApp = Nothing: Set DocPub = Nothing
    'MsgBox "Erreur lors de l'ouverture de fichier..."

End Sub