Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème avec mon SaveAs

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tim_so
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tim_so

XLDnaute Nouveau
Bonjour tout le monde,

Je viens vers vous (encore j'y prends goût !!) parce que je suis sur ma macro depuis plus d'une semaine et là je pense qu'il est temps que je demande de l'aide.

J'ai un classeur avec 3 feuilles (Epicerie, Produits diet et Boissons), j'aimerais enregistrer chacune des 3 feuilles dans un nouveau classeur et les enregistrer toutes les 3 dans un nouveau dossier.

Mon nouveau dossier est bien créé, ma première feuille est bien copié dans un nouveau classeur avec son nom mais ça bloque à l'enregistrement. J'ai le message : Erreur d'exécution 1004 : la méthode SaveAs de l'objet _Workbook a échoué".

J'ai testé plusieurs solution trouvé sur internet, modifié certaines choses mais rien à faire. Mon chemin est bon puisque mon dossier se créé bien au bon endroit.

voici mon code :

Code: 
Sub Save_test()


'Enregistrement des différentes feuilles
        Dim chemin$
        ', Nomdossier$
        chemin = "\\srvsauvegard\sces_eco\Commun\Commande alimentaire\"
        Nomdossier = "Commande SEM " & Sheets("Epicerie").Range("B2").Value & " " & Sheets("Epicerie").Range("C2").Value & " " & Sheets("Epicerie").Range("D2").Value & " " & Sheets("Epicerie").Range("E2").Value & " " & Sheets("Epicerie").Range("F2").Value & " " & Sheets("Epicerie").Range("G2").Value
'Vérifie si le dossier existe, s'il existe, ne fait rien, sinon le créer
        If Dir(chemin & Nomdossier, vbDirectory) = "" Then MkDir chemin & Nomdossier
 'Enregistre chaque feuille dans le nouveau dossier
        Sheets("Epicerie").Copy
        ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Epicerie" & ".xlsx"
        Sheets("Epicerie").DrawingObjects.Delete
        Workbooks("Commande Epicerie.xlsx").Save
        ActiveWorkbook.Close
        Sheets("Boissons").Copy
        ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Boissons" & ".xlsx"
        ActiveWorkbook.Close
        Sheets("Produits diet").Copy
        ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Produits Diet" & ".xlsx"
        ActiveWorkbook.Close
    ThisWorkbook.Close savechanges:=False

End sub

J'espère que vous pourrez m'aider.
 
Trier par date Trier par votes
Re : Problème avec mon SaveAs

Merci pour la réponse rapide,

je viens de tester j'ai le même message.

Par contre je viens de me rendre compte que dans le code que j'ai affiché, j'ai fait une erreur (j'ai fait tellement de test que je ne l'ai pas remis correctement) le problème reste le même mais au moins je remets le bon code :

Code: 
Sub savetest()
'
' savetest Macro
'
'Enregistrement des différentes feuilles
        Dim chemin$, Nomdossier$
        chemin = "\\srvsauvegarde\sces_eco\Commun\Commande alimentaire\"
        Nomdossier = "Commande SEM " & Sheets("Epicerie").Range("B2").Value & " " & Sheets("Epicerie").Range("C2").Value & " " & Sheets("Epicerie").Range("D2").Value & " " & Sheets("Epicerie").Range("E2").Value & " " & Sheets("Epicerie").Range("F2").Value & " " & Sheets("Epicerie").Range("G2").Value
'Vérifie si le dossier existe, s'il existe, ne fait rien, sinon le créer
        If Dir(chemin & Nomdossier, vbDirectory) = "" Then MkDir chemin & Nomdossier
 'Enregistre chaque feuille dans le nouveau dossier
        Sheets("Epicerie").Copy
        ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Epicerie" & ".xlsx"
        Sheets("Epicerie").DrawingObjects.Delete
        Workbooks("Commande Epicerie.xlsx").Save
        ActiveWorkbook.Close
        Sheets("Boissons").Copy
        ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Boissons" & ".xlsx"
        ActiveWorkbook.Close
        Sheets("Produits diet").Copy
        ActiveWorkbook.SaveAs chemin & Nomdossier & "\" & "Commande Produits Diet" & ".xlsx"
        ActiveWorkbook.Close
    ThisWorkbook.Close savechanges:=False
    
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème avec mon SaveAs

Bon finalement, j'ai trouvé mon problème, j'ai un peu honte de venir dire d'où venait le problème mais bon ça peut peut-être servir à des débutants comme moi !!

Alors en fait dans mon "Nomdossier" je fais référence à des cellules, elles ne sont pas toujours remplies puisque les tableaux servent à faire des commandes de produits sur plusieurs semaines mais ça peut-être sur 4, 5 ou 6 semaines (et donc toutes les cellules ne sont pas remplies). Du coup mon dossier se créé bien mais l'enregistrement du fichier ne se fait pas. J'ai contourné le problème en notant le numéro des semaines dans une seule cellule !!!

Mais il existe peut-être (sûrement) quelque chose qui permette de dire que la cellule peut-être vide donc si quelqu'un a tout de même une solution pour que ça puisse fonctionner dans le cas ou une des cellules est vide je suis preneuse.
 
Vote positif 0 Vote négatif
Re : Problème avec mon SaveAs

Bonjour à tous,

Si nous avions eu ton fichier, nous aurions, peut-être, remarqué ce manque...

Un test d'erreur :
VB: 
If Application.WorksheetFunction.CountA(Sheets("Epicerie").[B2:G2]) <> 6 Then MsgBox "Il manque une ou des valeurs nécessaire(s) à la sauvegarde...", 0, "Oups!!!"
A + à tous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème avec mon SaveAs

Bonsoir


Pour infos: si tu veux simplifier ton code pour créer ton nom de dossier tu peux t'inspirer de ceci
Code: 
Sub test()
Dim nomdossier$, t
With Application: t = .Transpose(.Transpose([B2:G2])): End With
nomdossier = "Commande SEM " & Join(t, Chr(32))
MsgBox nomdossier
End Sub
 
Vote positif 0 Vote négatif
Re : Problème avec mon SaveAs

Bonjour,

C'est vrai JCGL, c'est ce que je me suis dit aussi pour le fichier. Je pensais que pour le coup il n'y en avait pas forcément besoin, la prochaine fois je ne me poserais pas la question !!!

Je vais tester vos deux codes en revenant de vacances (j'interviens dans deux établissements et aujourd'hui je n'ai pas mes fichiers pour pouvoir tester malheureusement).

En tout cas merci pour vos réponses.

bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
394
job75
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
690
loreak
L
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
488
firecarl
F
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
K
  • Question Question
Microsoft 365 Export PDF bouton macro + VBA
Réponses
6
Affichages
2 K
Kan
K
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
598
Quentin2106
Q
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
876
marie3107
M
S
  • Question Question
XL 2019 Macro VBA enregistrement pdf plusieurs onglets dans un sens précis
Réponses
11
Affichages
1 K
sofmat
S
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
771
GClaire
G
  • Question Question
XL 2016 Transfert feuilles vers nouveau classeur - Activation du contenu ?
Réponses
11
Affichages
931
job75
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
675
Pimpon974
P
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
821
Zon
Z
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
827
INFINITY100
I
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
1 K
macseb
M
I
  • Question Question
XL 2016 MACRO LENTE
Réponses
2
Affichages
910
ImNotJésus
I
Y
  • Question Question
XL 2010 besoin d'aide
Réponses
3
Affichages
717
TooFatBoy
L
  • Question Question
XL 2019 Erreur 1004 méthode 'SaveAs' de l'objet '_Workbook' a échoué
Réponses
13
Affichages
2 K
Dranreb
A
  • Résolu(e)
XL 2019 Fichier = Fichier
Réponses
4
Affichages
821
patricktoulon
O
  • Question Question
XL 2019 Copier dossier avec sous dossier
Réponses
2
Affichages
758
Olympe46
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…