Enregistrement auto par bouton

[Manu62]

Bonjour le forum,

Je voudrais automatisé un enregistrement automatique.

J'ai expliqué cela dans le fichier joint

Merci de votre aide

Bien cordialement

Manu

 

[Manu62]

Re : Enregistrement auto par bouton

Joss, bhbh

Bizarre, mais quand j'enleve cela : Sheets("Imprim").Copy
ca marche

mais quand je le remets boom...

J'ai essaye le code de bhbh ca ne veux pas non plus.

De Plus Peux t'on revenir au fichier d'origine lorsque l'on enregistre ?

Merci

Manu

 

[joss56]

Re : Enregistrement auto par bouton

oui, bien sûr, si tu fais SaveAs (id enregistrer sous), tu conserves le fichier d'origine.

 

[Manu62]

Re : Enregistrement auto par bouton

Bhbh,

tu dis :

Sub Bouton1_Clic()
madate = Replace([D2], "/", "_")
mon_nom = [D4]
Sheets("Imprim").Copy
ActiveWorkbook.SaveAs "C:\" & madate & mon_nom & ".xls"
End Sub

madate et nom-nom c'est bien le nom de la zone définie ?


Manu

 

[Manu62]

Re : Enregistrement auto par bouton

Joss, bhbh

Pour saveas oui, j'avais compris. Mais en fait, si'il enregistre en 01-01-08 DUPONT, je veux revenir sur mon fichier de depart essai...

Faut'il pas adapter cela Sheets("Imprim").Copy
Je bloque a ce niveau.


MAnu

Bon app

 

[Cousinhub]

Re : Enregistrement auto par bouton

Re-, passe la macro en mode pas-à-pas, (F8), et passe ta souris sur les noms indiqués, tu auras les valeurs
pour revenir sur ton classeur origine, tu peux soit fermer le nouveau classeur :

ActiveWorkbook.Close

soit revenir sur ton classeur :

Sub Bouton1_Clic()
mon_wbk = ActiveWorkbook.Name
madate = Replace([D2], "/", "_")
mon_nom = [D4]
Sheets("Imprim").Copy
ActiveWorkbook.SaveAs "C:\" & madate & mon_nom & ".xls"
Windows(mon_wbk).Activate
End Sub

 

[Manu62]

Re : Enregistrement auto par bouton

Bhbh,

Je dois rien comprendre a mon avis.

Peux tu le mettre dans mon fichier et me le poster ?

Manu

 

[Cousinhub]

Re : Enregistrement auto par bouton

Re-,
ton fichier
j'ai rajouté un "_" entre la date et le nom

 

[Manu62]

Re : Enregistrement auto par bouton

Bhbh, Joss,

C'est parfait ca marche,

Merci bcp

Manu