Discussion :

[Invité]

Bonjour,
j'ai récupéré plusieurs applications Access 2007 avec des formulaires contenant de nombreuses images pointant ... vers un chemin réseau!
Ce qui me génère plein de messages d'erreur à l'ouverture de chaque formulaire étant donné que les chemins ne sont pas identiques.

Ma question est toute simple: est-il possible d'automatiser le changement des ces chemins avec une fonction VBA?
Ou doit-on obligatoirement faire ça à la main?

[loufab]

Bonjour,

Non tu peux automatiser le changement.

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
Function ModifierForm()
    Dim frm As Object
    Dim vfrm As Form
    Dim ctrl As Control
    On Error GoTo err_verif
 
    For Each frm In CurrentProject.AllForms
        DoCmd.OpenForm frm.Name, acDesign
        Set vfrm = Forms("[" & frm.Name & "]")
        For Each ctrl In vfrm.Controls
            If TypeOf ctrl Is Image Then
                ctrl.Picture = "c:\nouveauchemin\nouvelleimage.jpg"
            End If
        Next
 
        DoCmd.Close acForm, frm.Name, acSaveYes
        Set vfrm = nothing
    Next
 
    Exit Function
 
err_verif:
    If Err.Number = 438 Then Resume Next
    Debug.Print Err.Number & " " & Err.Description
    Stop
    Resume
 
End Function

à adapter.

Cordialement,

[Invité]

Ah parfait, merci!