Discussion :

[Le Samaritain]

Bonsoir,

J'essai depuis plusieurs jours de trouver sur les différents sites une macro me permettant d'enregistrer plusieurs feuilles excel en Pdf avec pour nom la valeur d'une cellule. Malheureusement sans résultat !
Je suis perdu, j'ai fait plusieurs tentative et à chaque fois la réponse est

La méthode Save de l'objet Workbook a échoué

Pouvez-vous m'aider les amis ?

Voici la macro utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Chemin = "G:\Sports\Préparation Physique\Préparation Athlètes Haut Niveau.pdf"
    Texte = Sheets("Fiche Athlètes").Select
        	Range("A15").Select
 Sheets(Array("Acceuil", "Sommaire", "Fiche Athlètes", "Tableau Fréquence Cardiaque", "Suivi Physique", "Bloc", "Objectif des Cycles", "Objectif Cycle 1", "Objectif Cycle 2", "Objectif Cycle 3")).Select   
Application.DisplayAlerts = False
     ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
    Filename:=Chemin & Texte, _
    Quality:=x1QualityMinimum, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Dans l'attente de vous lire, je remercie d'avance.

[jerome.vaussenat]

Salut,

Voici une proposition.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub toto()
Texte = Sheets("Fiche Athlètes").Range("A15").Value
Chemin = "G:\Sports\Préparation Physique\"
 
Sheets(Array("Acceuil", "Sommaire", "Fiche Athlètes", "Tableau Fréquence Cardiaque", "Suivi Physique", "Bloc", _
        "Objectif des Cycles", "Objectif Cycle 1", "Objectif Cycle 2", "Objectif Cycle 3")).Select
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
    Filename:=Chemin & Texte, _
    Quality:=x1QualityMinimum, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

Je suis parti du postulat que le nom du fichier doit être le contenu de la cellule A15 de la feuille "Fiche Athlète.

En espérant que c'est bien çà.

GG

[Le Samaritain]

Bonjour Jérôme,

Je te remercie pour ta réactivité, j'ai essaye ta proposition mais malheureusement le résultat est le même
En fait le PDF se crée sans problème, quoique j'aurais préféré qu'il s'enregistre dans le répertoire du fichier excel, je suppose que c'est une erreur de cheminement de ma part.
En fait, mon problème c'est que, quand je ferme le fichier et qu'ensuite je l'ouvre, excel m'annonce qu'il y a un problème dans le contenu et me propose de réparer le fichier (Voir Pj 1), j'accepte et là, la boite de dialogue s'affiche "La méthode Save de l'objet Workbook a échoué" (voir PJ 2).

Dans l'attente de te lire, je te souhaite une bonne journée

[MarcelG]

Bonjour,

Jérôme,

le Type est

Code :

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

xlTypePDF

avec la lettre "l" et non le chifffre 1

De plus, les arguments Quality et suivants étant standard, le code peut s'en passer.
Ce même si, la plupart du temps, il est opportun de déclarer l'ensemble des arguments..

Remarque:
Je me suis toujours posé la question quant à l'obligation de sélectionner des feuilles pour pouvoir les exporter.
J'ai effectué plusieurs tentatives (affectation de variable à l'Array...) sans aboutir.

[jerome.vaussenat]

Salut,

Voici le code pour enregistre le pdf dans le dossier du classeur Excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub toto()
Texte = Sheets("Fiche Athlètes").Range("A15").Value
Chemin = ThisWorkbook.Path & "\"
 
Sheets(Array("Acceuil", "Sommaire", "Fiche Athlètes", "Tableau Fréquence Cardiaque", "Suivi Physique", "Bloc", _
        "Objectif des Cycles", "Objectif Cycle 1", "Objectif Cycle 2", "Objectif Cycle 3")).Select
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
    Filename:=Chemin & Texte, _
    Quality:=x1QualityMinimum, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

Pour le problème de fichier endommagé, là je suis sur la réserve. C'est jamais bon et surtout ça ne va jamais en s’arrangeant.
Tu peux tout de même ller voir là :
https://support.office.com/fr-fr/art...a-801ddcd4ea53

GG