Voila, mon probleme: J'ai fait un bouton pour enregistrer ma feuille excel mais sous le meme nom a chaque fois donc j'ai le droit au message : "Un fichier nommé C:/.....xls" éxiste deja a cet emplacement, voulez vous le remplacez?" , et donc je voudrais que ce message ne s'afficher plus et que l'on force l'enregistrement ( comme si on cliquais sur oui )!
Merci de m'aider svp je galere !!

des fois on se demande à quoi ca sert de répondre ??
 
http://forum.hardware.fr/hardwaref [...] 1965-1.htm

,
 
Application.DisplayAlerte = False  
Inconnu dans l'aide et ne fonctionne pas!??

Alerts Avec un S comme ca ya même plus besoin de chercher dans l'aide ...
 
en tout cas chez moi ca fonctionne trés bien !

Le problème est que je n ai pas l aide sur mon poste!
 
J'ai bien tapé la commmande que vous m'avez mise mais ca ne marche pas !
 
Erreur suivant : "Application ou methode non géré par cet objet"
 
Voila le code de ma commande Quitter:
 
 
Private Sub CmdQuitter_Click()
 
Dim rep As Integer
 
Application.DisplayAlertes = False
 
rep = MsgBox("Voulez vous quitter l'application?", vbYesNo + vbQuestion)
If rep = vbYes Then
    ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\pc-10\Mes documents\Mes fichiers reçus\MODEL devis provisoir" & ".xls"
     
End
End If
End Sub

et yas pas de "e"    
 
ca donne ca :  

 
P.S : oublie pas qu'il existe l'aide en ligne aussi  

ahhhh  
CA MARCHE!
Merci beaucoup
 
J'ai un autre probleme par contre et je galere encore dessus!
 
J'ai un TxTBox ou je saisi un prix mais je veux faire un controle de saisi pour ne saisir que des chiffre et que des "," et "." mais je trouve pas helas!
 
Voila mon code pour le moment :
 
Private Sub txtPrixHt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     
    'controle la validité des caracteres saisis
    If (KeyAscii < 48 Or KeyAscii > 57) Then 'Saisir les chiffres de 0 a 9
       
        MsgBox "Vous ne pouvez saisir que des chiffres dans ce champs", vbCritical + vbOKOnly, "Erreur lors de la saisie"
        TxtPrixHt.Value = ""
    End If
     
End Sub
 
Merci si on peut encore m aider fusion_sadam!

j'ai trouvé    
 
 
 If (KeyAscii < 48 Or KeyAscii > 57) Then 'Saisir les chiffres de 0 a 9
       
        MsgBox "Vous ne pouvez saisir que des chiffres dans ce champs", vbCritical + vbOKOnly, "Erreur lors de la saisie"
        KeyAscii = 0
         
 End If
 
 

merci a toi encore Fusion