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