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

 

[kjin]

Re : Besoin aide VBA fonction Save As

bonsoir,

Sub Save()
Dim CDir$
Dim NomFichier$
Dim NomCompletFichier$
Dim Grp$
Dim datesejour$
Dim Dossier$

CDir = ActiveWorkbook.Path

With Sheets("Base devis")
    Grp = .Range("B6").Value
    datesejour = .Range("N1").Value
    Dossier = .Range("N2").Value
End With

NomFichier = Grp & "_" & datesejour
NomCompletFichier = CDir & "\" & Dossier & "\" & NomFichier & ".xlsx" 'ou .xls,...

With Sheets("Devis")
    .Visible = True
    .Copy
End With
With ActiveWorkbook
    .SaveAs NomCompletFichier
    .Close
End With

MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomCompletFichier
    
End Sub

A+
kjin

 

[MJ13]

Re : Besoin aide VBA fonction Save As

Bonjour Djbs, Kjin

Juste un détail pour la sauvegarde suivant le format, il est préférable de renseigner le type de fichier sans mettre l'extension. L'extension sera rajoutée automatiquement (voir dans l'aide).

ex:

Sub sauve()
ActiveWorkbook.SaveAs "C:\Temp\Test", FileFormat:=52 '51 xlsx '52 xlsm
End Sub

 

[Djbs]

Re : Besoin aide VBA fonction Save As

Merci à vous deux pour les améliorations que vous avez apportés au code.
Mais malheureusement, quand j’exécute la macro il m'affiche toujours le même message d'erreur 🙁

Vous voulez que je mette le fichier en ligne pour voir si mon problème ne vient pas d'une autre partie ?

En vous souhaitant de bonnes fêtes de fin d'année.

 

[MJ13]

Re : Besoin aide VBA fonction Save As

Re

Vous voulez que je mette le fichier en ligne pour voir si mon problème ne vient pas d'une autre partie ?

Oui, avec un fichier tout simple, sans données confidentielles, ce sera plus simple pour que quelqu'un puisse te venir en aide.

 

[Staple1600]

Re : Besoin aide VBA fonction Save As

Bonjour à tous

Une petite correction à apporter
Sub Save()
'ici ton code
End Sub

Ensuite ajoute ceci pour tester ton path
juste après cette ligne
NomCompletFichier = ChDir & "\" & Dossier & "\" & NomFichier
Msgbox NomCompletFichier

Qu'affiche alors le MsgBox?

 

[Staple1600]

Re : Besoin aide VBA fonction Save As

Re

Tu as remarqué que kjin a changé le chdir en cdir pour la raison suivante

ChDir, instruction


Change le répertoire ou le dossier courant.
Syntaxe
ChDir path
L'argument path est une expression de chaîne identifiant le répertoire ou le dossier devenant le nouveau répertoire ou dossier par défaut. L'argument path peut préciser le lecteur. Si aucun lecteur n'est indiqué, ChDir change le répertoire ou le dossier par défaut du lecteur courant.

Ci dessous ta macro modifiée simplement pour tester le path
(donc qu'affiche le msgbox?)

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

 

[Djbs]

Re : Besoin aide VBA fonction Save As

Voila !

Par contre, je suis vraiment un amateur sur excel, soyez indulgent 😉.

Merci d'avance

[Edite PJ]

 

[Staple1600]

Re : Besoin aide VBA fonction Save As

Re


As-tu fait le test que je te demandais?
Si oui qu'affiche le MsgBox?

 

[Djbs]

Re : Besoin aide VBA fonction Save As

Re


As-tu fait le test que je te demandais?
Si oui qu'affiche le MsgBox?

Bonjour,

La msgBox affiche bien C:\User\Jean-Baptiste\Desktop\k\mai14\IUT_020514.
J'avais déjà fait le test avant d'appeler à l'aide 🙂. C'est pour ça que j'arrive pas à comprendre où ça coince car c'est bien l'endroit et le nom du fichier que je veux.

Merci pour votre aide.

 

[Staple1600]

Re : Besoin aide VBA fonction Save As

Re


Oui mais il manque l'extension de ton fichier.
Extension qui avait été ajouté dans la proposition faite par kjin ...

NomCompletFichier = CDir & "\" & Dossier & "\" & NomFichier & ".xlsx" 'ou .xls,...

et ce déjà depuis 3 jours 😉

 

[Djbs]

Re : Besoin aide VBA fonction Save As

J'avais mis l'extension mais j'ai oublié de le remettre avant de mettre le fichier en lien.

J'ai essayé avec .xls ou .xlsx et sans l'extension mais avec FileFormat:=51 ou 52 , j'ai le même message d'erreur. 🙁

 

[Staple1600]

Re : Besoin aide VBA fonction Save As

Re

Aucune des trois raisons indiquées par le message d'erreur ne sont "vraies"?
(voir ta copie d'écran de ton premier message)

 

[Djbs]

Re : Besoin aide VBA fonction Save As

Re,

Je me sens vraiment stupide, je viens de réussir à la faire marcher.

Je comprend pas très bien pourquoi mais la macro échoue si le dossier n'existe pas mais je penser qu'il le crée automatiquement car il la déjà fait lorsque j'ai fait des tests.
Je suis vraiment désolé de vous avoir fait chercher pour rien 🙁

Juste une dernière question et j’arrête de vous embêter. Peut on modifier la macro pour qu'elle crée automatiquement le dossier s'il n'existe pas?

Cordialement

 

[Staple1600]

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)

PS:

si le dossier n'existe pas mais je penser qu'il le crée automatiquement car il la déjà fait lorsque j'ai fait des tests.

Ce n'est pas possible si la création du dossier n'est implémenté dans le code de la macro.
Donc avec ta macro d'origine, jamais un dossier n'a pu être créé automatiquement s'il n'existait pas.