Bonjour à tous
J'ai besoin d'un code VBA pour pouvoir enregistrer une feuille excel dans un dossier avec le nom d'une cellule
J'ai déjà essayé avec ce code mais une erreur apparaître
Erreur de compilation argument nommé introuvable
voila le code que j'ai utilise lorsque le message s’apparaître le mot filname=: avec remplissage
J'ai besoin d'un code VBA pour pouvoir enregistrer une feuille excel dans un dossier avec le nom d'une cellule
J'ai déjà essayé avec ce code mais une erreur apparaître
Erreur de compilation argument nommé introuvable
voila le code que j'ai utilise lorsque le message s’apparaître le mot filname=: avec remplissage
VB:
Sub archivage()
'declaration des variables
Dim NomDossier As String
Dim CheminDossier As String
On Error GoTo 1 'gestion des erreurs
Application.DisplayAlerts = False 'on désactive les messages d'alerte
If Range("A2").Value = "" Then 'on teste que le nom du client a bien été saisie ou pas
MsgBox "attention vous n'avez pas saisie le nom du client." & vbCrLf & _
"merci de faire le necessaire avant de realiser la sauvegarde", vbOKOnly + vbInformation, "sauvegade formulle"
Else 'sinon
With ActiveWorkbook 'enregistrement du classeur portant le nom de la cellule A2
.SaveAs filname:=ThisWorkbook & "\" & Range("A2"), FileFormat:=xlOpenXMLWorkbook
End With
'onafficheun messageinformant que le fechier a bien été sauvegardé.
MsgBox "votre formilaire au nom [ " & Range("A2") & " ] a bien été enregistré dans votre dossier"
Sheets("Fiche renseignement").Shapes("bouton").Delete
End If
Application.DisplayAlerts = True 'on reactive la gestion des alertes
1
End Sub