Discussion :

[tAKAmAkA]

Bonjour à tous,

J'ai copié ma bdd (Dorsale/frontale) sur un nouveau poste Vista.
J'utilise le contrôle activx AcroPDF pour visualiser les pdf dans un formulaire(ok sous XP).
Ca ne marche plus!
NB: j'ai recréé toutes les references et installé Adobe Reader 709 (L'installation de la version 8 étant refusée par Vista: erreur à l'installation de l'assembly...)

Merci de votre attention

[tAKAmAkA]

Si je crée un nouveau formulaire avec seulement

Code :

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

1
2
3
Private Sub form_Current()
    Me!AcroPDF0.src = Me!Fichier
End Sub

Ca fonctionne sur le poste Vista

Par contre, ce code qui est ok sur un poste XP ne fonctionne pas sur Vista

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Private Sub form_Current()
Me.txtDatabase.Value = DLookup(Replace("[Cst1]", "'", "''"), "tblConstante", "[CstId] = 1")
If Len(Me.Docnum) > 0 Then
    Me.Caption = "Fiche détaillée pour le document n° " & Me.Docnum
    Dim catch As String
    Dim extension As String
    Dim FichierExiste As String
    Me.cmdExplorateur.Visible = False
    Me.cmdConnecterLecteurReseau.Visible = False
    Me.cmdLecteurCD.Visible = False
    Me.etqOuvrezLeDocument.Visible = False
    Me!AcroPDF1.Visible = False
    Me!imgPhoto.Visible = False
    Me!OleWord.Visible = False
    Me!OleExcel.Visible = False
 
    If Nz(Me.Fichier, "") = "" Then 'Le champ Fichier est vide
        cmdExplorateur.Visible = True
        cmdExplorateur.Caption = "Le fichier n'a pas été renseigné. Cliquer pour le chercher"
    Else
        On Error GoTo catch
        FichierExiste = Nz(Dir(Me.Fichier), "")
        Debug.Print "FichierExiste    " & FichierExiste
        If FichierExiste = "" Then  'Le champ Fichier n'est pas vide mais le fichier n'existe pas
            Me!AcroPDF1.Visible = False
            Me!OleWord.Visible = False
            Me!OleExcel.Visible = False
            Me!imgPhoto.Visible = False
            cmdExplorateur.Visible = True
            cmdExplorateur.Caption = "Le fichier renseigné n'existe pas ou le chemin est incorrect. Cliquer pour effectuer une recherche"
 
        Else    'Le champ Fichier n'est pas vide et le fichier existe
 
            extension = Right(Trim(Me.Fichier), 3)
            Select Case extension
                Case "pdf"
                    Me!AcroPDF1.src = Me.Fichier
                    Me!AcroPDF1.Visible = True
 
                Case "doc"
                    Me.OleWord.SourceDoc = Me.Fichier
                    Me!OleWord.Visible = True
                    Me.OleWord.Action = acOLECreateEmbed
                    Me.OleWord.Action = acOLEActivate
                    Me.OleWord.SizeMode = acOLESizeZoom
                    Me.OleWord.Action = acOLEClose
 
                Case "xls"
                    Me.OleExcel.SourceDoc = Me.Fichier
                    Me!OleExcel.Visible = True
                    Me.OleExcel.Action = acOLECreateEmbed
                    Me.OleExcel.Action = acOLEActivate
                    Me.OleExcel.SizeMode = acOLESizeZoom
                    Me.OleExcel.Action = acOLEClose
 
                Case "jpg"
                    Me.imgPhoto.Picture = Me.Fichier
                    Me!imgPhoto.Visible = True
                    DisplayPhoto
 
                Case Else   'Le document n'est pas dans un format habituel
 
                    etqOuvrezLeDocument.Visible = True
 
            End Select
        End If  'FichierExiste = ""
    End If  'Nz(Me.Fichier, "") = ""
Else
    Me.Caption = "Saisie d'un nouveau document"
    Me!AcroPDF1.Visible = False
    Me!OleWord.Visible = False
    Me!OleExcel.Visible = False
    Me!imgPhoto.Visible = False
    cmdExplorateur.Visible = False
End If  'Len(Me.Docnum) > 0
 
If Me.Docnum.Locked = False Or Me.NewRecord Then Verrouille
 
    ' si c'est bloqué on change le nom du bouton
    If Me.Docnum.Locked Then
        Me.cmdModifier.Caption = "Modifier"
    Else
        Me.cmdModifier.Caption = "Enregistrer"
    End If
Exit Sub
catch:
    Select Case Err.Number
        Case 0
            'Evite l apparition dune msg box contenant 0 générée par Case else
        Case 52
            Dim LettreLecteur As String
            LettreLecteur = Left(Me.Fichier, 1)
            Select Case TypeLecteur(LettreLecteur)
                Case "Inconnu"
                    MsgBox "Le lecteur " & LettreLecteur & " demandé est inconnu"
                Case "Amovible"
                    MsgBox "Le lecteur amovible " & LettreLecteur & " n'est pas disponible"
                Case "Fixe"
                    MsgBox "Le lecteur " & LettreLecteur & " n'est pas disponible "
                Case "Réseau"
                    'Procedure de connexion lecteur reseau
                    cmdConnecterLecteurReseau.Visible = True
                    cmdConnecterLecteurReseau.Caption = "Le lecteur réseau désigné par la lettre " & LettreLecteur & " n'a pas répondu . Cliquer pour tenter de le connecter"
                Case "CD-ROM"
                    Me.cmdLecteurCD.Visible = True
                    Me.cmdLecteurCD.Caption = "Le lecteur CD désigné par la lettre " & LettreLecteur & " n'est pas disponible / Le CD est absent"
                Case "Disque RAM"
                    MsgBox "Le lecteur de disque RAM " & LettreLecteur & " n'est pas disponible"
                Case "Introuvable"
                    MsgBox "Le lecteur est introuvable"
            End Select  'TypeLecteur(LettreLecteur)
    End Select  'Err.Number
Err.Clear
End Sub

[tAKAmAkA]

Problème résolu suite maj Adobe en V8 et création d'un nouveau controle AcroPdf.