XL 2016 Fonctionne avec 2007 pas 2016

[T77XDD]

Bonjour,
VBA fonctionne impeccable avec Excel 2007 mais ouvre une boite dialogue d'impression, que je n'arrive pas à paramétrer, avec Excel 2016. Quand je referme la boite de dialogue d'impression un message d'erreur VBA apparait avec surligné en jaune toute la partie de la fonction qui sauvegarde la feuille en PDF sous 2007.
Merci pour votre aide.

 

[Staple1600]

Bonsoir le fil, le forum

@T77XDD
Pour infos
Dans ta capture : Capture d'écran(3).png on lire en clair une adresse email qui ne semble pas être fictive.
Ce qui n'augure rien de bon pour ton fichier Excel...
Tu as bien pensé à anonymiser avant de le joindre sur le forum?

 

[T77XDD]

Oui, c'est une adresse que je n'utilise plus ayant changé d'opérateur.
Merci.

 

[Staple1600]

Re

Essaies ce petit test
(sur un classeur vierge)

Sub Test()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\"
fichier = "test.pdf"
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=chemin & fichier, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False
End Sub

Est-ce que la boite de dialogue apparaît aussi?

 

[T77XDD]

Même chose!
Pour tester ton code je dois créer une macro que j'efface et remplace par ton code , en suite il faut l’exécuter par F8
Normal?

 

[Staple1600]

Bonjour le fil, le forum

@T77XDD
Pour tester, tu créés un classeur vierge avec une seule feuille.
Dans celle-ci tu saisis quelques données (par exemple de A1 à E20)
Ensuite tu enregistres ton classeur en *.xlsm
Puis tu fais ALT+F11
Là tu insères un Module Standard et tu copies/colles le code VBA de ma macro
Enfin tu appuies sur F5

J'ai testé avec Excel 2013, je n'ai pas de boite de dialogue qui apparaît.

 

[T77XDD]

Bonjour, en premier désolé pour ce retard.
J'ai testé en suivant cette procédure ça fonctionne, par contre cela ne fonctionne que pour enregistrer sous "\"
Il faut que je teste sur mon tableau qui comporte d'autres étapes dont un envoie par mail de cette feuille + des feuilles supplémentaires pour la base et les saisies bla bla bla.
Je teste et je renvoir.
Merci pour cette 1ère étape même si je ne comprends pas pourquoi.