chaelie2015
XLDnaute Accro
Bonjour Forum
Ce code est conçu pour être associé à un bouton dans ma feuille de calcul 'Récap'. Lorsqu'il est exécuté, il prend le nom de la cellule M2 comme base pour nommer le nouveau fichier , enregistre ce fichier dans le même répertoire que le classeur actif, et informe l'utilisateur du résultat de l'opération.
Malheureusement, il enregistre le fichier au format PDF, mais ce que je souhaite, c'est l'enregistrer au format .xlsm, c'est-à-dire en tant que classeur Excel complet.
merci
VB:
Sub Enregistrer_Copie()
Dim NomFichierEXCEL As String
Dim Nom As String
Nom = Range("M2").value
NomFichierEXCEL = "Evaluation CEO-" & Nom & ".xlsm"
NomFichierEXCEL = ThisWorkbook.Path & "\" & NomFichierEXCEL
NomFichier = Split(NomFichierEXCEL, "\")(UBound(Split(NomFichierEXCEL, "\")))
If Dir(NomFichierEXCEL) <> "" Then
If MsgBox("Le fichier EXCEL " & NomFichier & " existe déjà. Voulez-vous le remplacer ?", vbYesNo + vbQuestion) = vbNo Then
Exit Sub
End If
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypexlsm, Filename:=NomFichierEXCEL, Quality:=xlQualityStandard
MsgBox "Un nouveau fichier EXCEL nommé " & vbCrLf & vbCrLf & NomFichier & vbCrLf & vbCrLf & " a été enregistré dans le répertoire " & vbCrLf & vbCrLf & ThisWorkbook.Path & "."
End SubMalheureusement, il enregistre le fichier au format PDF, mais ce que je souhaite, c'est l'enregistrer au format .xlsm, c'est-à-dire en tant que classeur Excel complet.
merci