Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fichier tif dans un userform

Fichier tif dans un userform

11 réponses
Avatar
Albator V
Bonjour,

y'a t'il un moyen pour inserer une image a format tif dans un userform ? ya
t'il un activex qui peut faire ca ?
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Papy Bernard
Slt,
D' "Albator V"
Bonjour,

y'a t'il un moyen pour inserer une image a format tif dans un userform ?
ya
t'il un activex qui peut faire ca ?


Excel est un TABLEUR et n'a pas pour vocation à servir de trombinoscope.
Pour cela voir du côté d'Access, éventuellement !!!

--
A+
Papy Bernard (RTCien malgré lui)

Avatar
Albator V
Excel est peut etre un tableur mais il peut faire beaucoup de choses (et pas
que des tableaux) quand il est associé a vba...
il ne sert pas de trombinoscope pour les tif mais bizarre microsoft a penser
a le faire avec des bmp, gif et jpg... je vais demander le retrait de cette
fonction inutile pour excel (qui ne doit savoir faire que des tableaux) et
l'ajout dans acces (qui doit savoir faire des trombinoscope) ;)

Definition de Trombinoscope : Recueil de photographies représentant le
visage des membres d'une assemblée, d'une entreprise, d'une école, etc.

Aucun rapport avec ma demande...


Slt,
D' "Albator V"
Bonjour,

y'a t'il un moyen pour inserer une image a format tif dans un userform ?
ya
t'il un activex qui peut faire ca ?


Excel est un TABLEUR et n'a pas pour vocation à servir de trombinoscope.
Pour cela voir du côté d'Access, éventuellement !!!

--
A+
Papy Bernard (RTCien malgré lui)







Avatar
Clément Marcotte
On attend toujours le moyen facile d'imprimer des cartes de visite dans
Word.

"Papy Bernard" a écrit dans le message de news:

Slt,
D' "Albator V"
Bonjour,

y'a t'il un moyen pour inserer une image a format tif dans un userform ?
ya
t'il un activex qui peut faire ca ?


Excel est un TABLEUR et n'a pas pour vocation à servir de trombinoscope.
Pour cela voir du côté d'Access, éventuellement !!!

--
A+
Papy Bernard (RTCien malgré lui)






Avatar
Michel Pierron
Bonsoir Albator V;
Rien ne t'empêche de convertir préalablement ton image tiff en bmp.
Dans un module standard:

Option Explicit
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(8) As Byte
End Type

Private Type PICTDESC
cbSize As Long
picType As Long
hImage As Long
End Type

Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Private Declare Function CloseClipboard& Lib "user32" ()
Private Declare Function CopyImage& Lib "user32" _
(ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Private Declare Function IIDFromString Lib "ole32" _
(ByVal lpsz As String, ByRef lpiid As GUID) As Long
Private Declare Function OleCreatePictureIndirect _
Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID _
, ByVal fOwn&, ByRef ppvObj As IPicture) As Long

Sub Converter()
' Ici le chemin du répertoire de ton image tiff
Const sPath$ = "C:Documents and SettingsAlbatorMes documents"
' Ici le nom de ton fichier tiff
Const sTiff$ = "MonImage.tif"
Application.ScreenUpdating = False
Workbooks.Add
ActiveSheet.Pictures.Insert(sPath & sTiff).Select
Selection.CopyPicture xlScreen, xlBitmap
' Ici le chemin initial plus le nom de l'image sauvée en bmp
Call SaveToBmp(sPath & "NewImage.bmp")
ActiveWorkbook.Close False
End Sub

Private Sub SaveToBmp(ByVal sBmp As String)
Const PIID = "{7BF80981-BF32-101A-8BBB-00AA00300CAB}"
Dim iPic As IPicture, GD As GUID, PD As PICTDESC
Call IIDFromString(StrConv(PIID, vbUnicode), GD)
PD.cbSize = Len(PD): PD.picType = 1
OpenClipboard 0&
PD.hImage = CopyImage(GetClipboardData(2), 0, 0, 0, &H4)
CloseClipboard
Call OleCreatePictureIndirect(PD, GD, 1, iPic)
SavePicture iPic, sBmp
End Sub

Voilà; tu n'as plus qu'à insérer l'image bmp sur ton UserForm.
MP

"Albator V" a écrit dans le message de
news:
Bonjour,

y'a t'il un moyen pour inserer une image a format tif dans un userform ?
ya
t'il un activex qui peut faire ca ?


Avatar
Excel...lent
Bonjour à tous,

Ha bon EXCEL serait donc limité ben mince alors je vais revendre le mien
...-)))

Ok EXCEL est un tableur mais quel outil quand même ! Et oui on peut même
faire un trombinoscope avec, voir ici :

http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope

Et pas que ca, voir içi :

http://frederic.sigonneau.free.fr/

Cliquez sur "VBA Excel" puis choisir le lien " Excel, un tableur? Allons
donc"

Elle est pas belle la vie ?

Bon concernant ton soucis cher Albator V, en l'état actuel de mes
connaissance sur EXCEL, le format TIF n'est pas prévu. Mais ça
malheureusement tu t'en étais déjà aperçu.

Suggestion (peut-être d'ailleurs y a tu déjà pensé ) : Pourquoi ne pas
tranformer tes images format TIF en format BMP ou plus léger JPG ?
Paintbrush le fait très bien.

Cordialement.

Excel...lent
Avatar
Papy Bernard
Slt,

D' "Excel...lent"

Ha bon EXCEL serait donc limité ben mince alors je vais revendre le mien
...-)))

Ok EXCEL est un tableur mais quel outil quand même ! Et oui on peut même
faire un trombinoscope avec, voir ici :

Bonjour,


Quel programme, sous Windows, permettrait d'enchaîner, d'un **simple clic**,
l'affichage successif des graphes suivants :

De la France, et/ou -au choix- des régions et leurs départements,

France : 4 graphes
Régions : 66 graphes
Départements : 291 graphes

Sans devoir pisser de la ligne de code pour *chaque* graphe !!!!!!

Par exemple :

Pour la France :

http://cjoint.com/?edvp3ttxof
http://cjoint.com/?edvqHQuT3n
http://cjoint.com/?edvrrjRP36
http://cjoint.com/?edvr7zwnFn

Pour la région Corse :

http://cjoint.com/?edvsOMDjRF
http://cjoint.com/?edvtys4Mgr
http://cjoint.com/?edvvaMrRLC

Pour la Corse du Sud :

http://cjoint.com/?edvvVA7fay
http://cjoint.com/?edvxaNJGXX
http://cjoint.com/?edvyqh3dvR

Pour la Haute Corse :

http://cjoint.com/?edvy6b1jTH
http://cjoint.com/?edvAaHJQOU
http://cjoint.com/?edvBsQJQ5P


Soit plus de 350 graphes d'un simple clic !!!!!!

Excel est capable d'autant ?????


--
A+
Papy Bernard (RTCien malgré lui)

Avatar
Albator V
On doit pouvoir faire ca avec l'insertion d'un control webbrowser dans un
userform... ca doit pas etre complique du tout car j'y suis arrive assez
facilement...

Mais est ce que ton Acces sait faire de la retouche d'image et rechauffer
des aliments ??? non ?? c'est nul alors !!!!


Slt,

D' "Excel...lent"

Ha bon EXCEL serait donc limité ben mince alors je vais revendre le mien
...-)))

Ok EXCEL est un tableur mais quel outil quand même ! Et oui on peut même
faire un trombinoscope avec, voir ici :

Bonjour,


Quel programme, sous Windows, permettrait d'enchaîner, d'un **simple clic**,
l'affichage successif des graphes suivants :

De la France, et/ou -au choix- des régions et leurs départements,

France : 4 graphes
Régions : 66 graphes
Départements : 291 graphes

Sans devoir pisser de la ligne de code pour *chaque* graphe !!!!!!

Par exemple :

Pour la France :

http://cjoint.com/?edvp3ttxof
http://cjoint.com/?edvqHQuT3n
http://cjoint.com/?edvrrjRP36
http://cjoint.com/?edvr7zwnFn

Pour la région Corse :

http://cjoint.com/?edvsOMDjRF
http://cjoint.com/?edvtys4Mgr
http://cjoint.com/?edvvaMrRLC

Pour la Corse du Sud :

http://cjoint.com/?edvvVA7fay
http://cjoint.com/?edvxaNJGXX
http://cjoint.com/?edvyqh3dvR

Pour la Haute Corse :

http://cjoint.com/?edvy6b1jTH
http://cjoint.com/?edvAaHJQOU
http://cjoint.com/?edvBsQJQ5P


Soit plus de 350 graphes d'un simple clic !!!!!!

Excel est capable d'autant ?????


--
A+
Papy Bernard (RTCien malgré lui)








Avatar
Albator V
Merci ca va peut surement me servir...

pour le moment je convertis mes images en jpg.
je travaille dans un bureau d'etudes et nos plus gros clients demandent des
plans au format tiff. j'ai du cree une petite application excel pour
visualiser les plans, avec un control image dans un userform. mais le top
serait de ne pas devoir modifier les plans d'origines. j'ai reussi a afficher
des images png avec un control webbrowser mais pas de tif :(

aurais tu un code pour convertir des tif en jpg ??


Bonsoir Albator V;
Rien ne t'empêche de convertir préalablement ton image tiff en bmp.
Dans un module standard:

Option Explicit
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(8) As Byte
End Type

Private Type PICTDESC
cbSize As Long
picType As Long
hImage As Long
End Type

Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Private Declare Function CloseClipboard& Lib "user32" ()
Private Declare Function CopyImage& Lib "user32" _
(ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Private Declare Function IIDFromString Lib "ole32" _
(ByVal lpsz As String, ByRef lpiid As GUID) As Long
Private Declare Function OleCreatePictureIndirect _
Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID _
, ByVal fOwn&, ByRef ppvObj As IPicture) As Long

Sub Converter()
' Ici le chemin du répertoire de ton image tiff
Const sPath$ = "C:Documents and SettingsAlbatorMes documents"
' Ici le nom de ton fichier tiff
Const sTiff$ = "MonImage.tif"
Application.ScreenUpdating = False
Workbooks.Add
ActiveSheet.Pictures.Insert(sPath & sTiff).Select
Selection.CopyPicture xlScreen, xlBitmap
' Ici le chemin initial plus le nom de l'image sauvée en bmp
Call SaveToBmp(sPath & "NewImage.bmp")
ActiveWorkbook.Close False
End Sub

Private Sub SaveToBmp(ByVal sBmp As String)
Const PIID = "{7BF80981-BF32-101A-8BBB-00AA00300CAB}"
Dim iPic As IPicture, GD As GUID, PD As PICTDESC
Call IIDFromString(StrConv(PIID, vbUnicode), GD)
PD.cbSize = Len(PD): PD.picType = 1
OpenClipboard 0&
PD.hImage = CopyImage(GetClipboardData(2), 0, 0, 0, &H4)
CloseClipboard
Call OleCreatePictureIndirect(PD, GD, 1, iPic)
SavePicture iPic, sBmp
End Sub

Voilà; tu n'as plus qu'à insérer l'image bmp sur ton UserForm.
MP

"Albator V" a écrit dans le message de
news:
Bonjour,

y'a t'il un moyen pour inserer une image a format tif dans un userform ?
ya
t'il un activex qui peut faire ca ?







Avatar
Papy Bernard
Slt,

D'"Albator V"

Merci ca va peut surement me servir...

pour le moment je convertis mes images en jpg.
je travaille dans un bureau d'etudes et nos plus gros clients demandent
des
plans au format tiff. j'ai du cree une petite application excel pour
visualiser les plans, avec un control image dans un userform. mais le top
serait de ne pas devoir modifier les plans d'origines. j'ai reussi a
afficher
des images png avec un control webbrowser mais pas de tif :(

aurais tu un code pour convertir des tif en jpg ??


ACDSee sait très bien faire ça en batch sans avoir à pisser de la ligne de
code. Y compris de fixer le facteur de compression (à vérifier avant de
lancer la conversion). Paint Shop aussi.

--
A+
Papy Bernard (RTCien malgré lui)

Avatar
Albator V
Bon... ici c'est un forum EXCEL !!!! les personnes postent pour avoir des
solutions en rapport a EXCEL !!!! Ce n'est pas un forum ACCESS, ni ACDSEE, ni
autre...

donc si c'est pour repondre que tel ou tel logiciel sait faire... on le sait
deja et on s'en fou...
merci pour ton deballage mais ce n'etait pas ma question et surtout elle ne
t'etais pas destinée...


Slt,

D'"Albator V"

Merci ca va peut surement me servir...

pour le moment je convertis mes images en jpg.
je travaille dans un bureau d'etudes et nos plus gros clients demandent
des
plans au format tiff. j'ai du cree une petite application excel pour
visualiser les plans, avec un control image dans un userform. mais le top
serait de ne pas devoir modifier les plans d'origines. j'ai reussi a
afficher
des images png avec un control webbrowser mais pas de tif :(

aurais tu un code pour convertir des tif en jpg ??


ACDSee sait très bien faire ça en batch sans avoir à pisser de la ligne de
code. Y compris de fixer le facteur de compression (à vérifier avant de
lancer la conversion). Paint Shop aussi.

--
A+
Papy Bernard (RTCien malgré lui)






1 2