bonjour voila j'arrive a programmez un userform mais deux probleme se pose : j'ai un message d'erreur qui me dit que j'ai une erreur dans la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWorkbook.SaveAs Filename:= _

voila mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim Repertoire As String
Dim Fichier As String
Dim Extension As String
 
Repertoire = "C:\Documents and Settings\RICOH\Mes documents\Devis excel\"
Extension = ".xls"
Fichier = Cells(2, 9).Value
 
ActiveWorkbook.SaveAs Filename:= _
        Repertoire & Fichier & Extension _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Mon deuxieme probleme c'est comment faire pour l'incrementer dans ma page excel comme un bouton normal