Re : Enregistrement
J'ai très legerement modifié ton code, à savoir :
Private Sub Non_Click()
Unload Me
Exit Sub
End Sub
Private Sub oui_Click()
Dim CheminFerme As String, Nom As String
CheminFerme = "C:\Documents and Settings\rlesage.SIEGE\Bureau\Devis"
If Dir(CheminFerme, 16) = "" Then MkDir CheminFerme
Nom = Range("D3") & "_" & Format(Date, "ddmmyyyy") & ".xls"
ThisWorkbook.SaveAs Filename:=CheminFerme & Nom
Unload Me
End Sub
Et là plusieurs problèmes se pose :
1. Mon fichier est enregistré sur mon bureau et pas dans le répertoire "devis"
2. Le nom du fichier créer commence toujours par devis c'est à dire
Devislolla_19032009.xls au lieu de Lolla_19032009.xls tout simplement.
3. Enfin si je refuse l'enregistrement en cliquant sur le bouton "NON" ça bug ici.
ThisWorkbook.SaveAs Filename:=CheminFerme & Nom
Bizarree, vous avez dit bizarre ?