changefileopendirectory

  • Initiateur de la discussion Initiateur de la discussion rudy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
Salut,

Essai avec:

ChDir("\\v64p17biaxh\bureautique\Communs\Dsit\Xpp\Xppp1\Qualite\suivi_SIC\Compte_rendu") pour un changement temporaire

ou

Aplication.DefaultFilePath = "\\v64p17biaxh\bureautique\Communs\Dsit\Xpp\Xppp1\Qualite\suivi_SIC\Compte_rendu" pour changer le repertoire par defaut d'excel


@+

Minick
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2010 VBA
Réponses
2
Affichages
681
Réponses
19
Affichages
3 K
G
Réponses
0
Affichages
1 K
G
B
Réponses
2
Affichages
1 K
B
B
Réponses
0
Affichages
903
B
M
Réponses
0
Affichages
2 K
M
Retour