Discussion :

[nacereddine.mourad]

Bonjour et merci pour tout votre aide

Information :
- dans la feuille (P associer arret) cliquer sur le bouton (Chercher le plan de l'article)
- un UserForm8 s’affiche écrire moteur ou 555 dans TextBox2
- Problématique : trouver le fichier pdf s'il existe dans ThisWorkbook.Path & "\Article et RDA\"

module cherché un fichier

Code :

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

1
2
3
4
5
6
7
8
9
Public Function FichierExiste(MonFichier As String)
'par Excel-Malin.com ( http://excel-malin.com )
 
   If Len(Dir(MonFichier)) > 0 Then
      FichierExiste = True
   Else
      FichierExiste = False
   End If
End Function

Objectif :
- avec CommandButton16 (Voir plan article) je voudrai chercher le fichier pdf dans le dossier ThisWorkbook.Path & "\Article et RDA\" et l’ouvrir
il me manque la moitié du code

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
16
17
18
19
20
21
22
Private Sub CommandButton16_Click()
Dim MonFichier As String
Dim yourmsgbox As Integer
MonFichier = ThisWorkbook.Path & "\Article et RDA\" & TextBox7.Text & " " & "Article" & " " & TextBox8.Text & " " & "Rep" & " " & TextBox10.Text & ".pdf"

If FichierExiste(MonFichier) = False Then

yourmsgbox = MsgBox("Fichier inexistant, voulez vous joindre un fichier pdf", vbOKCancel, "confirmation")
If yourmsgbox = vbOK Then
MonFichier = Application.GetOpenFilename(",*.pdf")
FileCopy MonFichier, ThisWorkbook.Path & "\Article et RDA\" & TextBox7.Text & " " & "Article" & " " & TextBox8.Text & " " & "Rep" & " " & TextBox10.Text & ".pdf"


Else
'open
'show
'MonFichier , ThisWorkbook.Path & "\Article et RDA\" & TextBox7.Text & " " & "Article" & " " & TextBox8.Text & " " & "Rep" & " " & TextBox10.Text & ".pdf"

End If

End If
End Sub

Merci encore et bonne continuation

[kiki29]

Salut,avec qqch de ce genre, en lui passant en paramètre ton fichier ( chemin+nom )

Code :

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

1
2
3
4
5
6
Private Sub OpenPDF(sFichier as string)
Dim WsShell As Object
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub

[nacereddine.mourad]

Merci kiki29, toujours aussi rapide et efficace,
J'ai mis le code dans un module?, mais je n'arrive pas a l'adapter dans mon précédent code

[kiki29]

Salut, allons quand même.

Code :

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

1
2
3
4
5
If FichierExiste(monfichier) = False Then
    .....
Else
    OpenPDF monfichier
End

If

[nacereddine.mourad]

désolée pour le retard, et encor merci, le code me donne :
Erreur de compilation, Sub ou Function non définie

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
16
17
18
19
20
21
22
Private Sub CommandButton16_Click()
 
Dim MonFichier As String
Dim yourmsgbox As Integer
MonFichier = ThisWorkbook.Path & "\Article et RDA\" & TextBox7.Text & " " & "Article" & " " & TextBox8.Text & " " & "Rep" & " " & TextBox10.Text & ".pdf"
 
If FichierExiste(MonFichier) = False Then
 
yourmsgbox = MsgBox("Fichier inexistant, voulez vous joindre un fichier pdf", vbOKCancel, "confirmation")
If yourmsgbox = vbOK Then
MonFichier = Application.GetOpenFilename(",*.pdf")
FileCopy MonFichier, ThisWorkbook.Path & "\Article et RDA\" & TextBox7.Text & " " & "Article" & " " & TextBox8.Text & " " & "Rep" & " " & TextBox10.Text & ".pdf"
 
 
Else
 
OpenPDF MonFichier
 
End If
End If
 
End Sub

[kiki29]

Salut, absolument consternant ..... le message est quand même explicite.

Placer la procédure/fonction absente dans le module ou la déclarer en public dans un autre module ?
Cela même si la construction de ta procédure est totalement bancale.

[nacereddine.mourad]

Bonjour et merci, Là je suis complétement perdu j'ai mis ce code dans un module, function non reconnu!

Code :

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

1
2
3
4
5
6
Private Sub OpenPDF(sFichier As String)
Dim WsShell As Object
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub

merci encor.