VBA contourner le blocage d'un serveur

Bonjour,

J'ai une macro qui enregistre une feuille en format PDF, cette macro fonctionne sur ma clef USB ainsi que sur un serveur P: mais quand j'exécute ma macro sur le serveur H:, elle ne fonctionne pas .. Je pense donc que c'est directement lié au serveur étant donné que j'ai déjà vérifié le chemin ..

Voici l'erreur : "Erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet"

Voici le code :

Option Explicit

Sub Enregistrer_PDF_et_ouvrir()
'Permet d'enregistrer la feuille 1 en PDF et de l'ouvrir

Dim i As Variant
Dim MonApplication As Object
Dim MonFichier As String
Dim OuvrirFichier As Variant
Dim derlgn As Integer
Dim NomDossier As Variant

derlgn = ThisWorkbook.Sheets("Choix des matériels").Cells(Rows.Count, 1).End(xlUp).Row

'Question : Avez-vous bien changé l'indice ? Si oui, enregistre le document en PDF, si non, MsgBox + Exit Sub

If MsgBox("Avez-vous bien changé l'indice du document ?", vbYesNo, "Demande de confirmation") = vbYes Then

    With Sheets("Choix des matériels").PageSetup
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0)
    .BottomMargin = Application.InchesToPoints(0)
    .Zoom = 65
    .PaperSize = xlPaperA3
    .Orientation = xlLandscape
    .PrintArea = "A1:L" & derlgn

    End With

i = "TSM - " & Sheets("Choix des matériels").Cells(14, 3) & " - " & Sheets("Choix des matériels").Cells(12, 3)
NomDossier = ThisWorkbook.Sheets("Choix des matériels").Range("C13")

ThisWorkbook.Sheets("Choix des matériels").Range("I8") = NomDossier

Sheets("Choix des matériels").ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Travaux BE\00R000 - Stade DELAUNE\03 - DOSSIER MATERIELS\" & i & ".pdf", OpenAfterPublish:=True

Else
MsgBox ("Le fichier n'a pas été enregistré. Veuillez changer l'indice et recommencer l'opération.")
Exit Sub
End If

End Sub

Bonjour,

Pour vérifier la syntaxe de ton répertoire H, Avec l’enregistreur macro, ouvre un fichier du répertoire "H:\.... »

Oui c'est pas une mauvaise idée, je vais essayer ça lundi, merci

Bonjour Callitek,

est ce que le problème est résolu ?