Discussion :

[LuckyNipple]

Bonjour à tous,

Sur mon lieu de travail, une macro permettant d'exporter en pdf une feuille Excel ne fonctionne pas sur certains postes (tous les postes utilisent Excel 2016). Lors de l’exécution du code, le problème semble se poser au niveau de la fonction ExportAsFixedFormat.
Après maintes recherches sur Google et aucune réponse satisfaisante, je me tourne vers vous.

Pour vous illustrer le problème, je réalise la manipulation suivante :

Pour les postes ou la macro fonctionne (GROUPE A), j'ouvre une feuille excel test, je lance l'enregistreur de macro puis j'exporte la feuille test en pdf et j'arrête l'enregistreur de macro. Voici le code qui est généré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
'
' Macro1 Macro
 
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\user1\Desktop\Test.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
 
 
End Sub

Tout marche pour le mieux dans le meilleur des mondes. Je réalise exactement la même manipulation sur les postes ou la macro ne fonctionne pas (GROUPE B). Voici le code généré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
 
 
    . Add := xlTypePDF,  := "C:\Users\user2\Desktop\Test.pdf",  := _
        xlQualityStandard,  := TRUE,  := FALSE,  := TRUE
 
End Sub

Il semble manquer une référence ? Ce qui est surprenant, c'est qu'indépendamment de l'enregistreur de macro, l'export en pdf réalisé manuellement pendant la manip fonctionne aussi bien sur les postes du GROUPE A que ceux du GROUPE B. Cependant, lorsque l'on tente de débuguer les codes générés (cf. extraits de code ci-dessus), celui du GROUPE B ne fonctionne pas (sans surprises) avec comme message d'erreur : Erreur de compilation, erreur de syntaxe.

Après vérification des références sur les postes du GROUPE A et du GROUPE B, aucune ne semble manquer à l'appel sur les postes du GROUPE B. Auriez-vous une idée du pourquoi du comment de cette absence de la fonction ExportAsFixedFormat sur les postes du GROUPE B ?

J'espère avoir été assez clair dans mes explications, si ce n'est pas le cas n'hésitez pas à me demander des précisions.


Merci d'avance pour votre aide.


Cordialement,

Lucas.

[LuckyNipple]

A défaut d'une solution, une idée de piste à creuser peut-être ?

[Invité]

Bonjour

Dans ton chemin tu as du User1 et User2, es-tu sûr de cela ?

Philippe

[LuckyNipple]

Bonjour Philippe,

Merci de votre retour. Le chemin n'étant pas la source du problème, je me suis permis de modifier le nom des utilisateurs par "user1" et "user2" dans l'extrait des codes par soucis d'anonymat. Je précise que c'est la seule modification apportée par rapport au code réellement généré par l'enregistreur de macro.

[unparia]

Bonjour

Ce qui m'étonne, personnellement, est ce "." présent ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

. Add := xlTypePDF

A la fois parce que je vois un espace après le point, mais également parce que je ne vois aucun bloc with
Or, tu as précisé (à propos des seuls "user1" et "user2" :

Je précise que c'est la seule modification apportée par rapport au code réellement généré par l'enregistreur de macro.

m'étonnent égalemnt d'autres partie de la même ligne de code (", := ...)

[LuckyNipple]

Bonjour unparria,

Je vous confirme que c'est le code exactement tel que l'enregistreur de macro l'a généré, cela m'a également surpris.

Il semblerait ensuite que la fonction appelle des paramètres similaires à ExportAsFixedFormat sans les nommer, ce qui ne me surprend pas particulièrement.

[patricktoulon]

il es possible que (et j'ai eu ce probleme sur 2007) la mise a jour excel saveaspdf ai été mise apres d'autre mises a jour et malheureusement il faut la supprimer et l'installer manuellement sur les groupeB sans ca tu restera planté
cette ligne aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin="C:\Users\user1\Desktop\Test.pdf",

peut etre generique comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin=environ("userprofile")&"\Desktop\Test.pdf

le chemin sera toujours le bureau de la session qui utilise excel

[LuckyNipple]

Bonjour Patrick,

le problème c'est qu'il ne semble pas y avoir de compléments particuliers pour ces fonctions basiques.

[LuckyNipple]

En essayant de rajouter de force le code des postes du groupe A dans les postes du groupe B, voila le message d'erreur qui s'affiche :

[patricktoulon]

re

le problème c'est qu'il ne semble pas y avoir de compléments particuliers pour ces fonctions basiques.

faux!! saveas pdf est une mise a jour au moins jusqu'a excel 2010 elle n'est pas installée a l'origine
et comme je l'ai dis selon l'ordre(date) de mise a jour c'est walouh walouh

[LuckyNipple]

Tous les postes en question utilisent Excel 2016. Aucune mise à jour particulière ne semble nécessaire non ? J'ai remarqué cependant que les postes du GROUPE B présentaient des droits d'administrateurs plus restreint sur notre serveur, ce qui pourrait expliquer le problème sur le fichier initial mais en aucun cas le problème avec des fichiers tests vierges... En tout cas mon problème ne semble jamais avoir été rencontré par aucun autre utilisateur à en croire le manque de réponses pertinentes sur internet vis à vis de ce dernier!

[patricktoulon]

re
erreur jamais renconté!!!?????
tape dans google"erreur deconecté de ses client excel vba" tu va te sentir moins seul

[LuckyNipple]

Oui je confirme que je ne suis pas le seul être sur terre à avoir rencontré le message d'erreur cité précédemment. Par contre, aucun des threads en question n'a pu m'aider dans mon cas bien précis.

[LuckyNipple]

Problème toujours pas résolu, un petit up. On sait jamais...

[Evemas29]

Bonjour,
Il semblerait que j'ai le même pb ! En ce qui me concerne, le comportement du script est aléatoire :quelquefois il se termine et crée le fichier pdf dans le répertoire de destination demandé et d'autres fois il ne se finit pas et renvoie un message d'erreur comme celui-ci :
J'ai bien entendu vérifié et revérifié le code, le chemin, etc.
Ce qui est particulièrement troublant, c'est que lorsque ce message apparaît, je clique sur fin, puis je relance le script et au bout d'un "certain nombre" de fois(très aléatoire, quelquefois 1 ou quelquefois 5), cela finit par fonctionner et je trouve bien le fichier pdf à sa place.
Apparemment, lorsque le script échoue, un fichier temporaire est généré dans le répertoire.
Le même fichier est installé sur 2 autres postes disposant de la même config W10 et d'Excel 2016 (pas en réseau), et tout fonctionne parfaitement.
Quelqu'un a-t-il déjà eu ce pb ?
Merci d'avance.