bonjour les amis
je me lance dans la programmation ....
Aver mon bouquin formation vba word je viens de creer la macro suivante. Mon probleme est quand je clique sur Annuler ce que je veux effacer est bien effacé mais il y a aussi mon message d'erreur qui apparait. je voudrais qu'il efface sans faire apparaitre le message d'erreur. Mon deuxieme probleme quand je clique la croix pour la fermeture de la fenetre il me sort également mon message d'erreur et la fenêtre ne se ferme pas.
je suis sure que parmi vous il y a des spécialistes qui voudront bien éclairer ma lanterne et vous en remercie par avance
Dim monchiffre As Byte
Dim compteur
Dim alerte As String
Dim alarme As String
monchiffre = CStr(monchiffre)
machiffre = monchiffre
compteur = 1
Do While compteur < 4
machiffre = (InputBox("Entrer le chiffre correspondant " + vbCr _
+ vbCr _
+ "1. Convocation Conseil " + vbCr _
+ "2. Convocation Caisse Ecole " + vbCr _
+ "3. Compte rendu déliberation CCAS " + vbCr _
+ "4. Note d'Information " + vbCr _
+ "5. Compte rendu délibération Conseil ", _
" Choix de l'application "))
If machiffre = 1 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\CONVOCONSEIL.dot", _
NewTemplate:=False, DocumentType:=0 '
Exit Do
ElseIf machiffre = 2 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\convocaisseecole.dot", _
NewTemplate:=False, DocumentType:=0
Exit Do
ElseIf machiffre = 3 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\ccas.dot", _
NewTemplate:=False, DocumentType:=0
Exit Do
ElseIf machiffre = 4 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\information.dot", _
NewTemplate:=False, DocumentType:=0
Exit Do
ElseIf machiffre = 5 Then
Documents.Add Template:= _
"C:\Program Files\Microsoft Office\Templates\delib.dot", _
NewTemplate:=False, DocumentType:=0
Exit Do
Else
alerte = (MsgBox(" Erreur " & compteur & " fois " + vbCr _
+ " Entrez un chiffre inférieur à 7", "48", _
" Alarme"))
compteur = compteur + 1
End If
If compteur = 4 Then
reponse = (MsgBox("Trois fois çà suffit" + vbCr _
+ "Renouvellez votre demande !!", "48", " Ne pas s'obstiner dans l'erreur "))
End If
Loop
End Sub
