Bonjour,
Il est préférable de poster le code à l'aide des balises </> du ruban d'icones de manière à faciliter la copie .
J'essaierais ceci :
sub test()
chemin = "S:\Devis\"
with activesheet
nom = "FACTURE_" & .range("B2").value &".pdf"
.exportasfixedformat type:=xltypepdf, filename:=chemin & nom, ignoreprintareas:=false
end with
end sub
Je regarderais que j'ai bien accès au lecteur S, que ma valeur en B2 ne contient pas de caractères spéciaux interdits dans les noms de fichiers, que le fichier créé ne porte pas le même nom qu'un fichier déjà ouvert (du fait du openafterpublish et d'une valeur en B2 non incrémentée)
Cdlt,