Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Bureautique

Pble EXCEL - VB

néné, le 27 oct 2007 à 17:56:33

Signaler ce message aux modérateurs Revenir à la discussion

Bonjour,

Private Sub Workbook_Open()
Range("I2") = Range("I2") + 1
ThisWorkbook.Save
End Sub

MAIS à la place

Private Sub Workbook_Open()
dim chiffre as long
chiffre = range("i2").value
Range("I2") = c + 1
End Sub

sub auto_close
ThisWorkbook.Save 'sauvegarde en sortant
end sub

néné
http://utilsfr.new.fr

Posez votre question Répondre