desoler d'etre caspied mais ou doige mettre ce dim
Dim MonClasseur As Straing
je l'est mis juste en dessous de
Sub savedoc()
'
' savedoc Macro
' Macro recorded 15/12/2005 by Daniel Cock
'
'
Dim MonClasseur As Straing
MonClasseur As String
MonClasseur = Range('i7') & '.xls'
If Range('f3').Value = '725' Then
ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\725\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If
If Range('f3').Value = '730' Then
ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\730\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If
If Range('f3').Value = '735' Then
ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\735\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If
If Range('f3').Value = '740' Then
ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\740\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If
If Range('f3').Value = '980G' Then
ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\980G\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If
' ChDir 'C:\\5428\\Doc vierge'
' Workbooks.Open Filename:='C:\\5428\\Doc vierge\\shims 5428-8 vierge.xls'
' Range('A1').Select
ChDir 'C:5428Doc vierge'
Workbooks.Open Filename:='C:\\5428\\Doc vierge\\shims 5428-8 vierge.xls'
Range('A1').Select
Workbooks(MonClasseur).Close
End Sub
quand je l'enssent la macro par la fenètre non je plaisante , il me renvois toujour la mème erreur
erreur de compilation
instruction incorrecte à l'exterieur d'un bloc de type