Jeff67170
Messages postés1Date d'inscriptionjeudi 4 juin 2009StatutMembreDernière intervention 5 juin 2009
-
5 juin 2009 à 12:51
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
5 juin 2009 à 15:57
Bonjour
Voilà je voudrais enregistrer sous un autre nom le classeur
'Recherche du nom du Fichier
Sheets("Feuil1").Select
chemin = Range("DQ14").Value
'Sauvegarde du fichier
Sheets("Ordre de fabrication").Select
Range("J6").Value = Numero_commande
'Configuration sauvegarde fichier'
Sheets("Feuil1").Select
nom = Range("DQ14").Value & ".xlsm"
ActiveWorkbook.SaveAs Filename:=Range("DQ12") & nom, FileFormat:=xlsm, Password:=(""), WriteResPassword:=(""), ReadOnlyRecommended:=False, CreateBackup:=False
Ce qui est en rouge, il me dit qu'il y a un bogage : "la méthode 'SaveAs' de l'objet '_Workbook' à échoué