finaliser macro

[fenec]

bonjour au forum

J’utilise en ce moment cette macro qui fonctionne très bien mais je ne parviens pas à la modifier pour que cette macro enregistre mon classeur en temps que modèle.

ActiveWorkbook.SaveAs Filename:="C:\Users\Philippe\Documents\Dossiers en cour\" & [E17].Value & ".xls"

Workbooks.Open Filename:= _
"C:\Users\Philippe\Documents\Devis.xls"
End Sub
Merci de vos lumières

 

[tbft]

Re : finaliser macro

bonjour

as tu essayé avec l'extension xlt ???

 

[fenec]

Re : finaliser macro

bonjour tbft

merci n'y avais pas pensé ,que je suis bête
encore merci

a+

 

[Pierrot93]

Re : finaliser macro

Bonjour,

essaye peut être ainsi :

ActiveWorkbook.SaveAs Filename:="C:\Users\Philippe\Documents\Dossiers en cour\" _
    & [E17].Value, FileFormat:=xlTemplate

bon après midi
@+

 

[tbft]

Re : finaliser macro

Re

Dis moi si cela fonctionne!!

 

[Pierrot93]

Re : finaliser macro

Re,

Re

Dis moi si cela fonctionne!!

Aarf🙂, cela serait etonnant en l'état sans préciser le format...

 

[tbft]

Re : finaliser macro

Coucou tout le monde

Je viens de faire un essai avec
ActiveWorkbook.SaveAs "d:\toto.xlt", xlTemplate

et ça marche.....

 

[fenec]

Re : finaliser macro

re,
ca marche super

modifier ainsi:

ActiveWorkbook.SaveAs Filename:="C:\Users\Philippe\Documents\Dossiers en cour\" & [E17].Value & ".xlt"

Workbooks.Open Filename:= _
"C:\Users\Philippe\Documents\Devis.xls"
End Sub


pas le temps d'essayé tout de suite ta solution Aujourd'hui 17h04
Pierrot93 mais te tiens au courant

j'essaie ce soir en rentrant

a+ et encore merci

 

[Pierrot93]

Re : finaliser macro

Coucou tout le monde

Je viens de faire un essai avec
ActiveWorkbook.SaveAs "d:\toto.xlt", xlTemplate

et ça marche.....

oui, avec le format xlTemplate...

Edition : bon à priori cela fonctionne aussi sans (la précision du format)