Enregistrement avec identifcation

Bonjour à tous,

Je suis nouveau sur ce forum et j'ai une question sur une macro.

Je suis novice dans le programmation VBA et j'aimerai faire un enregistrement à partir de de plusieurs cellules (2 cellules).

J'ai déjà essayé de codé en cherchant sur internet mais sans réussite ....

Voici le code que j'ai gentiment recopié sur un forum mais sans la moindre action derrière.

Objectif:

Faire un enregistrer sous avec le contenu de deux cellules (C4+D5). Ce fichier servira pour une production donc avec une limitation de manipulation du fichier.

Code:

Sub Archivage()

'déclaration des variables

Dim NomDossier As String

Dim CheminDossier As String

On Error GoTo 1 'Gestion des erreurs

Application.DisplayAlerts = False

If Range("C4").Value = "" Then

MsgBox "***Attention*** Vous avez pas saisie le nom du client." & vbCrLf & _

"Merci de faire le necessaire avant de réaliser la sauvegarde.", vbOKOnly + vbInformation, "SAUVEGARDE"

Range("C4").Select

Else 'SINON

With ActiveWorkbook 'Enregistrement du classeur portant le nom de la cellule C4

.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("C4"), FileFormat:=xlOpenXMLWordkbook

End With

MsgBox "Votre formulaire au nom [" & Range("C4") & "] a bien été enregistré dans votre dossier " & vbCrLf & _

Sheets("Fiche Renseignement").Shapes("Bonton").Delete

End If

Application.DisplayAlerts = True

1

End Sub

Voici mon fichier excel en pièce jointe.

Bonjour,

vous pouvez vous référer à la page suivante pour choisir un xlfileformat existant.

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/xlfileformat-enumeration-excel

Bonjour,

Merci pour ta réponse SabV mais je ne vois pas bien le rapport avec mon problème ...

Peux-tu m'en dire un peu plus s'il te plait.

Simon

extrait de votre code,

.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("C4"), FileFormat:=xlOpenXMLWordkbook

xlOpenXMLWordkbook n'exsiste pas, voulez-vous enregistrer votre fichier avec l'extention .xlsm

Objectif:

Faire un enregistrer sous avec le contenu de deux cellules (C4+D5)

il faudrait vérifier le contenu des 2 cellules,

nom =Range("C4").Value & Range("D4").Value
If nom = "" Then
'...
Else 'SINON
With ActiveWorkbook 'Enregistrement du classeur portant le nom de la cellule C4
.SaveAs Filename:=ThisWorkbook.Path & "\" & nom, FileFormat:=xlOpenXMLWorkbookMacroEnabled   ' avec l'extention xlsm
End With