Discussion :

[hydromacque]

Bonjour à toutes et à tous

Je suis enseignant et je développe de manière très modeste en vba pour me faciliter la tâche au niveau de mes classeurs excel. Je me permets de solliciter votre aide car je sèche complètement sur un problème.

Mon classeur vise à créer un tableau de gestion des conseils de classe de mon établissement avec différentes possibilités dont la création d'un fichier pdf présentant l'ensemble des conseils de classe programmés.

L'outil fonctionnait exactement comme je le souhaitais jusqu'à maintenant sur n'importe quel poste (qu'il soit personnel ou sur le réseau de l'établissement). Depuis peu, le poste qui utilise ce classeur a été remplacé, et depuis ce temps là, une erreur d'exécution s'affiche : "Erreur d'exécution 5 : Argument ou appel de procédure incorrect". J'ai essayé de faire plusieurs manip, éplucher les différents forums, mais en vain... Le débogueur m'indique que l'erreur vient de la ligne en rouge du code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
periode = Range("O2").Value 'la cellule O2 précise le mode de synthèse : trimestre ou semestre
 
fichier = ActiveWorkbook.Path & "\conseils_de_classe_" & periode & "_" & Jour & "-" & Mois & "-" & an & ".pdf"
 
    If Dir(fichier) <> "" Then
        If MsgBox("Le fichier " & "conseils_de_classe_" & Cells(2, 15).Value & "_" & Jour & "-" & Mois & "-" & an & ".pdf" & "existe déjà : voulez vous l'écraser?", vbYesNo + vbExclamation + vbDefaultButton2, "Fichier déjà existant !") = vbYes Then
            Worksheets("COPY").Range("A1:I71").ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=fichier, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
        Else
                nom_fichier = InputBox("Quel nom voulez vous donner à ce fichier ?")
                If nom_fichier = "" Then
                    Call erase_copy
                    Exit Sub
                Else
                    Worksheets("COPY").Range("A1:I71").ExportAsFixedFormat Type:=xlTypePDF, _
                    Filename:=ActiveWorkbook.Path & "\" & nom_fichier, _
                    Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, _
                    IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True
                End If
        End If
    Else
        Sheets("COPY").Range("A1:I71").ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=fichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
 
  End If

Je me permets d'insister sur le fait que l'erreur ne s'affiche que lorsque la macro est lancée sur ce poste uniquement.

Je vous remercie d'avance de votre aide

Hydromacque

[keygen08]

Bonjour,
est ce que tu as essayé d'ouvrir ce pdf en manuel, est ce que cela fonctionne.
Reader est t-il installé sur ce poste.
reader est il de la meme version que sur les autres postes.
y a t-il un generateur de pdf sur ce poste.
est ce que les versions d'os sont les memes, y compris mise a jour.
en generant un pdf depuis une autre programme, celui ci s'ouvre t-il correctement.
l'execution avec les autres conditions IF de la macro ne plante t-il pas.

(as tu essayé en mettant cette ligne en commmentaire.
as tu tenté une execution en pas a pas et en négligeant cette ligne, n'y as t-il pas d'erreur après.)il semblerait que non puisque la macro fonctionne sur d'autres postes.


j'ai que des idées un peu simples mais etant dans l'impossibilité de provoquer cette erreur, il vas etre difficile de tomber juste.

[hydromacque]

BOnjour et merci d'avoir répondu si vite...

J'ai en effet essayé l'ensemble des suggestions que tu proposes : j'ai essayé sur plusieurs OS et cela fonctionne sans problème, par contre, concernant les MAJ, rien n'est moins sur car le poste en question est sur un serveur administrateur...

Lorsque j'essaye de mettre la ligne en commentaire, une erreur du débogueur s'affiche (Erreur de compilation Attendu : paramètre nommé) et toutes les lignes de commande se mettent en rouge:

Code :

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

1
2
3
4
5
6
        Sheets("COPY").Range("A1:I71").ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=fichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
 '       OpenAfterPublish:=True

POur information, reader est installé sur le poste en question. Ce qui me semble bizarre c'est que l'ouverture du pdf est impossible mais dans le dossier cible, il n'a pas été créé avant que l'erreur s'affiche...

Par contre, je n'ai pas essayé de générer un pdf avec un autre programme, je vais essayer Lundi et je te tiens au courant...

Encore merci...