Discussion :

[Cdodunet]

Bonjour tout le monde,
Je suis probablement très nul puisque je n'arrives pas a faire une action certainement très simple :
Lorsque je crée un nouveau client, je souhaiterais pouvoir ajouter son logo dans mon formulaire. J'ai essayé des tas de choses, rien ne marche !
SVP, ayez pitié, si possible évitez le code, je n'y comprends rien, je préfèrerais des macros.
Merci d'avance à ceux (ou celles) qui voudront bien se pencher sur ce petit problème.

[Dolphy35]

Bonjour et bienvenue sur le forum,

tu peux t'inspirer de cet article http://dolphy35.developpez.com/artic.../formcontinus/

Dolphy

[Cdodunet]

Merci Dolphy35 pour ta réponse.
J'avais déjà vu ce tuto mais il m'avait paru trop compliqué et j'avais cherché vainement autre chose. Beaucoup d'essais après, j'obtiens (comment insérer ici une copie d'écran ?)...que ça marche toujours pas.
J'avais précisé "pas de code", c'est pas sympa ta solution!
Tu n'aurais pas quelque chose de plus simple ?
En tout cas, c'est exactement ce que je veux faire, sur un formulaire unique.Peut-être un petit effort supplémentaire? ...

[Cdodunet]

J'avances ! mais je suis toujours bloqué, un peu plus loin certes mais bloqué !
Y-a-t'il un Programmeur sur le forum ?
Merci d'avance

[Tofalu]

Votre contrôle destiné à recevoir l'image s'appelle bien image1 ?

Sinon, utilisez simplement un champ pièce-jointe.

[Cdodunet]

Merci Tofalu ! Bonjour à tous
Bien sûr, j'avais commencé avec un champ pièce jointe et ça marchait mais je voudrais réserver pièce jointes à autre chose.
Déjà, malgré

Code :

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

1
2
3
4
5
6
7
With oFD
    'Ajoute les filtres pour fichiers images et tous
    With .Filters
        .Clear
        .Add "Fichiers images", "*.jpg;*.jpeg;*.bmp;*.gif", 1
        .Add "Tous", "*.*", 2
    End With

j'obtiens dans la liste déroulante des chemins de fichiers et pas "*.jpg, *....
Ensuite, tout baigne puisque j'ouvre mes images, le bouton change de nom

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
'Renseignement du titre
    .Title = "Insérer le Logo Client"
    'Ouvre l'explorateur dans le fichier 'Mes documents' du User connecté.
    .InitialFileName = Environ("USERPROFILE") & "\Mes documents\LogosClients"
    'Interdit la multi sélection
    .AllowMultiSelect = False
    'Permet de choisir le mode d'affichage dans l'explorateur (ici apperçu)
    .InitialView = msoFileDialogViewPreview
    'Permet de personnaliser le bouton.
    .ButtonName = "Tu peux y aller"
    'Affiche la fenêtre
    If .Show Then
        On Error GoTo fini  'gestion erreur pour control importation
        'Retourne un erreur si pas fichier image.
        Me.Image1.Picture = .SelectedItems(1)
        'Vide du cadre image.
        Me.Image1.Picture = ""
        'Extraction du nom du fichier à copier.
        strFichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        'Copie du fichier sélectionné vers le sous dossier de la base.
        FileCopy .SelectedItems(1), CurrentProject.Path & "\images" & strFichier
        'Chargement dans control du chemin de l'image (sous dossier base).
        Me.Logo = CurrentProject.Path & "\images" & strFichier
        'Rafraîchit le Formulaire.
        Me.Refresh
    End If
End With
Exit Sub
fini:
    Select Case Err
        Case 2220
            MsgBox "L'importation du fichier ne c'est pas effectué normalement.", _
                vbCritical, "Erreur fichier Image"
        Case Else
            MsgBox Err.Number & Chr(13) & Err.Description
    End Select
End Sub

mais quand je valide, j'obtiens une erreur - 76 - Chemin d'accès introuvable
J'en peux plus !!!!!

J'aimerais avoir un dossier sur C: contenant ma base et un dossier "Logos Clients". Ma table s'appelle "T_Compte", le champ (texte) pour stocker le chemin de l'image s'appelle "Logo" et le contrôle "image" dans le formulaire s'appelle "image1"

Si ça dit à quelqu'un de m'aider ...

[samloba]

Ne crée pas de champ dans ta table. Renomme les logos avec l'identifiant du client. Sur l'événement sur activation du formulaire tu mets le code

Code :

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

1
2
 
image1.picture=idClient & ".jpg"