Enregistrement auto par bouton

J

joss56

XLDnaute Accro

• 7 Mars 2008

• #2

Re : Enregistrement auto par bouton

Salut

essaye:

ActiveWorkBook.SaveAs "C:\" & sheets("masque").range("d2") & sheets("masque").range("d4") & ".xls"

A modifier si tu enregistre ailleurs que sur C: ou dans un répertoire de C:

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #3

Re : Enregistrement auto par bouton

Salut,

C'est nikel,

Peux enregistré qu'une seule feuille? et non tout le fichier ?

A+
Manu

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 7 Mars 2008

• #4

Re : Enregistrement auto par bouton

Bonjour,
pour n'enregistrer que la feuille "Imprim", rajoute cette ligne juste avant le code proposé par Joss :

Code:

Sheets("imprim").Copy
ActiveWorkbook.SaveAs "C:\" & Sheets("masque").Range("d2") & Sheets("masque").Range("d4") & ".xls"

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #5

Re : Enregistrement auto par bouton

Salut,

J'ai le message suivant :

"L'indice n'appartient pas à la sélection"

C'est quoi

Merci

Manu

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 7 Mars 2008

• #6

Re : Enregistrement auto par bouton

Re-,
vérifie le nom de la feuille

Code:

Sheets("[COLOR="Red"]imprim[/COLOR]").Copy

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 7 Mars 2008

• #7

Re : Enregistrement auto par bouton

tu fais appel à un objet (nom de feuille, nom de plage...)qui n'existe pas ou qui est (le plus souvent) orthographié différemment

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #8

Re : Enregistrement auto par bouton

A mon avis j'ai du mal en ce vendredi

Voilà mon code :
Sub Bouton1_Clic()
Sheets("imprim").Copy
ActiveWorkbook.SaveAs "c:\" & Sheets("masque").Range("date") & Sheets("masque").Range("nom") & ".xls"

End Sub

à la place de d2 & d4, j'ai mis un nom.

Quand je lance la macro, il me met le message d'erreur, et il m'ouvre un nouveau classeur.
Il ne l'enregistre pas !

ERREUR EXCEUTION "9"
"L'indice n'appartient pas à la sélection"

A vous lire

PS je suis en 2007

Manu

 

Vote positif 0 Vote négatif

J

jackyB

Guest

• 7 Mars 2008

• #9

Re : Enregistrement auto par bouton

Manu62 à dit:

Bonjour le forum,

Je voudrais automatisé un enregistrement automatique.

J'ai expliqué cela dans le fichier joint

Merci de votre aide

Bien cordialement

Manu

Cliquez pour agrandir...

Bonjour,

J'ai ajouté à l'intérieur du fichier une macro dont l'appel se fait par un bouton.

 

Pièces jointes

• essaisauvauto.zip

  17.1 KB · Affichages: 31
• essaisauvauto.zip

  17.1 KB · Affichages: 31
• essaisauvauto.zip

  17.1 KB · Affichages: 35

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 7 Mars 2008

• #10

Re : Enregistrement auto par bouton

essaye avec sheets("Masque") et non "masque" . Attention à l'orthographe, la casse et tout et tout...garde le moral, bonne journée

Joss

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #11

Re : Enregistrement auto par bouton

Bon ben je capitule

je met mon fichier

pouvez vous jeter un oeil

Meric bcp


MAnu

 

Pièces jointes

• essaisauvauto3.xls

  26.5 KB · Affichages: 58

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 7 Mars 2008

• #12

Re : Enregistrement auto par bouton

Je ne pige pas: il n'y a plus qu'une feuille dans ton classeur???
Peux-tu renvoyer le fichier d'origine

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 7 Mars 2008

• #13

Re : Enregistrement auto par bouton

Salut,

Ben oui j'ai ajouté cela avant
sheets("imprim").copy

cela pour qu'il sauvegarde que la page imprim

ci joint le fichier

Merci

manu

 

Pièces jointes

• essaisauvauto.xls

  41.5 KB · Affichages: 61
• essaisauvauto.xls

  41.5 KB · Affichages: 62
• essaisauvauto.xls

  41.5 KB · Affichages: 60

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 7 Mars 2008

• #14

Re : Enregistrement auto par bouton

Re-,
essaie avec ceci :

Code:

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

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 7 Mars 2008

• #15

Re : Enregistrement auto par bouton

C'est bien ça: remplace sheets("masque") par sheets("Masque") dans le code du bouton et tu n'auras plus le message "L'indice n'appartient pas à la sélection"

 

Vote positif 0 Vote négatif