Discussion :

[guismoman33]

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

[plegat]

j'ai un message d'erreur qui me dit que j'ai une erreur

Super... on est hyper avancé... c'est quoi le message d'erreur?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Fichier = Cells(2, 9).Value

Y'a quoi dans "Fichier"?

Sinon, si mes souvenirs sont pas trop brumeux, il me semle que tu ne peux pas mettre tes "_" pour passer à la ligne n'importe où, il vaut mieux les mettre après les "&" et les virgules... essaye:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ActiveWorkbook.SaveAs Filename:= Repertoire & Fichier & Extension , _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

pour voir si ça passe mieux.

Mon deuxieme probleme c'est comment faire pour l'incrementer dans ma page excel comme un bouton normal

Pas compris là...
Incrémenter qui?
Ca s'incrémente pas un bouton d'abord...

[guismoman33]

Mon bouton je vais le mettre où alors sur ma feuille excel???
Sa ne marche pas ton premier truc....
Mon code entier c'est ceci :

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(9, 10).Value
 
ActiveWorkbook.SaveAs Filename:=_
        Repertoire & Fichier& Extension _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Le systeme de débogage me dit que l'erreur se trouve ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveWorkbook.SaveAs Filename:=_
        Repertoire & Fichier& Extension _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

[plegat]

Argh...
Si tu ne réponds pas aux questions que je te pose, je ne vais pas pouvoir te donner plus de solutions...

[guismoman33]

Le message d'erreur me dit qu'il y a une erreur de compilation

[illight]

guismoman33 a écrit :
j'ai un message d'erreur qui me dit que j'ai une erreur

Super... on est hyper avancé... c'est quoi le message d'erreur?

T'a pas besoin d'écrire tous les trucs derrière, ni de l'exntesion d'ailleurs. SI tu écris ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:=repertoire & fichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="",ReadOnlyRecommended:=False, CreateBackup:=False

ça suffit

En suite, au lieu de faire un formule tu peux juste incrémenter un pitit bouton sur ta page, en faisant apparaitre la boite a outils (Affichage>barre d'outils > boite a outils controle). La tu prend le pitit truc appelé "bouton de commande" et tu le met sur ta feuille
Ensuite, tu lui associe le code, en faisant un clic droit dessus et en faisant "visualiser le code" et tu met ton code

(Après avoir fait ça, ilf aut que ut enlève le mode création qu'il y a sur ton bouton, pour le désactiver c'est sur la boite de controles )

[guismoman33]

cool j'ai réussi a mettre mon bouton mais il me dit toujours qu'il y a une erreur ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:=Repertoire & Fichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

[guismoman33]

Maintenant il me dit erreur définit par l'application ou l'objet

[illight]

Heuuuu hum en fait il l'a fait l'extension

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:=Repertoire & Fichier & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Désolé