incrementation

[bret]

bonjour,

pouvez m' aider j'aimerais savoir comment incrementer une valeur

cf fichier merci

 

[Denis]

Bonjour Bret & le Forum
ci joint un petit exemple avec un scrollbar plus simple à mon avis
quand à l'enregistrement dans un fichier texte, il faudra attendre un spécialiste (moi j'sais pas)
Bon courage et @+
Denis

 

[bret]

Nickel !

merci denis !!

c'est exactement ce que je voulais pour l'enregistrement dans un fichier je vais voir si je trouve ça sur le net !

 

[Denis]

Re bonjour à tous
j'ai trouvé ceci pour enregistrer en txt
il reste la demende de validation de suppression de feuilles à supprimer
Bon courage et @+


Sub Macro2()
Workbooks.Add
Range("A1") = Workbooks("test1.xls").Sheets("Feuil1").Range("A1")
For ctr = Sheets.Count To 1 Step -1
If Sheets(ctr).Name <> ActiveSheet.Name Then
Sheets(ctr).Delete
End If
Next
ActiveWorkbook.SaveAs Filename:="C:\Mes documents\essais.txt", FileFormat _
:=xlText, CreateBackup:=False
End Sub