Exporter une feuille de calcul Excel en PDF via BVA Résolu

Question

Bonjour,

Pour faciliter la mise à jour d’un site Internet, je cherche à exporter une feuille de calcul (ACTIVE) en PDF via VBA. L’exportation se fait dans un répertoire « TESTS PDF » Je ne sais pas si il faut le chemin complet, cela peut varier en fonction des différents utilisateurs. A savoir que nous utilisons Dropbox pour partager nos fichiers pour que les macros puissent fonctionner.

Noms des feuilles possibles :

Il y a automatiquement 1 feuille active et 2 autres cachées (xlsheethidden)

Match_10eq

Match_8eq

Match_6eq

Zone à Exporter (feuille active seulement) A1 : T61 pour les 3 feuilles

Nommer le Fichier PDF à l’identique que le nom du fichier

La macro s’effectuera à la fermeture du fichier

Merci beaucoup, cordialement

Windows / Edge 126.0.0.0

danielc0 · Answer

Bonjour,

On a besoin du chemin absolu. Est-ce qu'il y a plusieurs dossiers possibles ? Précise ce que tu veux faire exactement. Exporter 3 plages de cellules dans un seul fichier PDF ? Dans 3 fichiers PDF ? Quel sera le nom du (des) fichier(s) résultant(s) ?

Daniel

xav62000 · Answer

Bonjour Daniel,

L'exportation se fait dans le dossier courant, car selon moi chaque Utilisateur n'a pas le même chemin d'accès.

J'ai, mentionné qu'il faut exporter Uniquement la feuille active qui peut s'appeler soit match_10eq - Match_8eq - Match_6eq selon le cas (donc je pense qu'il faut vérifier si l'un e des 3 feuilles est active ou non)

la sélection de la page le range si j'ai bien compris va de A1 à T61 dans tous les cas.

Le nom attribué du fichiers PDF doit se nommer à l'identique du fichier en cours.

Xavier si cela peut etre utile (il y a 1 MDP de protection dans le VBA") je t'envoi cela en privé

https://www.cjoint.com/c/NGelngFJZb2

danielc0 · Answer

Essaie :

Sub ExportPDF()
  If ActiveSheet.Name = "Match_10eq" Or ActiveSheet.Name = "Match_8eq" Or _
    ActiveSheet.Name = "Match_6eq" Then
    Range("A1:T61").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  Else: MsgBox "nom de la feuille incorrect"
  End If
End Sub

Daniel

xav62000 · Answer

J'ai copié le code dans le Thiswoorkbook à la fermeture du fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Un petit message d'erreur : "Nom de la feuille Incorrect" je présume que c'est la Msg Box.

Mais je ne vois pas le fichier PDF qui devrait se copier dans le même répertoire que le fichier initial.

Sinon on peut essayer de le copier selon le chemin suivant C:\Users\user\Dropbox	ests pdf

danielc0 · Answer

Ce message indique que la feuille active n'est pas l'une des trois feuilles indiquées. Il n'y a donc pas de création de fichier PDF.

Daniel

xav62000 · Answer

et portant si voir copie d'écran ci-dessous

danielc0 · Answer

Voici ce que j'obtiens :

https://www.cjoint.com/c/NGem4pWlqYD

Poste le code que tu utilises.

Daniel

xav62000 · Answer

Je crois que j'ai mis une coche. Mais il faut que la procedure soit imperativement à la fermeture du fichier pour exporter le PDF

danielc0 · Answer

Bizarre. renvoie-moi le classeur STP.

Daniel

xav62000 · Answer

J'ai collé ton code dans le module 1 puis dans le this woorkbook, j appelle la procedure call ExportPdf

https://www.cjoint.com/c/NGentMzdCE2

danielc0 · Answer

Ca fonctionne ici. Tu as toujours le message d'erreur ? Essaie comme ça, si la feuille n'est pas la bonne, j'ai ajouté un msgbox avec le nom de la feuille aactive.

xav62000 · Answer

tu transmets le fichier pour voir !

xav62000 · Answer

J'ai compris ce qu'il se passe.

En fait la feuille Match_eq10 n'est pas active. Je viens de sélectionner la feuille concernée et fermer le classeur et ça fonctionne (pas dans le bon dossier mais c'est pas grave).

En revanche, si je me positionne sur une autre feuille et que je ferme le classeur alors ça ne fonctionne pas. Donc pour moi il ne faut pas utiliser Active.sheet ou alors il faut l'activer avant de fermer.

Mais je ne suis pas expert la dedans

danielc0 · Answer

"En revanche, si je me positionne sur une autre feuille et que je ferme le classeur alors ça ne fonctionne pas"

Eh, non, puisqu'il faut exporter une des 3 feuilles qui doit être la feuille active ! Sinon, comment savoir quelle feuille exporter ?

Daniel

danielc0 · Answer

Peut-être la feuille non masquée ?

Daniel

xav62000 · Answer

Sub ExportPDF()
 
    If Worksheets("Match_10eq").Visible Then
        Worksheets("Match_10eq").Activate
    ElseIf Worksheets("Match_8eq").Visible Then
        Worksheets("Match_8eq").Activate
    Else
        Worksheets("Match_6eq").Activate
    End If
 
    Range("A1:T61").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Le code ci-dessus fonctionne bien. Il me reste à trouver de copier le PDF selon le chemin c:\dropbox	ennis de table\PDF

danielc0 · Answer

Bonjour,

Essaie :

Sub ExportPDF()
  Dim Fich As String
  If Worksheets("Match_10eq").Visible Then
    Worksheets("Match_10eq").Activate
  ElseIf Worksheets("Match_8eq").Visible Then
    Worksheets("Match_8eq").Activate
  Else: Worksheets("Match_6eq").Activate
  End If
  Fich = ThisWorkbook.Name
  Fich = Left(Fich, InStrRev(Fich, ".") - 1) & ".pdf"
  Range("A1:T61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          "c:\dropbox	ennis de table\PDF" & Fich, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Daniel

xav62000 · Answer

Bonsoir Daniel,

C'est bien ce que je pensais, j'ai fais un test avec un autre utilisateur des fichiers partagés et ça bugg car le chemin d'accès est différent.

Je pense que le plus simple, bien qu'il ne me plait pas serait que le fichier PDF s'enregistre dans le même dossier que le fichier excel.

Est ce possible ??

Merci

danielc0 · Answer

Bonjour,

Essaie :

Sub ExportPDF()
  Dim Fich As String
  If Worksheets("Match_10eq").Visible Then
    Worksheets("Match_10eq").Activate
  ElseIf Worksheets("Match_8eq").Visible Then
    Worksheets("Match_8eq").Activate
  Else: Worksheets("Match_6eq").Activate
  End If
  Fich = ThisWorkbook.Name
  Fich = Left(Fich, InStrRev(Fich, ".") - 1) & ".pdf"
  Range("A1:T61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          ThisWorkbook.Path & "\" & Fich, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Daniel

danielc0 · Answer

Bonjour,

Essaie :

Sub ExportPDF()
  Dim Fich As String
  If Worksheets("Match_10eq").Visible Then
    Worksheets("Match_10eq").Activate
  ElseIf Worksheets("Match_8eq").Visible Then
    Worksheets("Match_8eq").Activate
  Else: Worksheets("Match_6eq").Activate
  End If
  Fich = ThisWorkbook.Name
  Fich = Left(Fich, InStrRev(Fich, ".") - 1) & ".pdf"
  Range("A1:T61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          ThisWorkbook.Path & "\" & Fich, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Daniel

xav62000 · Answer

Bonjour

Merci

Exporter une feuille de calcul Excel en PDF via BVA - Page 2

Newsletters