Erreur de compilation

[MARIE74]

B) Bonjour a toutes et a tous

Météo: 20° ciel d'un beau bleu pas de vent (région Megeve)
(60cm de neige a 4500m)


Mon probleme

Erreur de compilation dans cette macro et je ne sais pas quoi faire
Le debogeur surligne en bleu le ligne Private SUb command....


Private Sub CommandButton1_Click()
Sub ENREGISTREMENT()
'
' ENREGISTREMENT Macro
' Macro enregistrée le 16/09/2005
'

'
ChDir 'F:\\Commercial\\DEVIS\\Devis calcul\\EN_COURS'
ActiveWorkbook.SaveAs Filename:= _
'F:\\Commercial\\DEVIS\\Devis calcul\\EN_COURS\\AAAAESSAI.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
ChDir 'C:\\Nouveau dossier\\BK'
ActiveWorkbook.SaveAs Filename:='C:\\Nouveau dossier\\BK\\AAAAESSAI.xls', _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
End Sub


Merci d'avance de votre aide

 

[Hervé]

Bonjour marie

Météo : témpérature douce, beau soleil (région : saint etienne)

Ton problème :

Je me trompe ou il y a deux end sub à la fin de ta macro.

salut

 

[MARIE74]

B) Re a tous

Bon

J'ai enlevé le end sub en trop et Hop toujours
erreur de compilation et VBA me dit 'End Sub attendu'


Merci de me dépanner



oh migraine!!

 

[MARIE74]

B) Re Re

Hervé Hervé Hervé laisse tomber

J'ai TROUVE

Il faut enlever

Sub ENREGISTREMENT() et un End Sub



Bon désolé de t'avoir déranger pour si peux
Avec mes excuses tu sais en fin de semaine moi je sature un 'chouilla'

Bon bon W.End a toi et a tous les autres

 

[PascalXLD]

Bonjour

Je vous parle pas de la météo vous m'enervez :angry:

Bizarre ces lignes tu en as une de trop

Private Sub CommandButton1_Click()
Sub ENREGISTREMENT()


Bon courage

 

[MARIE74]

B) Re Re

Hervé

Ma ligne en plus provient d'un copier/coller de ma macro dans mon commandbutton

Voila l'explication

Tout est de ma faute


Je vous parle pas de la météo vous m'enervez ????

Bin ca alors un brin en colere ce matin mon petit Pascal76
garde ton sang froid et passe un bon W.End


Grosse bises a tous les deux