Besoin aide VBA fonction Save As

[Djbs]

Bonjour à tous,

Je suis débutant sur excel et je souhaite créer une macro afin de sauvegarder une fiche, mais elle ne fonctionne pas et m'affiche le message suivant :



Ça fait déjà plusieurs heures que je tourne en rond et je n'arrive toujours pas à trouver d'où vient mon erreur.

Ma macro est la suivante :

Sub Save()

    Sheets("Base devis").Select
    
    Dim ChDir As String
    Dim NomFichier As String
    Dim NomCompletFichier As String
    Dim Grp As String
    Dim datesejour As String
    Dim Dossier As String
    
    Grp = Range("B6").Value
    datesejour = Range("N1").Value
    Dossier = Range("N2").Value
        
    Sheets("Devis").Visible = True
    Sheets("Devis").Select
         
    ChDir = Application.ActiveWorkbook.Path
    NomFichier = Grp & "_" & datesejour
    NomCompletFichier = ChDir & "\" & Dossier & "\" & NomFichier
    
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=NomCompletFichier
    ActiveWorkbook.Close
    
    MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomCompletFichier
    
End Function

Les valeur des cellules sont les suivantes :
-B6 = IUT
-N1 = 020514
-N2 = janvier05

Pourriez vous m'aider à trouver l'erreur dans le code ???

Merci d'avance

 

[MJ13]

Re : Besoin aide VBA fonction Save As

Re

Pour la création de dossier regarde là (j'aime bien ma solution 😱).

https://www.excel-downloads.com/thr...istrer-un-fichier-portant-le-meme-nom.214267/

 

[Djbs]

Re : Besoin aide VBA fonction Save As

Re

Oui c'est possible avec MkDir (voir dans l'aide VBA)
Voir aussi différents exemples présents dans les archives du forum (en cliquant sur la loupe en haut à droite)

Merci,

Je vais faire des recherche en tout cas merci pour tous.

Bonne fêtes de fin d'année

 

[Staple1600]

Re : Besoin aide VBA fonction Save As

Re

Va voir dans le fil que cites MJ13 (que je resalue au passage mais cette fois-ci d'un bonsoir 😉), j'y ai posté quelque code VBA employant MkDir.

PS: Merci MJ13, j'avais oublié que j'étais passé dans ce fil 😉