Erreur d'exécution '1004' | ExportAsFixedFormat

Bonjour, j'ai l'erreur suivante :

Voici la partie du code qui semble poser problème :

sFilename = 'mon nom de fichier différent a chaque fois

Range("A1:C" & maxLigne).Select

Selection.ExportAsFixedFormat _
                     Type:=xlTypePDF, _
                     Filename:=sFilename, _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=False

Il se trouve que sur mon autre ordi qui est sous la même version d'Excel, le code s'exécute très bien.

Bonjour,

A moins que vous ayez une macro qui fait une centaine de lignes, il vaudrait mieux poster le code en entier...

Il faut regarder ce que contient sfilename (ici, vide). A priori il faut sfilename ait une valeur, pas de caractères interdits, et pas le même nom qu'un autre fichier déjà ouvert.

Voici un essai :

Sub test()

with activesheet
    sPath = .parent.path & application.pathseparator
    sFilename = sPath & "nom fichier " & .range("A1").value & ".pdf" '<<< par exemple
    .pagesetup.printarea = "A1:C" & maxLigne
    if dir(sfilename) <> "" then
        msgbox "Un fichier du même nom est ouvert", vbcritical, "Operation annulée"
        exit sub
    end if
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, IgnorePrintAreas:=False
end with

end sub

Cdlt,

Merci de ton aide.

En fait, mon problème vient que j'avais déclaré le chemin en dur en que sur mon autre ordi un caractère change. Mais ducoup avec ton code c'est résolu et automatique.

Merci beaucoup.