Ouvrir un fichier PDF depuis un bouton du USF

Bonjour,

Je fais face à un problème. Je n'arrive pas à ouvrir le fichier pdf selon le code suivant :

'Pour le formulaire

Private Sub Userform_Initialize()

Set Ws = Sheets("JAN")

With Me.ComboBox1

For J = 10 To Ws.Range("C" & Rows.Count).End(xlUp).Row

.AddItem Ws.Range("C" & J)

Next J

End With

End Sub

'Ouvrir le dossier des BC'

Private Sub CommandButton7_Click()

Dim MonDossier As String

MonDossier = "\\CHEMINVERSLESEVEUR\1_Bon de Commande\2023"

Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbMaximizedFocus

End Sub

'Ouvrir le PDF du BC'

Private Sub CommandButton9_Click()

Dim Cible As String, LeBC As String

Dim OuvrirFichier As Object

If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub

LeBC = Me.ComboBox1

Cible = "\\CHEMINVERSLESERVEUR\2_Factures\2023" & "FACT" & "BC" & LeBC & ".pdf"

Set OuvrirFichier = CreateObject("Scripting.FileSystemObject")

With OuvrirFichier

If (.FileExists(Cible)) Then

Shell "C:\WINDOWS\explorer.exe """ & Cible & "", vbNormalFocus

End If

End With

End Sub

Mes fichiers pdf sont nommés comme suit : FACT BC 1.pdf

NOTA : Pour ouvrir le dossier, le code fonctionne.

NOTA 2 : J'aimerais si possible votre aide pour adapter le code à tous les onglets du fichier : FEV, MAR, AVR, etc.

Merci d'avance

Bonjour,

Ce code devrait fonctionner

'Ouvrir le PDF des factures'
Private Sub CommandButton9_Click()
    Dim Cible As String, LeBC As String
    DimOuvrirFichier As Object, shl As Object

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub

    LeBC = Me.ComboBox1
    Cible = "\\CHEMINVERSLESERVEUR\2_Factures\2023" & "FACT" & "BC" & LeBC & ".pdf"
    Set OuvrirFichier = CreateObject("Scripting.FileSystemObject")
    Set shl = CreateObject("Shell.Application")
    With OuvrirFichier
        If (.FileExists(Cible)) Then
            shl.ShellExecute Cible, "", "", "open", 1
        End If
    End With

End Sub

Bonjour Thev et merci pour la réponse.

Hélas non, cela ne fonctionne pas. Aucune réaction, comme avec le code d'origine.

Avez-vous vérifié que la condition

If (.FileExists(Cible)) Then

était bien remplie ?

Oui, le fichier est bien présent dans le répertoire de destination. Au format :

FACT BC 1.pdf

Oui, le fichier est bien présent dans le répertoire de destination.

Certes, mais cela ne préjuge pas que toutes les instructions sont bien correctes: faites une exécution pas à pas et vérifiez que vous bien par l'instruction

shl.ShellExecute Cible, "", "", "open", 1

J'ai lancé une exécution pas à pas, tout fonctionne correctement.

Bonjour, est ce que quelqu'un aurait une solution à m'apporter?

En vous remerciant.