0

VBA 開発者の皆様、こんにちは。

マップされたネットワーク ドライブ ( P:\) に書き込みたい

次のコードは機能していないようで、76 を実行するとエラーが発生します。このエラーの理由と解決方法を教えてください。

事前にアドバイスをいただき、誠にありがとうございます。

Sub Enregistre_Fichier_bon_nom_bon_endroit()

    ChDrive "P"
    ChDir "P:\SG\INFOR\"

    Repertoire = Sheets("MAJ").Range("B1").Value & "\" & Sheets("FICHE_DEMANDE").Range("AH2").Value & "\"
    ChDir Repertoire
    SaveFileName = CurDir & "\" & Sheets("FICHE_DEMANDE").Range("B14").Value & "_" & Sheets("FICHE_DEMANDE").Range("a4").Value & "_ Suivi_FIR_directions_metier_2015_"
    MsgBox (SaveFileName)
    Set REP = Application.FileDialog(msoFileDialogSaveAs)
    With REP
    .AllowMultiSelect = False
    .InitialFileName = SaveFileName
    .FilterIndex = 2
    If .Show = -1 Then
    ActiveWorkbook.SaveAs Filename:=SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End If
    End With
End Sub
4

1 に答える 1

0

代わりにchangedirを使用するOSでは、完全なファイル名を使用することをお勧めします

お気に入り

Repertoire = Sheets("MAJ").Range("B1").Value & "\" &     Sheets("FICHE_DEMANDE").Range("AH2").Value & "\"

SaveFileName = "P:\" & Repertoire & "\" &  Sheets("FICHE_DEMANDE").Range("B14").Value   & "_" & Sheets("FICHE_DEMANDE").Range("a4").Value & "_ Suivi_FIR_directions_metier_2015_"
于 2015-02-09T17:47:06.907 に答える