Bonjour à tous,
Je cherche certainement mal, mais je n'arrive pas à trouver mon bonheur sur le forum.
dans mon input box je ne dois avoir que des chiffres de 01 à 52 et quand je sauvegarde avec un nom déjà existant, j'ai un message d'erreur. Comment faire pour limiter le nombre et revenir au msgbox "choisir"
en vous remerciant
Manu
Sub sauver()
Dim reponse As String, nom As String
choisir = MsgBox("Voulez-vous enregistrer ce menu ?", vbYesNo)
If choisir = vbYes Then
nom = InputBox("Donnez le numero de semaine" & Chr(13) _
& "Selon cette structure :XX", , "XX")
' seulement de 01 à 52 doivent être possible
If nom = "" Then Exit Sub
ActiveWorkbook.SaveCopyAs Filename:= _
"C:\Users\Emmanuel\menu sem " & nom & ".xls"
' si le fichier existe déjà, j'ai un message d'erreur. comment faire pour avoir un retour au msgbox "choisir"
End If
End Sub
Je cherche certainement mal, mais je n'arrive pas à trouver mon bonheur sur le forum.
dans mon input box je ne dois avoir que des chiffres de 01 à 52 et quand je sauvegarde avec un nom déjà existant, j'ai un message d'erreur. Comment faire pour limiter le nombre et revenir au msgbox "choisir"
en vous remerciant
Manu
Sub sauver()
Dim reponse As String, nom As String
choisir = MsgBox("Voulez-vous enregistrer ce menu ?", vbYesNo)
If choisir = vbYes Then
nom = InputBox("Donnez le numero de semaine" & Chr(13) _
& "Selon cette structure :XX", , "XX")
' seulement de 01 à 52 doivent être possible
If nom = "" Then Exit Sub
ActiveWorkbook.SaveCopyAs Filename:= _
"C:\Users\Emmanuel\menu sem " & nom & ".xls"
' si le fichier existe déjà, j'ai un message d'erreur. comment faire pour avoir un retour au msgbox "choisir"
End If
End Sub