Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel affichage image avec IE

affichage image avec IE

2 réponses
Avatar
Jean-François Aubert
Bonjour,
J'utilise le code suivant pour afficher des images un peu comme un diaporama.
Un p'tit problème:
-la première image s'affiche dans une fenêtre IE qui prend tout l'écran, ça c'est bien
-les suivantes dans une fenêtre IE qui prend ~ la moitié de l'écran, ça c'est pas bien !
Comment faire pour afficher en "Maximized" toutes les instances de IE ???

Merci

'******************************
Public Const WM_CLOSE = &H10
Public Const WM_DESTROY = &H2 ' ok pour aperçu de l'image
Public Const WM_NCDESTROY = &H82 ' ok pour IE

'd'après Chip Pearson, mpep
'certains programmes (comme la calculatrice Windows) se ferment
'avec un message WM_CLOSE
Sub CloseWindow(quoi)
Dim HWnd As Long
HWnd = FindWindow(vbNullString, quoi)
If HWnd > 0 Then
SendMessage HWnd, WM_NCDESTROY, 0, 0
End If
End Sub

Sub diaporama()
Dim i, quoi
For i = 2 To Sheets("lien_imageSat").Range("A65536").End(xlUp).Row
quoi = Sheets("lien_imageSat").Cells(i, 1)
ActiveWorkbook.FollowHyperlink quoi
CloseWindow (quoi)
Next
Application.WindowState = xlMaximized ' maximise fenêtre Excel
End Sub
'***************************

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}
Signaler un problème avec ce contenu

2 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
Avatar
Jean-François Aubert
Salut Philippe,

C'est tout bon.
Merci.

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Philippe.R" a écrit dans le message de
news:%
Bonjour Jean François,
Tu peux essayer ceci (non testé) :

Sub diaporama()
Dim i, quoi
For i = 2 To Sheets("lien_imageSat").Range("A65536").End(xlUp).Row
Application.WindowState = xlMaximized ' maximise fenêtre Excel
quoi = Sheets("lien_imageSat").Cells(i, 1)
ActiveWorkbook.FollowHyperlink quoi
CloseWindow (quoi)
Next
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jean-François Aubert" <à a écrit dans le message de
news:3f645a9a$
Bonjour,
J'utilise le code suivant pour afficher des images un peu comme un diaporama.
Un p'tit problème:
-la première image s'affiche dans une fenêtre IE qui prend tout l'écran, ça c'est bien
-les suivantes dans une fenêtre IE qui prend ~ la moitié de l'écran, ça c'est pas bien !
Comment faire pour afficher en "Maximized" toutes les instances de IE ???

Merci

'******************************
Public Const WM_CLOSE = &H10
Public Const WM_DESTROY = &H2 ' ok pour aperçu de l'image
Public Const WM_NCDESTROY = &H82 ' ok pour IE

'd'après Chip Pearson, mpep
'certains programmes (comme la calculatrice Windows) se ferment
'avec un message WM_CLOSE
Sub CloseWindow(quoi)
Dim HWnd As Long
HWnd = FindWindow(vbNullString, quoi)
If HWnd > 0 Then
SendMessage HWnd, WM_NCDESTROY, 0, 0
End If
End Sub

Sub diaporama()
Dim i, quoi
For i = 2 To Sheets("lien_imageSat").Range("A65536").End(xlUp).Row
quoi = Sheets("lien_imageSat").Cells(i, 1)
ActiveWorkbook.FollowHyperlink quoi
CloseWindow (quoi)
Next
Application.WindowState = xlMaximized ' maximise fenêtre Excel
End Sub
'***************************

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}









Avatar
Philippe.R
C'était avec plaisir JF

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Philippe,

C'est tout bon.
Merci.

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Philippe.R" a écrit dans le message de
news:%
Bonjour Jean François,
Tu peux essayer ceci (non testé) :

Sub diaporama()
Dim i, quoi
For i = 2 To Sheets("lien_imageSat").Range("A65536").End(xlUp).Row
Application.WindowState = xlMaximized ' maximise fenêtre Excel
quoi = Sheets("lien_imageSat").Cells(i, 1)
ActiveWorkbook.FollowHyperlink quoi
CloseWindow (quoi)
Next
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jean-François Aubert" <à a écrit dans le message de
news:3f645a9a$
Bonjour,
J'utilise le code suivant pour afficher des images un peu comme un diaporama.
Un p'tit problème:
-la première image s'affiche dans une fenêtre IE qui prend tout l'écran, ça c'est bien
-les suivantes dans une fenêtre IE qui prend ~ la moitié de l'écran, ça c'est pas bien !
Comment faire pour afficher en "Maximized" toutes les instances de IE ???

Merci

'******************************
Public Const WM_CLOSE = &H10
Public Const WM_DESTROY = &H2 ' ok pour aperçu de l'image
Public Const WM_NCDESTROY = &H82 ' ok pour IE

'd'après Chip Pearson, mpep
'certains programmes (comme la calculatrice Windows) se ferment
'avec un message WM_CLOSE
Sub CloseWindow(quoi)
Dim HWnd As Long
HWnd = FindWindow(vbNullString, quoi)
If HWnd > 0 Then
SendMessage HWnd, WM_NCDESTROY, 0, 0
End If
End Sub

Sub diaporama()
Dim i, quoi
For i = 2 To Sheets("lien_imageSat").Range("A65536").End(xlUp).Row
quoi = Sheets("lien_imageSat").Cells(i, 1)
ActiveWorkbook.FollowHyperlink quoi
CloseWindow (quoi)
Next
Application.WindowState = xlMaximized ' maximise fenêtre Excel
End Sub
'***************************

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}