Besoin aide VBA fonction Save As

K

kjin

XLDnaute Barbatruc

• 23 Décembre 2013

• #2

Re : Besoin aide VBA fonction Save As

bonsoir,

Code:

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 24 Décembre 2013

• #3

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:

Code:

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

 

Vote positif 0 Vote négatif

D

Djbs

XLDnaute Nouveau

• 26 Décembre 2013

• #4

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 26 Décembre 2013

• #5

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #6

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?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #7

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.

Cliquez pour agrandir...

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

Code:

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

 

Dernière édition: 26 Décembre 2013

Vote positif 0 Vote négatif

D

Djbs

XLDnaute Nouveau

• 26 Décembre 2013

• #8

Re : Besoin aide VBA fonction Save As

Voila !

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

Merci d'avance

[Edite PJ]

 

Pièces jointes

• Test Devis.xls

  89 KB · Affichages: 47
• Test Devis.xls

  89 KB · Affichages: 53
• Test Devis.xls

  89 KB · Affichages: 54

Dernière édition: 26 Décembre 2013

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #9

Re : Besoin aide VBA fonction Save As

Re


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

 

Vote positif 0 Vote négatif

D

Djbs

XLDnaute Nouveau

• 26 Décembre 2013

• #10

Re : Besoin aide VBA fonction Save As

Staple1600 à dit:

Re


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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #11

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,...

Cliquez pour agrandir...

et ce déjà depuis 3 jours 😉

 

Dernière édition: 26 Décembre 2013

Vote positif 0 Vote négatif

D

Djbs

XLDnaute Nouveau

• 26 Décembre 2013

• #12

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. 🙁

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #13

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)

 

Vote positif 0 Vote négatif

D

Djbs

XLDnaute Nouveau

• 26 Décembre 2013

• #14

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #15

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.

Cliquez pour agrandir...

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.

 

Dernière édition: 26 Décembre 2013

Vote positif 0 Vote négatif