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
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
Pièces jointes
Dernière édition: