Discussion :

[zaza62000]

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 :

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

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

[Nain porte koi]

Hello,

qqchose comme ça ?!

Code :

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

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

[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

[Nain porte koi]

à 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 :

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

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

[zaza62000]

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 :

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

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