enregistrement classeur xlsm

[julie999]

bonjour j'utilise une macro pour sauvegarder plusieurs documents dans chaque dossier specifique
les 3 premier code marche sans probleme
et le dernier qui est en xlsm bloque sur ce que j'ai souligné
et en plus j'ai un message disant:
Les fonctionnalite suivantes ne peuvent etre enregistrees dans les classeurs sans macro.......

comment corrigé et ne plus avoir ce message
le nom de mon fichier final devrait etre:Reporting Photobox du(avec date en l1 de la feuille reporting complet)


voivi le code
Sheets("Way Bill Arvato").Copy
ChDir "C:\Archives photobox\WAY BILL Arvato"
ActiveWorkbook.SaveAs chemin & "WAY BILL Arvato du " & _
Format(Worksheets("Way Bill Arvato").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close

Sheets("Way Bill Londres").Copy
ChDir "C:\Archives photobox\WAY BILL LONDRES"
ActiveWorkbook.SaveAs chemin & "WAY BILL Londres du " & _
Format(Worksheets("Way Bill Londres").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close

Sheets("Way Bill Sartrouville").Copy
ChDir "C:\Archives photobox\WAY BILL SARTROUVILLE"
ActiveWorkbook.SaveAs chemin & "WAY BILL Sartrouville du " & _
Format(Worksheets("Way Bill Sartrouville").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close

Sheets(Array("Reporting palettes par mois", "Reporting complet")).Copy
ChDir "C:\Archives photobox\Archives reporting"
ActiveWorkbook.SaveAs chemin & "Reporting Photobox du " & _
Format(Worksheets("Reporting complet").Range("L1"), "d\-mm\-yyyy") & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.Close

merci julie

 

[vgendron]

Re : enregistrement classeur xlsm

Bonjour,
le fichier qui contient ta macro doit etre enregistré au format xlsm (m comme macro)
voila; c'est aussi simple que ca

 

[julie999]

Re : enregistrement classeur xlsm

bonjour vgendron ,le fil
je ne comprend pas il y est le m pourtant

ActiveWorkbook.SaveAs chemin & "Reporting Photobox du " & _
Format(Worksheets("Reporting complet").Range("L1"), "d\-mm\-yyyy") & ".xlsm"

 

[Papou-net]

Re : enregistrement classeur xlsm

Bonjour julie999, vgendron, le Forum,

Le format de fichier spécifié est bien ".xlsm", donc je pense que le problème ne vient pas de là.

Par contre, je regarderais plutôt du côté du format de la date : les "\-" me surprennent un peu.

Il ne faut pas toujours se fier aux messages d'erreur de VBA, ils sont parfois un peu erratiques quant à l'origine du problème.

Cordialement.

 

[vgendron]

Re : enregistrement classeur xlsm

parce que apparemment la syntaxe pour un xlsm n'est pas la meme que pour un xls: en regardant ce que donne l'enregistreur de macro :
il doit te manquer la partie xlOpenXMLWorkbookMacroEnabled ??

ActiveWorkbook.SaveAs Filename:= "chemin complet.xlsm", FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[julie999]

Re : enregistrement classeur xlsm

re le fil

avec ce code ça fonctionne, je n'ai plus le message d'erreur mais par contre il faudrait que je rajoute soit la date en cellule L1 de la feuille reporting complet par exemple (25/12/20012) ou la date systeme
pour avoir un nom de fichier :Archives photobox du 25/12/20012

voici le code
Sheets(Array("Reporting palettes par mois", "Reporting complet")).Copy
ActiveWorkbook.SaveAs Filename:="C:\Archives photobox\Archives reporting\Archives photobox du .xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.Close

ou dois je ajouter le code manquant??

Julie

 

[vgendron]

Re : enregistrement classeur xlsm

Je dirais..

NomCompletFichier="C:\Archives photobox\Archives reporting\Archives photobox du " &range("L1").value &".xlsm"
Sheets(Array("Reporting palettes par mois", "Reporting complet")).Copy
ActiveWorkbook.SaveAs Filename:=NomCompletFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.Close


à essayer

 

[Gelinotte]

Re : enregistrement classeur xlsm

Bonjour,

Peut-être ainsi :

 Sheets(Array("Reporting palettes par mois", "Reporting complet")).Copy
 ChDir "C:\Archives photobox\Archives reporting"
 
 Application.DisplayAlerts = False
 
 ActiveWorkbook.SaveAs Filename:=chemin & "Reporting Photobox du " & _
 Format(Worksheets("Reporting complet").Range("L1"), "d\-mm\-yyyy") & ".xlsm", _
 FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
 ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
 ActiveWindow.Close

G

 

[julie999]

Re : enregistrement classeur xlsm

re le fil
merci de votre aide problème résolu
garce au code de gelinotte

bon et joyeux noël pour tous
Julie

 

[julie999]

Re : enregistrement classeur xlsm

re le fil
je désire employé un code trouver sur ce forum pour éviter le message indiquant q'un fichier existe déjà et qu'il faut l’écrase
j'aimerais une information pour bien l'employé

voici le code trouver
Application.DisplayAlerts = False
wbexcel.SaveAs ("c:\Travail\xxx.xls")

et voici mon code
Sheets("Cross Docking").Copy
ChDir "C:\Archives photobox\Cross Docking"
ActiveWorkbook.SaveAs chemin & "Cross Docking du " & _
Format(Worksheets("Cross Docking").Range("a4"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close

ou dois je le placer
travail est le chemin et xxx le nom du classeur est cela si j'ai bien comprix
qui peux me renseigner
merci Julie

 

[vgendron]

Re : enregistrement classeur xlsm

à priori, je le mettrais entre ton ChDir et le ActiveWorkbook.saveas
à essayer

 

[Gelinotte]

Re : enregistrement classeur xlsm

Bonsoir,

Ce code n'est pas bon, car il contient une information non pertinente ...

Application.DisplayAlerts = False 
 wbexcel.SaveAs ("c:\Travail\xxx.xls")

Seule la première ligne est nécessaire pour empêcher le message d'alerte quand le fichier existe déjà.
Si tu le places avant l'enregistrement, tel que dans le code du post #8, ça devrait fonctionner correctement.

Application.DisplayAlerts = False

G

 

[julie999]

Re : enregistrement classeur xlsm

bonjour gelinotte,le fil
en effet placer comme tu le il suffit a supprimer le message le message indiquant q'un fichier existe déjà et qu'il faut l’écrase
mais j'ai encore un autre message en ouvrant celui qui a été sauvegarde
le fichier que vous ouvré est différent de celui........... une idée pour eviter celuici
Julie

 

[Gelinotte]

Re : enregistrement classeur xlsm

Bonsoir,

Une petite coquille dans le code, il manque un x pour le format .xlsx (valide pour Excel 2007, 2010 et 2013)

Format(Worksheets("Cross Docking").Range("a4"), "d\-mm\-yyyy") & ".xlsx"

G

 

[julie999]

Re : enregistrement classeur xlsm

oui gelinotte
encore un point de plus
quel est le jour ou tu donne des cours
pour le xslm on le modifie pas celui la
Julie