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

Discussions similaires

Réponses
5
Affichages
414

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson