Discussion :

[tAKAmAkA]

Bonjour à tous,

Dans un formulaire je souhaite afficher un document dans un contrôle activ x ou un contrôle image ou autre...
J'utilise la fonction right sur le chemin complet du fichier (Me.Fichier) pour savoir quel contrôle utiliser.
Problème: right ne me donne pas l'extension à tous les coups

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 Commande115_Click()
Dim extension As String
extension = Right(Me.Fichier, 3)
        Debug.Print Me.Fichier
        Debug.Print "extension cd115 "; extension
            Select Case extension
                Case "pdf"
                    Me!AcroPDF1.src = Me.Fichier
                    Me!AcroPDF1.Visible = True
                    Me!imgPhoto.Visible = False
                    Me!OleWord.Visible = False
                    Me!OleExcel.Visible = False
                Case "jpg"
                    Me.imgPhoto.Picture = Me.Fichier
                    Me!AcroPDF1.Visible = False
                    Me!imgPhoto.Visible = True
                    Me!OleWord.Visible = False
                    Me!OleExcel.Visible = False
                    DisplayPhoto
                Case Else
            End Select
End Sub

Voici ce que me donne le debug.print

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
23
24
25
26
27
28
29
30
31
32
33
34
E:\Mes documents\Access\tblConventions.xls                                                                                                                                                                                                                    
extension cd115    
E:\Mes documents\Ma musique\A Sei Voci\Josquin Des Prez- Missa de Beata Vergine, Motets a la Vierge\AGNUS DEI (4).mp3
extension cd115 mp3
E:\Mes documents\Archives\ContSoc2003-Success.PDF                                                                                                                                                                                                             
extension cd115    
E:\Mes documents\Emploi\Gpe\CA_RTech_Franjjjjjj.doc
extension cd115 doc
E:\Mes documents\Archives\Acte naissance JJK011.pdf
extension cd115 pdf
E:\EntréeScanner\0690736597 070105.PDF
extension cd115 PDF
E:\Mes documents\Archives\IR2005RVI.PDF                                                                                                                                                                                                                       
extension cd115    
E:\Mes documents\Archives\DeclRess2005.PDF                                                                                                                                                                                                                    
extension cd115    
E:\Mes documents\Archives\Albinoni Corelli Vivaldi Pachelb.PDF
extension cd115 PDF
E:\Mes documents\Archives\Armstrong All Stars.PDF
extension cd115 PDF
E:\Mes documents\Archives\Armstrong Ellington.PDF
extension cd115 PDF
E:\Mes documents\Archives\Armstrong All Stars.PDF
extension cd115 PDF
E:\Mes documents\Archives\Albinoni Corelli Vivaldi Pachelb.PDF
extension cd115 PDF
E:\Mes documents\Archives\DeclRess2005.PDF                                                                                                                                                                                                                    
extension cd115    
E:\Mes documents\Archives\IR2005RVI.PDF                                                                                                                                                                                                                       
extension cd115    
E:\EntréeScanner\0690736597 070105.PDF
extension cd115 PDF
E:\Mes documents\Archives\Acte naissance JCY011.pdf
extension cd115 pdf

Merci pour votre aide

[Demco]

Essaie peut-être un :

Code :

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

extension = Right(Trim(Me.Fichier), 3)

[tAKAmAkA]

Merci demco, mais c'est pas mieux.

[Demco]

Alors peut-être :

Code :

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

1
2
3
Debug.Print Me.Fichier
extension = Right(Me.Fichier, 10)
Debug.Print "extension cd115 :" & extension

Je te fais faire des testes pour voir si quelque chose d'évidant en ressort ... qui sait !
Je vois au passage que tu utilises ";" pour la concaténation ? On utilise plutôt le "&" en VB, je ne connais pas trop les conséquences de l'utilisation du ";" ... peut-être également une voie.

[tAKAmAkA]

Voici le résultat

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
E:\Mes documents\Archives\Procuration vente xxxx.PDF                                                                                                                                                                                                        
extension cd115 :          
E:\Mes documents\Access\autoextensible.pdf
extension cd115 :nsible.pdf
E:\Mes documents\Archives\facture_Free_08_2006.pdf                                                                                                                                                                                                            
extension cd115 :          
E:\Mes documents\Archives\Prisée.pdf                                                                                                                                                                                                                          
extension cd115 :          
E:\Mes documents\Access\Option Explicit.doc                                                                                                                                                                                                                   
extension cd115 :          
E:\Mes documents\Archives\CA RIB Joint.pdf                                                                                                                                                                                                                    
extension cd115 :          
E:\Mes documents\Archives\CA RIB DAV JCY.pdf                                                                                                                                                                                                                  
extension cd115 :          
E:\Mes documents\Archives\Ged Dunod.PDF
extension cd115 : Dunod.PDF
E:\Mes documents\Access\classe.pdf                                                                                                                                                                                                                            
extension cd115 :

Ce sont toujours les même noms de fichiers qui renvoient un résultat

[tAKAmAkA]

Les enregistrements qui me posent problème sont ceux dont le champ "Fichier" à été renseigné grace à la boite de dialogue de la FAQ proposée par shwin ici.
Les autres, renseignés à la main ou par commandes SQL ne posent pas de problème.
Le code de shwin "m'altère" donc mon champ texte d'une façon invisible à l'oeil.
Avez vous déjà rencontré ce pb?
Je me réponds donc: oui, ici

Soit on a viré un bout de code pour un raison qui m'échappe (et on est au moins deux), soit shwin à mis à jour la FAQ...
Bonne nuit...
Et merci demco.