Exporter une feuille de calcul en PDF via VBA

Version imprimable

Pour faciliter la mise à jour d’un site Internet, je cherche à exporter une feuille de calcul en PDF via VBA à la fermeture du fichier. L’exportation se fait dans un répertoire c:\dropbox\tennis de table\PDF

Mon souci c’est de savoir quelle est l’une des 3 feuilles ci-dessous visible dans le classeur : Il y a automatiquement 1 feuille visible et 2 autres cachées (xlsheethidden)

Match_10eq
Match_8eq
Match_6eq

Le code ci-dessous fonctionne, mais pas comme je le souhaite car dans ce cas présent si je ne suis pas positionné sur l’une des 3 feuilles nommées (donc active) ci-dessus ça ne fonctionne pas et c'est gênant pour les utilisateurs.
Donc selon moi l'idée serait de faire un test si l'une des 3 feuilles est visible, on l'active et voilà
Code:

1 2 3 4 5 6 7 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
Reste aussi le problème de copier le fichier selon le chemin c:\dropbox\tennis de table\PDF
Merci pour votre aide
Cordialement

Hello,

qqchose comme ça ?!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
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

04/07/2024, 21h44
zaza62000

Bonsoir, Merci c'est bien cela que j'attendais.

Si possible copier le fichier PDF selon le chemin c:\dropbox\tennis de table\PDF

Cependant, j'ai un peu peur car il s'agit de fichiers partagés avec une quarantaine d'utilisateurs et si je me souviens bien les chemins d'accès sont différents selon les utilisateurs c:\user\users\dropbox\tennis de table\pdf

Merci beaucoup
Bonne soirée

à la condition que le chemin du dossier dropbox n'ai pas été modifié lors de l'installation, ça devrait être un truc comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
Nom_Dossier = Environ("USERPROFILE") & "\dropbox\tennis de table\pdf\"
Nom_Fichier = "machin.pdf"
 
 
Range("A1:T61").ExportAsFixedFormat _
    Filename:=Nom_Dossier & Nom_Fichier, _
    Type:=xlTypePDF, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Bonjour,
les chemins d'accès sont différents d'un utilisateur à un autre donc je suis obligé de créer le PDF là ou se trouve le fichier Excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
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