Enregistrement

Salut à tous !

J'ai fait ce morceau de macro pour enregistrer mon classeur en incrémentant le numéro du titre si je l'ai déjà enregistrer afin de ne pas effacer les classeurs précédents.

Je débute tout juste du coup je ne maîtrise pas vba.

Sub test()

Dim Titre As String

Dim i As Integer

Dim Var as Date

Var = ??/??/????

i = 1

Titre = Var & "_" & Cells(1, 2) & "_" & "n°" & i

While Dir("C:\Chemin\Titre.xlsx") <> ""

i = i + 1

Titre = Vardate & "_" & Cells(1, 2) & "_" & "n°" & i

Wend

MsgBox (Titre)

ThisWorkBook.SaveAs ("C:\Chemin\Titre.xlsx")

End Sub

Dans la boîte de dialogue, il y a bien la partie droite de l'égalité Titre = Var & "_" & Cells(1, 2) & "_" & "n°" & i.

Mais le fichier s'enregistre sous le nom Titre et non avec la partie droite. Du coup, à partir du deuxième enregistrement, la boucle While est infinie.

Est-ce un problème de syntaxe ? De méthode ?

Merci !

Ça continue ! Amuse-toi bien !

Relis déjà...

Rechercher des sujets similaires à "enregistrement"