M
MARIE74
Guest
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
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