Problème macro excel enregistrement fichier

Bonjour à tous,

Etant débutant en macro excel, je rencontre un problème sur mon fichier.
Avec un collègue nous avons créé une macro permettant d'enregistrer une feuille sur un fichier comportant le nom d'une cellule or mon problème c'est que lorsque le fichier est déjà créé et comporte le nom de la cellule+d'autres infos avant, il ne copie pas ma feuille dedans et recréait un nouveau fichier comportant uniquement la cellule de la feuille.

C'est une petite modification à apporter mais je suis vraiment nul en excel...

Mon langage utilisé est le suivant:



Function RepertoireExiste(Chemin As String) As Boolean
On Error Resume Next
RepertoireExiste = GetAttr(Chemin) And vbDirectory
End Function


Sub enregistrer1()


If Not (RepertoireExiste("S:\S04-Station d'essais\S04AC-Prototype\20 - Méthodes\10 - Préparation dossiers\10 - Dossiers études R&D\" & Feuil1.Cells(44, 29))) Then
FileSystem.MkDir ("S:\S04-Station d'essais\S04AC-Prototype\20 - Méthodes\10 - Préparation dossiers\10 - Dossiers études R&D\" & Feuil1.Cells(44, 29))
End If

Feuil1.ExportAsFixedFormat xlTypePDF, "S:\S04-Station d'essais\S04AC-Prototype\20 - Méthodes\10 - Préparation dossiers\10 - Dossiers études R&D\" & Feuil1.Cells(44, 29) & "\" & "PC-HA15-" & Feuil3.Cells(7, 3), xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

'ActiveWorkbook.SaveAs "S:\S04-Station d'essais\S04AC-Prototype\20 - Méthodes\10 - Préparation dossiers\10 - Dossiers études R&D\" & Feuil3.Cells(19, 2) & "\" & "PC-HA15-" & Feuil3.Cells(7, 1) & ".xls"

End Sub



Merci d'avance.