Je ne comprend pas mon erreur

[rainbow69006]

J'ai fais un petit programe. et je veu que celui-ci demarre quand on clique sur un bouton

Private Sub CommandButton1_Click()

Dim Chemin
Application.DisplayAlerts = False
Chemin = "\mon fichier"
ActiveWorkbook.SaveAs Filename:=Chemin & ActiveWorkbook.Name, FileFormat:=xlNormal
Application.DisplayAlerts = True

On Error Resume Next
X = Sheets("Sheet1").Range("A65536").End(xlUp).Row
For i = 1 To X

etc...

End Sub

Mom programe marche mais le bouton lui ne lance pas le programme.Que dois je faire ??

 

[Spitnolan08]

Re : Je ne comprend pas mon erreur

Bonjour,

à tout hasard, ton code :

 Private Sub CommandButton1_Click()
...
end sub

est bien dans le module de la feuille où tu as le bouton?

Cordialement

 

[pierrejean]

Re : Je ne comprend pas mon erreur

bonsoir

revois cette ligne:

Chemin = "\mon fichier"

en mettant quelque chose du genre

Chemin = "C:\mon fichier\"

mets en commentaires les lignes

Application.DisplayAlerts = False
Application.DisplayAlerts = True

et teste

tu retabliras lorsque tu sera sur du fonctionnement

edit:

Salut Spit

 

[rainbow69006]

Re : Je ne comprend pas mon erreur

c'est bon j'ai trouve mon erreur
j'ai copier le code du bouton dans le code de mon programe alors que je devais copier le code de mon programme dans le code du bouton

Merci