kromitou
XLDnaute Occasionnel
Bonsoir, voilà j'ai récupéré ce p'tit code (merci au créateur...) Il fonctionne trés bien. J'ai rajouté une petite bricole Pour le nom...Bref,mais voilà, y a juste un petit truc....c'est qu'il me ferme le Fichier d'origine or il ne faudrait pas.
en résumé :
Je clic
il sauvergarde renomme le fichier d'origine et le ferme
or il faudrait :
Sauvergarde ; renomme et surtout ne pas fermer l'original.
Voila si quelqu'un peut m'éclairer la dessus... Merci d'avance.
Private Sub CommandButton1_Click()
'Sub sauvegardeIndice()
répertoire = ThisWorkbook.Path
ActiveSheet.Name = "TAB." & Range("A1").Value
NomFichier = Range("A1").Value
nf = Dir(répertoire & "\" & NomFichier & Format(Date, "yyyy_mm_dd_") & "*")
n = 0
Do While nf <> ""
nf = Dir
n = n + 1
Loop
ActiveWorkbook.SaveAs _
Filename:=répertoire & "\" & NomFichier & Format(Date, "yyyy_mm_dd_") & Format(n + 1, "000")
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
en résumé :
Je clic
il sauvergarde renomme le fichier d'origine et le ferme
or il faudrait :
Sauvergarde ; renomme et surtout ne pas fermer l'original.
Voila si quelqu'un peut m'éclairer la dessus... Merci d'avance.
Private Sub CommandButton1_Click()
'Sub sauvegardeIndice()
répertoire = ThisWorkbook.Path
ActiveSheet.Name = "TAB." & Range("A1").Value
NomFichier = Range("A1").Value
nf = Dir(répertoire & "\" & NomFichier & Format(Date, "yyyy_mm_dd_") & "*")
n = 0
Do While nf <> ""
nf = Dir
n = n + 1
Loop
ActiveWorkbook.SaveAs _
Filename:=répertoire & "\" & NomFichier & Format(Date, "yyyy_mm_dd_") & Format(n + 1, "000")
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub