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 !