XL 2013 Sauvegarde fichier sous.

[murainesouspatate]

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.

 

[dieu08]

Bonjour Muraine,

Serait-il possible d'avoir le fichier complet ? Ce serait plus simple pour réaliser des tests.

 

[murainesouspatate]

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

 

[dieu08]

C'est noté ! Ajoute un "résolu" dans l'objet du post ! Merci à toi !

 

[Jacky67]

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"