XL 2010 besoin d'aide

[Youn€s]

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

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

 

[Hasco]

Bonjour,

Ce que je vois :
1 - il manque un e dans filname:= . Correction FileName:=
2 - il manque certainement .Path après ThisWorkbook

.SaveAs FileName:=ThisWorkbook.Path & "\" & Range("A2")

Cordialement

 

[Youn€s]

Bonjour,

Ce que je vois :
1 - il manque un e dans filname:= . Correction FileName:=
2 - il manque certainement .Path après ThisWorkbook

.SaveAs FileName:=ThisWorkbook.Path & "\" & Range("A2")

Cordialement

effectivement j'ai corrigé les erreurs que vous avez m'indiquer mais après exécution du macro il s’apparaître le message suivant
-impossible d’exécuter la macro il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées

jai deja activer les macros

 

[TooFatBoy]

Bonjour,

Apparemment tu essayes d'exécuter la macro Elipse_Clic qui se trouve dans le classeur YOUNES NOTE - Copie1.
Reste à savoir si c'est le bon classeur... 😉