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}
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
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}
Salut Philippe,
C'est tout bon.
Merci.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:%23JM62preDHA.956@TK2MSFTNGP09.phx.gbl...
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
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news:3f645a9a$1_3@news.bluewin.ch...
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}
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}
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}
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news:3f646a1b_5@news.bluewin.ch...
Salut Philippe,
C'est tout bon.
Merci.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:%23JM62preDHA.956@TK2MSFTNGP09.phx.gbl...
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
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news:3f645a9a$1_3@news.bluewin.ch...
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}
"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}