image selon valeur dela cellule

[David45]

bonsoir a tous

japprecie beaucoup se forum qui ma permis de debuté en vba

voila j'aimerais savoir comment faire pour pouvoire integre une image selon la valeur d une cellule

du genre
DD = ActiveCell.Value
UserForm2.Image1.Picture = LoadPicture_('C:\\Documents and Settings\\FAMILLE BELLENGER\\Mes documents\\[DD].gif')
j' ai essayer pas mal de chose mais je seche

en attendant une reponce de votre part

veuillez passer une agreable soiré

merci david B)

 

[pierrejean]

bonsoir david45

la syntaxe pour importer l'image dont le nom est dans la cellulle de la 1ere feuille

en supposant que les images sont dans le repertoire Documents and Sttings

UserForm1.Image1.Picture = LoadPicture('C:as Documents and Settings as' & Sheets(1).Cells(1, 1) & '.gif')

note les antislash ne passant pas sont remplacés par as

 

[David45]

RE BONJOUR A TOUS

Merci pour ton aide
j'ai du laissé les antislash

le code donne cela
UserForm1.Image1.Picture = LoadPicture('C:\\Documents and Settings\\FAMILLE BELLENGER\\Mes documents\\' & Sheets(1).Cells(X, 1) & '.gif')

merci encor et a plus sur le forum

david

 

[pierrejean]

bonjour david

je m'etais mal exprimé:
les antislash doivent bien exister dans le code mais les messages ici ne les prennent pas en compte c'est pourquoi,lorsqu'il y en a je les remplace par as