Bonjour,
Cela fait un moment que je tourne en rond pour obtenir ce que je veux avec un do while...
Voici le code : il s'agit du bouton valider dans un USF. Je demande à l'utilisateur d'entrer l'année et le numero de version. ceci afin de récupérer un nom de fichier et l'enregistrer.
Ficword et nomrép sont des variables public
Private Sub Valider_Click()
Dim Msg As Integer
'Prévenir que le fichier existe
Annee = ComboBoxAnnee.Value
Version = ComboBoxVersion.Value
FicWord = Nomrép & "\" & Annee & "." & Version & ".doc"
If Len(Dir(FicWord)) > 0 Then
Msg = msgbox("Le fichier " & FicWord & " existe déjà, voulez-vous continuer et écraser le fichier?", "1")
End If
Unload Me
Do While Msg = 2 And Len(Dir(FicWord)) > 0
ListeFichierWord.Show
Annee = ComboBoxAnnee.Value
Version = ComboBoxVersion.Value
FicWord = Nomrép & "\" & Annee & "." & Version & ".doc"
Msg = msgbox("Le fichier " & FicWord & " existe déjà, voulez-vous continuer et écraser le fichier?", "1")
Unload Me
Loop
End Sub
Je pense que j'ai tellement fait d'essai que je ne sais plus ce que je fais.
La msgbox apparait plusieurs fois...
Je pense que la solution est simple mais où??
Quelqu'un a t-il une idée?
Merci
Marie
Cela fait un moment que je tourne en rond pour obtenir ce que je veux avec un do while...
Voici le code : il s'agit du bouton valider dans un USF. Je demande à l'utilisateur d'entrer l'année et le numero de version. ceci afin de récupérer un nom de fichier et l'enregistrer.
Ficword et nomrép sont des variables public
Private Sub Valider_Click()
Dim Msg As Integer
'Prévenir que le fichier existe
Annee = ComboBoxAnnee.Value
Version = ComboBoxVersion.Value
FicWord = Nomrép & "\" & Annee & "." & Version & ".doc"
If Len(Dir(FicWord)) > 0 Then
Msg = msgbox("Le fichier " & FicWord & " existe déjà, voulez-vous continuer et écraser le fichier?", "1")
End If
Unload Me
Do While Msg = 2 And Len(Dir(FicWord)) > 0
ListeFichierWord.Show
Annee = ComboBoxAnnee.Value
Version = ComboBoxVersion.Value
FicWord = Nomrép & "\" & Annee & "." & Version & ".doc"
Msg = msgbox("Le fichier " & FicWord & " existe déjà, voulez-vous continuer et écraser le fichier?", "1")
Unload Me
Loop
End Sub
Je pense que j'ai tellement fait d'essai que je ne sais plus ce que je fais.
La msgbox apparait plusieurs fois...
Je pense que la solution est simple mais où??
Quelqu'un a t-il une idée?
Merci
Marie