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

XL 2013 Sauvegarde fichier sous.

murainesouspatate

XLDnaute Occasionnel
Bonjour, je suis actuellement à cours d'idée, j'ai un classeur avec une feuille "Devis" et une autre "Devis divers".
l'orsque je souhaite enregistrer un devis, j'arrive à l'exporter en fichier xlsm dans le dossier cible, cela marche pour le fichier "Devis" mais ça bogue sur pour le fichier "Devis divers".
Je demande à ce que le fichier s'enregistre avec le nom (composé du numéro et du nom client).
avec le fichier "devis " tout marche à merveille mais l'autre non.
Pourriez- vous m'éclairer sur mon erreur ?

voici une partie du code pour le fichier "Devis" qui fonctionne:

Sub SauvegardeDevisCMF()

'Export devis format xlsm

'désactivation de l'affichage écran pour gagner en rapidité
Application.ScreenUpdating = False

info1 = Sheets("Devis").Range("E6")
info2 = Sheets("Devis").Range("F1")

Nom = ("Devis N° ") & info1 & " " & info2

'Export devis format xlsm
Sheets("Devis").Select
Sheets("Devis").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Master\Desktop\CMF\DEVIS\" & Nom & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
**************************************************
voici une partie du code pour le fichier "Devis divers" qui bogue:

Sub SauvegardeDevisdiversCMF()

'Export devis format xlsm

'désactivation de l'affichage écran pour gagner en rapidité
Application.ScreenUpdating = False

info1 = Sheets("Devis divers").Range("E6")
info2 = Sheets("Devis divers").Range("F1")

Nom = ("Devis N° ") & info1 & " " & info2

'Export devis format xlsm
Sheets("Devis divers").Select
Sheets("Devis divers").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Master\Desktop\CMF\DEVIS\" & Nom & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

**************************************************
si j'enlève l'info2, ça marche. j'ai beau me creuser la tête, je ne vois pas ou ça pêche.
Merci de vos réponses.
Cordialement.
 

murainesouspatate

XLDnaute Occasionnel
Bonjour dieu08,
le fichier est très lourd ( 3Mo) et contient des macro Personal XLSB. Je viens de solutionner le problème depuis dimanche.En fait cela viens uniquement du changement de nom client, si je mets un client différent du précédent , cela fonctionne à merveille. Comme à chaque devis est attribué un nom différent , du coup cela tombe bien.
Je te remercie quand même pour ton aide.
à bientôt à tous et bonne journée......
 

Jacky67

XLDnaute Barbatruc
Bonjour,
Il faut penser à fermer le fichier enregistré avant de continuer
ActiveWorkbook.Close False
Ps:
Sheets("Devis divers").Select==> inutile
& ".xlsm", ==> inutile
Puisque spécifié avec l'instruction "xlOpenXMLWorkbookMacroEnabled"
 
Dernière édition:

Discussions similaires

Réponses
5
Affichages
326
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…