XL 2016 Fonctionne avec 2007 pas 2016

Staple1600

XLDnaute Barbatruc

• 21 Avril 2018

• #2

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?

 

Vote positif 0 Vote négatif

T77XDD

XLDnaute Occasionnel

• 21 Avril 2018

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Avril 2018

• #4

Re

Essaies ce petit test
(sur un classeur vierge)

VB:

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?

 

Vote positif 0 Vote négatif

T77XDD

XLDnaute Occasionnel

• 22 Avril 2018

• #5

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?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2018

• #6

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.

 

Vote positif 0 Vote négatif

T77XDD

XLDnaute Occasionnel

• 24 Avril 2018

• #7

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.

 

Vote positif 0 Vote négatif