Sauver les modifictions du compteur dans le fichier de base.

nyko283

XLDnaute Occasionnel

• 15 Octobre 2011

• #2

Re : Sauver les modifictions du compteur dans le fichier de base.

Bonjour Francis, le forum,

dans ta macro aucune ligne de code incrémente le numero du ticket alors en rajoutant 1 ligne après
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True

Range("C2").Value = Range("C2").Value + 1 ' ligne a ajouter

Range("C3:C12").ClearContents ' tu peut egalement modifié cette ligne en retirant la sélection

bon week end à tous

 

Vote positif 0 Vote négatif

B

bleck

Guest

• 15 Octobre 2011

• #3

Re : Sauver les modifictions du compteur dans le fichier de base.

Salut Nyko et merci pour ta reponse,

J'ai deja un compteur page qui incremente a chaque impresion, de fait en rajoutant cette ligne le ticket s'incremente 2 fois.Mais je reste toujours avec le meme probleme.Une fois imprime et sauve le fichier 118, c'est le 119 qui reste actif. Et une fois utilisé le 119 c'est le 120 qui reste actif. Ce que je souhaite c'est que le fichier "ok" reste actif tout le temps, ainsi a la fin de la journee lorsque je le ferme il conserve le dernier nº de tiket utilisé.
Merci d'avance

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 15 Octobre 2011

• #4

Re : Sauver les modifictions du compteur dans le fichier de base.

Donc au lieu d'utliser "SaveAs" utilise plutot "SaveCopyAs"

 

Vote positif 0 Vote négatif

B

bleck

Guest

• 16 Octobre 2011

• #5

Re : Sauver les modifictions du compteur dans le fichier de base.

Avec SaveCopyAs, j'ai une erreur : erreur de compilation, err 448 imposible de trouver le nom d'argument, ( pardon pour l'exactitude des termes, je les traduis comme me les donne excel en Espagnol

Slt

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 16 Octobre 2011

• #6

Re : Sauver les modifictions du compteur dans le fichier de base.

Bonjour Francis,

Avec la touche "F1" (aide), certes en espagnol, tu te serais apperçu que SaveCopyAs n'a besoin que d'un paramètres qui est "Filename" alors le paramètre "FileFormat", générait une erreur, donc en le retirant tout ce passe bien.
remplace ton code dans t'a sub imprimir par :

VB:

    ActiveWorkbook.SaveCopyAs Filename:="C:\Documents\" & Range("C2").Value & ".xls" ' rajouter à la fin .xls permet de "forcer" le format excel, même sans le rajout de l'extension le fichier serait sauvegarder.
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
    Range("C3:C12").ClearContents
    ActiveWorkbook.Save

 

Vote positif 0 Vote négatif

B

bleck

Guest

• 16 Octobre 2011

• #7

Re : Sauver les modifictions du compteur dans le fichier de base.

Merci pour ton aide Nyko, probleme solutioné.

 

Vote positif 0 Vote négatif