Enregistrer sous .txt en incrementant

[reve24]

Bonjour

J utilise mon fichier depuis 2 ans
mais je souhaite modifier en incrémentant le fichier .txt à chaque fois que je le sauvegarde

EXEMPLE
20170322-00
20170322-01
20170322-02
merci a vous de m aider

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec :

Sub Archivtext()
Cells(1, 2) = Cells(1, 2) + 1
    Columns("A:I").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Format(Date, "yyyymmdd") & "-" & Cells(1, 2) & ".txt", FileFormat:= _
        xlTextMSDOS, CreateBackup:=False
        Cells(1, 2) = Cells(1, 2) + 1
Set wbSource = ActiveWorkbook
wbSource.Close SaveChanges:=False

'On assigne une variable à ce fichier, dès l’ouverture, il devient le fichier actif
'Ici, on insère le code qui applique les changements voulus au fichier ouvert, qui sera ensuite refermé

'On ferme le fichier sans le sauver

End Sub

A+ à tous

 

[Lone-wolf]

Bonjour Jean Claude

Columns("A:I").Copy - pourquoi Select? (Tu aime bien cette marque de cigarettes?? )

 

[reve24]

Merci JCGL
Super
moi j avais détourné le sujet avec date et time
"C:\Temp\" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".txt"
Mais cela ne correspondait pas à mon souhait mais cela restait efficace

Msuper merci à toi

 

[JCGL]

Bonjour à tous,

Jeune Loup : je suis au boulot, je n'ai fait que rajouter deux morceaux de codes et conservé l'original.

A à tous