agrementer une cellule

thiroux

XLDnaute Nouveau
bonjour a tous

Je souhaiterais agrementer de +1 une cellule a chaque fermeture du fichier xls et enregistrer ce fichier sous le nom de cet cellule .....

est ce possible ?

merci d'avance
 
G

GIBI

Guest
Bonjour,






une solution consiste à incrémenter la valeur d'une cellule dans l'évenemnt 'beforeclose', par exemple si le compteur est en A1 (ligne 1 colonne 1)


Placer cette macro dans 'thisworkbook'

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cells(1, 1).Value = Cells(1, 1) + 1

End Sub



avec excel c'est possible!
 
G

GIBI

Guest
Bonjour,


désolé mais je n'avais pas tout lu

il suffit d'associer cette macro à un bouton ou un raccourci

Sub Enregistrer()
Chemin = 'q:\\xxxx\\'
NomFic = 'FICHIER_' 'racine du nom de fichier
Cells(1, 1).Value = Cells(1, 1) + 1
ActiveWorkbook.SaveAs Filename:=Chemin & NomFic & Format(Cells(1, 1).Value, '000') & '.XLS', _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
300 786
Messages
1 987 163
Membres
209 729
dernier inscrit
Mazzon