Bonsoir j'ai un fichier que je souhaite faire fonctionner sur 2 système d'exploitation mon souci sur un les programmes se trouve dans la partition D et dans l'autre dans la partition C
J'ai le code suivant dans mon vba ..
est'il possible de le modifier pour qu'il choisisse l'une ou l'autre partition suivant le PC ou je me connecte ( a savoir que dans mon pc a il se trouve dans le disque C et dans le pc B se trouve dans le disque D
je vous mets mon code actuelle dans ma feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
* *If Target.Column = 24 Then
* * * * On Error Resume Next
* * * * 'Workbooks.Open ActiveWorkbook.Path & "/couleur/" & Target.Value & ".pdf"
* * * *Shell ("c:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & ActiveWorkbook.Path & "\couleur\" & Target.Value & ".pdf"), vbMaximizedFocus
'mon autre programme se trouve
'Shell ("d:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & ActiveWorkbook.Path & "\couleur\" & Target.Value & ".pdf"), vbMaximizedFocus
* * * * If Err.Number <> 0 Then
* * * * * * Call MsgBox("Le fichier " & Chr(34) & " " & Target.Value & ".pdf " & Chr(34) & " n'éxiste pas dans le répertoire couleur.", vbCritical, "Manque fichier couleur")
* * * * * * Target.Select
* * * * End If
* * * * On Error GoTo 0
* * * * 'D:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe
merci d'avance de votre aide
je pense plus pour une question de système d'exploitation que d'excel mais on ne sait jamais
J'ai le code suivant dans mon vba ..
est'il possible de le modifier pour qu'il choisisse l'une ou l'autre partition suivant le PC ou je me connecte ( a savoir que dans mon pc a il se trouve dans le disque C et dans le pc B se trouve dans le disque D
je vous mets mon code actuelle dans ma feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
* *If Target.Column = 24 Then
* * * * On Error Resume Next
* * * * 'Workbooks.Open ActiveWorkbook.Path & "/couleur/" & Target.Value & ".pdf"
* * * *Shell ("c:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & ActiveWorkbook.Path & "\couleur\" & Target.Value & ".pdf"), vbMaximizedFocus
'mon autre programme se trouve
'Shell ("d:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & ActiveWorkbook.Path & "\couleur\" & Target.Value & ".pdf"), vbMaximizedFocus
* * * * If Err.Number <> 0 Then
* * * * * * Call MsgBox("Le fichier " & Chr(34) & " " & Target.Value & ".pdf " & Chr(34) & " n'éxiste pas dans le répertoire couleur.", vbCritical, "Manque fichier couleur")
* * * * * * Target.Select
* * * * End If
* * * * On Error GoTo 0
* * * * 'D:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe
merci d'avance de votre aide
je pense plus pour une question de système d'exploitation que d'excel mais on ne sait jamais
Dernière édition: