Bonjour,
Je souhaiterais savoir s'il est possible d'afficher une image contenue dans une
feuille d'un classeur au sein d'une procédure sans passer par l'affichage d'un
formulaire. Afficher l'image puis la faire disparaitre lorsque la procédure est
terminée. Je n'utilise qu'une image très légère et je ne souhaite pas aller la
chercher dans le répertoire mais l'appeler dans le classeur-même.
C'est un gif animé style "Veuillez patienter...". Question : les gif animés
fonctionnent-ils dans Excel ?
Merci pour vos réponses.
Bonjour,
Je souhaiterais savoir s'il est possible d'afficher une image contenue dans une
feuille d'un classeur au sein d'une procédure sans passer par l'affichage d'un
formulaire. Afficher l'image puis la faire disparaitre lorsque la procédure est
terminée. Je n'utilise qu'une image très légère et je ne souhaite pas aller la
chercher dans le répertoire mais l'appeler dans le classeur-même.
C'est un gif animé style "Veuillez patienter...". Question : les gif animés
fonctionnent-ils dans Excel ?
Merci pour vos réponses.
Bonjour,
Je souhaiterais savoir s'il est possible d'afficher une image contenue dans une
feuille d'un classeur au sein d'une procédure sans passer par l'affichage d'un
formulaire. Afficher l'image puis la faire disparaitre lorsque la procédure est
terminée. Je n'utilise qu'une image très légère et je ne souhaite pas aller la
chercher dans le répertoire mais l'appeler dans le classeur-même.
C'est un gif animé style "Veuillez patienter...". Question : les gif animés
fonctionnent-ils dans Excel ?
Merci pour vos réponses.
bonjour,
met un control "Microsoft WebBrowser" sur la feuille
et utilise le code suivant pour charger l'image
'Sets the image path - Définit le chemin de l'image
S = "C:imageTemp.gif"
'Defines the size of image display in the WebBrowser.
'Définit les dimensions d'affichage de l'image dans le WebBrowser.
w = ActiveSheet.WebBrowser1.Width * 96 / 72
h = ActiveSheet.WebBrowser1.Height * 96 / 72
'Displays the image in the WebBrowser then remove margins and scrollbars
'Affiche l'image dans le WebBrowser en supprimant les marges et les barres de
défilement
ActiveSheet.WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no'
LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
w & " HEIGHT=" & h & " SRC='" & S &
"'</IMG></BODY></CENTER></HTML>"
tu pourras l'afficher ou le masquer avec la commande suivante
ActiveSheet.WebBrowser1.Visible = True 'Or False
--
isabelle
Le 2012-01-24 08:12, simulacre25 a écrit :Bonjour,
Je souhaiterais savoir s'il est possible d'afficher une image contenue dans
une
feuille d'un classeur au sein d'une procédure sans passer par
l'affichage d'un
formulaire. Afficher l'image puis la faire disparaitre lorsque la
procédure est
terminée. Je n'utilise qu'une image très légère et
je ne souhaite pas aller la
chercher dans le répertoire mais l'appeler dans le classeur-même.
C'est un gif animé style "Veuillez patienter...". Question :
les gif animés
fonctionnent-ils dans Excel ?
Merci pour vos réponses.
bonjour,
met un control "Microsoft WebBrowser" sur la feuille
et utilise le code suivant pour charger l'image
'Sets the image path - Définit le chemin de l'image
S = "C:imageTemp.gif"
'Defines the size of image display in the WebBrowser.
'Définit les dimensions d'affichage de l'image dans le WebBrowser.
w = ActiveSheet.WebBrowser1.Width * 96 / 72
h = ActiveSheet.WebBrowser1.Height * 96 / 72
'Displays the image in the WebBrowser then remove margins and scrollbars
'Affiche l'image dans le WebBrowser en supprimant les marges et les barres de
défilement
ActiveSheet.WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no'
LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
w & " HEIGHT=" & h & " SRC='" & S &
"'</IMG></BODY></CENTER></HTML>"
tu pourras l'afficher ou le masquer avec la commande suivante
ActiveSheet.WebBrowser1.Visible = True 'Or False
--
isabelle
Le 2012-01-24 08:12, simulacre25 a écrit :
Bonjour,
Je souhaiterais savoir s'il est possible d'afficher une image contenue dans
une
feuille d'un classeur au sein d'une procédure sans passer par
l'affichage d'un
formulaire. Afficher l'image puis la faire disparaitre lorsque la
procédure est
terminée. Je n'utilise qu'une image très légère et
je ne souhaite pas aller la
chercher dans le répertoire mais l'appeler dans le classeur-même.
C'est un gif animé style "Veuillez patienter...". Question :
les gif animés
fonctionnent-ils dans Excel ?
Merci pour vos réponses.
bonjour,
met un control "Microsoft WebBrowser" sur la feuille
et utilise le code suivant pour charger l'image
'Sets the image path - Définit le chemin de l'image
S = "C:imageTemp.gif"
'Defines the size of image display in the WebBrowser.
'Définit les dimensions d'affichage de l'image dans le WebBrowser.
w = ActiveSheet.WebBrowser1.Width * 96 / 72
h = ActiveSheet.WebBrowser1.Height * 96 / 72
'Displays the image in the WebBrowser then remove margins and scrollbars
'Affiche l'image dans le WebBrowser en supprimant les marges et les barres de
défilement
ActiveSheet.WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no'
LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
w & " HEIGHT=" & h & " SRC='" & S &
"'</IMG></BODY></CENTER></HTML>"
tu pourras l'afficher ou le masquer avec la commande suivante
ActiveSheet.WebBrowser1.Visible = True 'Or False
--
isabelle
Le 2012-01-24 08:12, simulacre25 a écrit :Bonjour,
Je souhaiterais savoir s'il est possible d'afficher une image contenue dans
une
feuille d'un classeur au sein d'une procédure sans passer par
l'affichage d'un
formulaire. Afficher l'image puis la faire disparaitre lorsque la
procédure est
terminée. Je n'utilise qu'une image très légère et
je ne souhaite pas aller la
chercher dans le répertoire mais l'appeler dans le classeur-même.
C'est un gif animé style "Veuillez patienter...". Question :
les gif animés
fonctionnent-ils dans Excel ?
Merci pour vos réponses.
Vu que la procédure se lance à partir d'un formulaire, je suppose que je dois
le décharger durant la procédure afin de voir le web Browser sur ma feuille.
Par contre, je ne vois pas où mettre ta procédure Isabelle. Si je la mets dans
un module et que je l'appelle dans ma sub, alors il bloque sur une erreur Objet
requis.
Vu que la procédure se lance à partir d'un formulaire, je suppose que je dois
le décharger durant la procédure afin de voir le web Browser sur ma feuille.
Par contre, je ne vois pas où mettre ta procédure Isabelle. Si je la mets dans
un module et que je l'appelle dans ma sub, alors il bloque sur une erreur Objet
requis.
Vu que la procédure se lance à partir d'un formulaire, je suppose que je dois
le décharger durant la procédure afin de voir le web Browser sur ma feuille.
Par contre, je ne vois pas où mettre ta procédure Isabelle. Si je la mets dans
un module et que je l'appelle dans ma sub, alors il bloque sur une erreur Objet
requis.
je ne sais pas comment est organisé ton fichier,
mais dans la question initial tu disais :
"sans passer par l'affichage d'un formulaire"
peut tu mettre ton fichier sur cjoint.com et expliquer comment tu veut
ça ?
--
isabelle
Le 2012-01-24 12:01, simulacre25 a écrit :Vu que la procédure se lance à partir d'un formulaire, je
suppose que je dois
le décharger durant la procédure afin de voir le web Browser sur
ma feuille.
Par contre, je ne vois pas où mettre ta procédure Isabelle. Si
je la mets dans
un module et que je l'appelle dans ma sub, alors il bloque sur une erreur
Objet
requis.
je ne sais pas comment est organisé ton fichier,
mais dans la question initial tu disais :
"sans passer par l'affichage d'un formulaire"
peut tu mettre ton fichier sur cjoint.com et expliquer comment tu veut
ça ?
--
isabelle
Le 2012-01-24 12:01, simulacre25 a écrit :
Vu que la procédure se lance à partir d'un formulaire, je
suppose que je dois
le décharger durant la procédure afin de voir le web Browser sur
ma feuille.
Par contre, je ne vois pas où mettre ta procédure Isabelle. Si
je la mets dans
un module et que je l'appelle dans ma sub, alors il bloque sur une erreur
Objet
requis.
je ne sais pas comment est organisé ton fichier,
mais dans la question initial tu disais :
"sans passer par l'affichage d'un formulaire"
peut tu mettre ton fichier sur cjoint.com et expliquer comment tu veut
ça ?
--
isabelle
Le 2012-01-24 12:01, simulacre25 a écrit :Vu que la procédure se lance à partir d'un formulaire, je
suppose que je dois
le décharger durant la procédure afin de voir le web Browser sur
ma feuille.
Par contre, je ne vois pas où mettre ta procédure Isabelle. Si
je la mets dans
un module et que je l'appelle dans ma sub, alors il bloque sur une erreur
Objet
requis.
Je progresse (affichage d'un texte dans web browser plutôt qu'une image) mais
je bute désormais sur un épineux problème. J'affiche désormais correctement le
web browser mais au milieu de ma procédure, je suis obligé de positionner un
screenupdating à false qui bloque l'affiche dynamique de mon web browser qui est
figé (forcément). Un moyen de contourner cela ?
sub ()
Unload UserForm_Accueil
ActiveSheet.WebBrowser1.Visible = True
'----------- message pendant le transfert ----
'Permet de créer un message d'attente défilant dans le WebBrowser pendant le
transfert
'des données (au format binaire) dans les cellules de la nouvelle feuille.
Dim LeTexte As String
Dim LaCouleur As String
LeTexte = "Veuillez patienter... traitement en cours ..."
LaCouleur = "#CC0000"
ActiveSheet.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= "& LaCouleur&
_
" size='5' face='Arial'>"& _
"<marquee>"& LeTexte& "</marquee></font></body></html>"
Application.ScreenUpdating = False
Call Ajout_Formules_BD
Sheets("accueil").Select
ActiveSheet.WebBrowser1.Visible = False
Message = MsgBox("Les données ont été correctement importées.", vbInformation,
"Bravo !")
Application.ScreenUpdating = True
Load UserForm_Accueil
UserForm_Accueil.Show
End Sub
Je progresse (affichage d'un texte dans web browser plutôt qu'une image) mais
je bute désormais sur un épineux problème. J'affiche désormais correctement le
web browser mais au milieu de ma procédure, je suis obligé de positionner un
screenupdating à false qui bloque l'affiche dynamique de mon web browser qui est
figé (forcément). Un moyen de contourner cela ?
sub ()
Unload UserForm_Accueil
ActiveSheet.WebBrowser1.Visible = True
'----------- message pendant le transfert ----
'Permet de créer un message d'attente défilant dans le WebBrowser pendant le
transfert
'des données (au format binaire) dans les cellules de la nouvelle feuille.
Dim LeTexte As String
Dim LaCouleur As String
LeTexte = "Veuillez patienter... traitement en cours ..."
LaCouleur = "#CC0000"
ActiveSheet.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= "& LaCouleur&
_
" size='5' face='Arial'>"& _
"<marquee>"& LeTexte& "</marquee></font></body></html>"
Application.ScreenUpdating = False
Call Ajout_Formules_BD
Sheets("accueil").Select
ActiveSheet.WebBrowser1.Visible = False
Message = MsgBox("Les données ont été correctement importées.", vbInformation,
"Bravo !")
Application.ScreenUpdating = True
Load UserForm_Accueil
UserForm_Accueil.Show
End Sub
Je progresse (affichage d'un texte dans web browser plutôt qu'une image) mais
je bute désormais sur un épineux problème. J'affiche désormais correctement le
web browser mais au milieu de ma procédure, je suis obligé de positionner un
screenupdating à false qui bloque l'affiche dynamique de mon web browser qui est
figé (forcément). Un moyen de contourner cela ?
sub ()
Unload UserForm_Accueil
ActiveSheet.WebBrowser1.Visible = True
'----------- message pendant le transfert ----
'Permet de créer un message d'attente défilant dans le WebBrowser pendant le
transfert
'des données (au format binaire) dans les cellules de la nouvelle feuille.
Dim LeTexte As String
Dim LaCouleur As String
LeTexte = "Veuillez patienter... traitement en cours ..."
LaCouleur = "#CC0000"
ActiveSheet.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= "& LaCouleur&
_
" size='5' face='Arial'>"& _
"<marquee>"& LeTexte& "</marquee></font></body></html>"
Application.ScreenUpdating = False
Call Ajout_Formules_BD
Sheets("accueil").Select
ActiveSheet.WebBrowser1.Visible = False
Message = MsgBox("Les données ont été correctement importées.", vbInformation,
"Bravo !")
Application.ScreenUpdating = True
Load UserForm_Accueil
UserForm_Accueil.Show
End Sub
bonjour,
essai en déplaçant la commande
Application.ScreenUpdating = True
juste avant la commande
ActiveSheet.WebBrowser1.Visible = False
--
isabelle
Le 2012-01-25 05:30, simulacre25 a écrit :Je progresse (affichage d'un texte dans web browser plutôt qu'une image)
mais
je bute désormais sur un épineux problème. J'affiche
désormais correctement le
web browser mais au milieu de ma procédure, je suis obligé de
positionner un
screenupdating à false qui bloque l'affiche dynamique de mon web
browser qui est
figé (forcément). Un moyen de contourner cela ?
sub ()
Unload UserForm_Accueil
ActiveSheet.WebBrowser1.Visible = True
'----------- message pendant le transfert ----
'Permet de créer un message d'attente défilant dans le
WebBrowser pendant le
transfert
'des données (au format binaire) dans les cellules de la nouvelle
feuille.
Dim LeTexte As String
Dim LaCouleur As String
LeTexte = "Veuillez patienter... traitement en cours ..."
LaCouleur = "#CC0000"
ActiveSheet.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font
color= "& LaCouleur&
_
" size='5' face='Arial'>"& _
"<marquee>"& LeTexte&
"</marquee></font></body></html>"
Application.ScreenUpdating = False
Call Ajout_Formules_BD
Sheets("accueil").Select
ActiveSheet.WebBrowser1.Visible = False
Message = MsgBox("Les données ont été correctement
importées.", vbInformation,
"Bravo !")
Application.ScreenUpdating = True
Load UserForm_Accueil
UserForm_Accueil.Show
End Sub
bonjour,
essai en déplaçant la commande
Application.ScreenUpdating = True
juste avant la commande
ActiveSheet.WebBrowser1.Visible = False
--
isabelle
Le 2012-01-25 05:30, simulacre25 a écrit :
Je progresse (affichage d'un texte dans web browser plutôt qu'une image)
mais
je bute désormais sur un épineux problème. J'affiche
désormais correctement le
web browser mais au milieu de ma procédure, je suis obligé de
positionner un
screenupdating à false qui bloque l'affiche dynamique de mon web
browser qui est
figé (forcément). Un moyen de contourner cela ?
sub ()
Unload UserForm_Accueil
ActiveSheet.WebBrowser1.Visible = True
'----------- message pendant le transfert ----
'Permet de créer un message d'attente défilant dans le
WebBrowser pendant le
transfert
'des données (au format binaire) dans les cellules de la nouvelle
feuille.
Dim LeTexte As String
Dim LaCouleur As String
LeTexte = "Veuillez patienter... traitement en cours ..."
LaCouleur = "#CC0000"
ActiveSheet.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font
color= "& LaCouleur&
_
" size='5' face='Arial'>"& _
"<marquee>"& LeTexte&
"</marquee></font></body></html>"
Application.ScreenUpdating = False
Call Ajout_Formules_BD
Sheets("accueil").Select
ActiveSheet.WebBrowser1.Visible = False
Message = MsgBox("Les données ont été correctement
importées.", vbInformation,
"Bravo !")
Application.ScreenUpdating = True
Load UserForm_Accueil
UserForm_Accueil.Show
End Sub
bonjour,
essai en déplaçant la commande
Application.ScreenUpdating = True
juste avant la commande
ActiveSheet.WebBrowser1.Visible = False
--
isabelle
Le 2012-01-25 05:30, simulacre25 a écrit :Je progresse (affichage d'un texte dans web browser plutôt qu'une image)
mais
je bute désormais sur un épineux problème. J'affiche
désormais correctement le
web browser mais au milieu de ma procédure, je suis obligé de
positionner un
screenupdating à false qui bloque l'affiche dynamique de mon web
browser qui est
figé (forcément). Un moyen de contourner cela ?
sub ()
Unload UserForm_Accueil
ActiveSheet.WebBrowser1.Visible = True
'----------- message pendant le transfert ----
'Permet de créer un message d'attente défilant dans le
WebBrowser pendant le
transfert
'des données (au format binaire) dans les cellules de la nouvelle
feuille.
Dim LeTexte As String
Dim LaCouleur As String
LeTexte = "Veuillez patienter... traitement en cours ..."
LaCouleur = "#CC0000"
ActiveSheet.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font
color= "& LaCouleur&
_
" size='5' face='Arial'>"& _
"<marquee>"& LeTexte&
"</marquee></font></body></html>"
Application.ScreenUpdating = False
Call Ajout_Formules_BD
Sheets("accueil").Select
ActiveSheet.WebBrowser1.Visible = False
Message = MsgBox("Les données ont été correctement
importées.", vbInformation,
"Bravo !")
Application.ScreenUpdating = True
Load UserForm_Accueil
UserForm_Accueil.Show
End Sub