Message d'erreur 1004

Question

Bonjour j'ai besoin d'une aide svp : un message d'erreur lors de l'enregistrement en PDF. Il fonctionne et à un moment donnée il stoppe et affiche ce message :

"Document non enregistré. Le document est peut être ouvert ou une erreur s'est produite lors de l'enregistrement."

Alors que je n'ai qu'une feuille ouverte.....

Merci pour votre aide svp

Sub rangecopy()

Dim i As Integer

Dim NomFichier As String

Sheets("Mar-20").Range("F2:H4").ClearContents

With Sheets("BDD PERSONNEL")

For i = 2 To .Range("N" & .Rows.Count).End(xlUp).Row

If .Range("N" & i) = "CADRE" Then .Range("B" & i).Copy Sheets("Mar-20").Range("F2:H4") 'copie de la cellule de la colonne 1 ligne i

NomFichier = Sheets("Mar-20").Range("J4").Value

If NomFichier <> "" Then 'on vérifie qu'il y a un matricule en colonne A

'ChDir "C:\Users\\Desktop\RH\MARS\"

Range("N15:N41").Select

Selection.Copy

Range("O15").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

==> Cette ligne ci-dessous est surlignée...

Sheets("Mar-20").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"\\0000srv002\\Centrale\\CHP\POINTAGE_MARS\CADRES\" & NomFichier & "_" & ".pdf" _

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

End If

Next i

End With

End Sub

LouReeD · Answer

Vous enregistrez sur un serveur... non ? Et bien peut-être qu'entre temps une personne a ouvert le fichier portant le même nom... un fichier déjà enregistré lors de vos essais... Voir même le réseaux "a bugué" lors de la fermeture de ce fichier et un fichier "fantôme" est présent simulant une ouverture alors que ce dernier est bel et bien fermé ! @ bientôt LouReeD...