enregistrement fichier en xls avec office 2010

[julie999]

bonjour
j(utilise un code pour l'enregistrement d'une feuille dans un nouveau classeur qui fonctionner bien par contre dans mon entreprise ils ont passé de office 2003 a office 2010
et maintenant a chaque fois j'ai ce message:
"Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro...."


voici le code que j'utilise :
Sheets("direct link").Select
Sheets("direct link").Copy
ChDir "C:\Documents and Settings\as400\Bureau\Archives Way Bill"
ActiveWorkbook.SaveAs chemin & "Way Bill " & _
Format(Worksheets("direct link").Range("c15"), "d\-mm\-yyyy") & ".xls"


MsgBox " le fichier a été sauvegardé "
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("direct link").Select
Range("C15").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveSheet.Protect "photobox"
Range("F19,I19,L19,E20,H20,K20,F22,I22,L22,E23,H23,K23,D25:L28").Select
Range("D25").Activate
Selection.ClearContents
Range("O19,N20,O22,N23,M25:O29").Select
Range("M25").Activate
Selection.ClearContents
Range("D27:O30").Select
Selection.ClearContents
Range("D25:F25").Select
ActiveWorkbook.Save
End Sub

quand je fait l'enregistreur de macro avec office 2010 il me donne le code avec file name et avec 2003 le code chemin

y aurait il une personne qui sait me corriger cette erreur

merci Justine

je souhaite que cette feuiile s'enregistre en classeur xls sans macro mais avec office 2010

 

[Compte Supprimé 979]

Re : enregistrement fichier en xls avec office 2010

Bonjour le fil

Pour avoir un nom de fichier valide

Function NomFichierValide(sChaine As String)
  With CreateObject("VBScript.RegExp")
    .Pattern = "\W"
    .Global = True
    NomFichierValide = .Replace(sChaine, "")
  End With
End Function

A+

 

[MJ13]

Re : enregistrement fichier en xls avec office 2010

Bonjour à tous

Merci Bruno pour ce code qui doit bien plaire à Jean-Noël (avec son reggae pour les experts ).

Julie: Ce qu'on demande aux gens qui viennent se faire aider, c'est au moins de donner la solution qu'ils ont adopté (en plus cela peut servir à d'autres) et qui fonctionne sinon, à quoi cela sert qu'XLD se décarcasse .

 

[julie999]

Re : enregistrement fichier en xls avec office 2010

ChDir "C:\Users\david\Desktop\Archives Way Bill"
ActiveWorkbook.SaveAs chemin & "Way Bill du " & _
Format(Worksheets("direct link").Range("c15"), "d\-mm\-yyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[MJ13]

Re : enregistrement fichier en xls avec office 2010

Re

ChDir "C:\Users\david\Desktop\Archives Way Bill"
ActiveWorkbook.SaveAs chemin & "Way Bill du " & _
Format(Worksheets("direct link").Range("c15"), "d\-mm\-yyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Merci .