XL 2010 besoin d'aide

Youn€s

XLDnaute Nouveau
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



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
 

Hasco

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Nouveau
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
 

Pièces jointes

  • options-parametres-activation-macros-excel-2007.png
    options-parametres-activation-macros-excel-2007.png
    11.3 KB · Affichages: 20
  • Capture.PNG
    Capture.PNG
    26.5 KB · Affichages: 19
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088