Enregistrement auto par bouton

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #16

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

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 7 Mars 2008

• #17

Re : Enregistrement auto par bouton

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

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #18

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

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #19

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

 

Dernière édition: 7 Mars 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 7 Mars 2008

• #20

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 :

Code:

ActiveWorkbook.Close

soit revenir sur ton classeur :

Code:

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

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #21

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 7 Mars 2008

• #22

Re : Enregistrement auto par bouton

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

 

Pièces jointes

• essaisauvauto.zip

  13.6 KB · Affichages: 25
• essaisauvauto.zip

  13.6 KB · Affichages: 21
• essaisauvauto.zip

  13.6 KB · Affichages: 27

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #23

Re : Enregistrement auto par bouton

Bhbh, Joss,

C'est parfait ca marche,

Merci bcp

Manu

 

Vote positif 0 Vote négatif