Bonjour,
... comment changer Pc (pc c'est mon ordinateur) dans les codes impression pour que ce fichier fonctionne sur tous les pc ...
Ici la solution pour que le nom d'utilisateur soit variable ...
Mais attention, dans ton code il y a un sous-dossier \dossier de sauvegarde\
... existe-t-il sur toutes les machines concernées ?
NomUtilisateur = Environ("username")
ActiveSheet.PageSetup.PrintArea = "$AC$8:$AF$49"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\" & NomUtilisateur & "\Desktop\dossier de sauvegarde\Assez bien.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ric