merci pour l optimisation
mais le code ne fait rien , si il trouve le fichier dans le 1er repertoire ca marche , mais s il trouve rien , il ne va meme pas chercher dans le 2eme repertoire, il va juste ouvrir acrobat reader et mets un message d erreur , au lieu de pas de PDF
Il fallait juste remplacer ainsi dans le code initial tout en gardant le reste de la macro
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 18 to 21, 64 to 71
If Target <> "" Then
MonDir = "K:\Solution\Final\"
On Error GoTo GestionDesErreurs
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & MonDir & Target.Value & ".pdf"
On Error GoTo 0
End If
End Select
GestionDesErreurs:
If Err.Number <> 0 Then
Err = 0
' L'ouverture dans le second répertoire ici
MsgBox "Pas de PDF"
Exit Sub
End If
End sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 18 To 21, 64 To 71
If Target <> "" Then
MonDir = "C:\temp\"
On Error GoTo GestionDesErreurs
'Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & MonDir & Target.Value & ".pdf"
MsgBox MonDir & Target.Value & ".pdf"
On Error GoTo 0
End If
End Select
GestionDesErreurs:
If Err.Number <> 0 Then
Err = 0
' L'ouverture dans le second répertoire ici
MsgBox "Pas de PDF"
Exit Sub
End If
End Sub
en gros dans la 3eme colonne , tu tappes le nom d un fichier pdf
genre tu tappes r1 , il va t ouvrir dans c:\temp\ , le fichier r1.pdf
mais je veux que s il ne le trouve pas, qu il aille dans le fichier c:\temp2\ par exemple , rechercher le fichier r1.pdf, et s il ne le trouve pas , qu il mette pas de PDF
Bonsoir Aksool, JeanMarcel, Jean Marie , yves,
alors moi je ne vois pas ce que tu reproches à ce code
je viens de le tester et chez moi il marche !!!
est-ce que tu es sur de l'avoir mis ou il faut ?
a+
Papou
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Column
Case 18 to 21, 64 To 71
If Target <> "" Then
Rep = Array("Final1", "Final2")
For i = 0 To UBound(Rep)
f = "K:\Solution\" & Rep(i) & "\" & Target & ".Pdf"
If Dir(f) <> "" Then
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & f
Exit Sub
End If
Next
End If
End Select
MsgBox "fichier introuvable"
End Sub
Voir la liste des répertoires à scruter ou sinon préciser où rechercher (dossiers, disque complet, ordi...)
A+
kjin
Paritec, ben chez moi il marche pas ( le 2eme message de pdf s affiche pas , s il trouve pas le fichier, il ouvre acrbat et message d erreur , pas de message "pas de PDF"
c est tout