R
rudy
Guest
J'ai le message d'erreur ( sub ou fonction non définie) sur cette fonction , pouvez vous m'aidez s'il vous plait je comprend rien :
Ca bloque sur le changefileopendirectory
Sub Conversion_cptr_sic_htm()
'
' Macro enregistrée le 29/01/01 par Carpentier JP
'
JourJ = Day(Now())
MyWeekDay = WeekDay(Now())
MoisM = Month(Now())
If MyWeekDay = 2 Then JourJ = JourJ - 3 Else JourJ = JourJ - 1
If JourJ < 10 Then JourJ = "0" & JourJ
If MoisM < 10 Then MoisM = "0" & MoisM
ChangeFileOpenDirectory ("\\v64p17biaxh\bureautique\Communs\Dsit\Xpp\Xppp1\Qualite\suivi_SIC\Compte_rendu\")
Documents.Open FileName:="Suivsic" & JourJ & MoisM & ".doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ActiveDocument.SaveAs FileName:="\\v64p17biaxh\bureautique\Communs\Dsit\Xpp\Xppp1\Qualite\suivi_SIC\Html\Suivi_sic.htm", _
FileFormat:=102, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub
Ca bloque sur le changefileopendirectory
Sub Conversion_cptr_sic_htm()
'
' Macro enregistrée le 29/01/01 par Carpentier JP
'
JourJ = Day(Now())
MyWeekDay = WeekDay(Now())
MoisM = Month(Now())
If MyWeekDay = 2 Then JourJ = JourJ - 3 Else JourJ = JourJ - 1
If JourJ < 10 Then JourJ = "0" & JourJ
If MoisM < 10 Then MoisM = "0" & MoisM
ChangeFileOpenDirectory ("\\v64p17biaxh\bureautique\Communs\Dsit\Xpp\Xppp1\Qualite\suivi_SIC\Compte_rendu\")
Documents.Open FileName:="Suivsic" & JourJ & MoisM & ".doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ActiveDocument.SaveAs FileName:="\\v64p17biaxh\bureautique\Communs\Dsit\Xpp\Xppp1\Qualite\suivi_SIC\Html\Suivi_sic.htm", _
FileFormat:=102, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub