Claudy
XLDnaute Accro
Bonjour,
j'utilise la macro ci dessous pour sauver une feuille au format .pdf.
Elle fonctionne très bien ...sauf si le fichier existant est déjà ouvert sur un autre poste de travail.
Comment empêcher le bug en affichant un message d'erreur qui me dirait que le fichier est ouvert sur le poste de ZAZA?
Dans le genre : msgbox("Le fichier " & Range("B1").text & "est ouvert sur le poste de travail de " & Application.user )'
Merci d'avance,
Claudy
Sub PDF_SAVE()
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"B:\COMMUN\BLABLA\DISPONIBILITE CHARROI ZP\" & Range("B1").Text & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
j'utilise la macro ci dessous pour sauver une feuille au format .pdf.
Elle fonctionne très bien ...sauf si le fichier existant est déjà ouvert sur un autre poste de travail.
Comment empêcher le bug en affichant un message d'erreur qui me dirait que le fichier est ouvert sur le poste de ZAZA?
Dans le genre : msgbox("Le fichier " & Range("B1").text & "est ouvert sur le poste de travail de " & Application.user )'
Merci d'avance,
Claudy
Sub PDF_SAVE()
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"B:\COMMUN\BLABLA\DISPONIBILITE CHARROI ZP\" & Range("B1").Text & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub