Placer un GIF animé ...

W

WEIDER

Guest
Bonjour à tous !

J'ai joins un fichier Excel zippé, afin d'expliquer en détail l'objet de ma demande.

D'avance un grand merci à tous !

Weider. :) [file name=EssaiGif.zip size=12387]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EssaiGif.zip[/file]
 

Pièces jointes

  • EssaiGif.zip
    12.1 KB · Affichages: 62
Trier par date Trier par votes
W

WEIDER

Guest
Merci ziopizza pour ta réponse, génial ! Le fichier que tu m'envoie fonctionne parfaitement.

Deux questions malgré tout….

1/ Ou placer tes lignes de commande Visual Basic dans mon ThisWorkbook, de mon fichier perso ...
(Document sur lequel je bosse...)

***********************************************************************************************************

Private Sub Workbook_Open()
'Pour mettre Excel en pleine écran'
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.CommandBars('Drawing').Visible = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Sheets('Relevé 1').Range('a1').Activate
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Pour remettre Excel avec les menus'
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
Application.CommandBars('Drawing').Visible = True
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.ScreenUpdating = True
ThisWorkbook.Close SaveChanges:=False
End Sub

************************************************************************************************************

2/ Le GIF est obligé d'etre entouré d'un cadre ?

Merci pour tes réponses ziopizza !!!

Weider.
 
Vote positif 0 Vote négatif
W

WEIDER

Guest
Merci ziopizza,

Ok, pour le cadre, po grave...

Par contre, je n'arrive pas à incrémenter la ligne de commande ci-dessous

Feuil1.WebBrowser1.Navigate 'about:<html><body scroll='no'>' & '<img src='c:\\Crayon.gif'></img></body></html>'

là ou tu m'as dit de la mettre !?

Mon fichier Excel se nomme Agenda téléphonique.xls

Et mon onglet se nomme : Remevé 1

Comment adapter cette ligne de commande ?

Merci de ton aide !

Weider.
 
Vote positif 0 Vote négatif
W

WEIDER

Guest
Bonjour ziopizza et tous !

J'ai fais ce matin selon des directives, à savoir, mettre dans la ligne de commande, le nom de ma feuille qui est 'Relevé 1' ...

Conclusion, cela me génère une 'Erreur de compilation et de syntaxe


Voici ce que j'ai rentré, avec les notes jaune et bleu, les erreurs découvertes...

*****************


Private Sub Workbook_Open() <----- Surligné en jaune !?

Relevé 1.WebBrowser1.Navigate 'about:<html><body scroll='no'>' & '<img src='c:Crayon.gif'></img></body></html>' <---- Surligné en rouge !?

'Pour mettre Excel en pleine écran'
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.CommandBars('Drawing').Visible = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Sheets('Relevé 1').Range('a1').Activate
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Pour remettre Excel avec les menus'
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
Application.CommandBars('Drawing').Visible = True
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.ScreenUpdating = True
ThisWorkbook.Close SaveChanges:=False
End Sub

*************************

:unsure: :S :huh:

Help me !


PS : A première vue, le sujet interresse les gens, presque 100 personnes l'ont déja vus...
 
Vote positif 0 Vote négatif
Eric C

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour ziopizza, bon,jour WEIDER

L'erreur dans ton fichier est ici :
src='c:Crayon.gif'></img></body></html>\\'
Cliquez pour agrandir...

Tu dois écrire C:\\Crayon.gif

d'autre part, tant que ton fichier 'n'est pas parfait donc non abouti' mets la sauvegarde à true pour éviter les erreurs sinon lorsque tu ouvriras de nouveau ton fichier ton erreur réapparaîtra.

ThisWorkbook.Close SaveChanges:=False ==> True


Bonne journée à toutes & à tous ;)

Concernant les bordures du cadre de ton WebBrowser tu places le code ci-apèrs dans le module de la feuille 1

Private Sub WebBrowser1_OnVisible(ByVal Visible As Boolean)
WebBrowser1.Document.body.Style.BorderStyle = 'none'
End Sub
Cliquez pour agrandir...

Sinon tu as la page Wiki (Téléchargements...Se former...Wiki) de notre zami MichelXLD (que je salue au passage) qui regorge de trésors dont les WebBrowsers.

Bonne continuation - Eric

Message édité par: Eric C, à: 14/09/2005 10:35
 
Vote positif 0 Vote négatif
W

WEIDER

Guest
Hello Eric, merci de me pretter main forte !

Après avoir supprimer les guillemets et mis un C majuscule comme tu me l'as conseillé, j'ai toujours cette ligne de commande en erreur avec WebBrowser1 de surligné en bleu !?

Q'est ce qu'il s'passe t'il donc ?!? C'est ce mot WebBroser1 qui lui plait pas !?

***********************************

Private Sub Workbook_Open()

Relevé 1.WebBrowser1.Navigate 'about:<html><body scroll='no'>' & '<img src=C:Crayon.gif></img></body></html>' <--- Toujours en rouge !?

'Pour mettre Excel en pleine écran'
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.CommandBars('Drawing').Visible = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Sheets('Relevé 1').Range('a1').Activate
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
W

WEIDER

Guest
Haaaa ! La ligne de commande cette fois ci, à l'air d'etre acceptée :)

L'erreur se fait uniquement au lancement du fichier :

ERREUR D'EXECUTION '424'
OBJET REQUIS

Mon fichier Crayon.gif est bien sur C:/ pourtant !?

Il ne manquerait pas queqlque chose sur ma feuille 'Relevé' ( je l'ai renommée Relevé) par hazard ? Un cadre ou un truc pour réceptionner le gif ?

Je sens que nous ne sommes plus très loin, grace à vous tous !!!! ;) ;) ;)

Weider.
 
Vote positif 0 Vote négatif

Discussions similaires

Eric C
  • Question
Autres Masque de saisie universel pour formats spéciaux saisis dynamiquement dans un TextBox
2 3
Réponses
34
Affichages
3 K
job75
job75
M7cks
  • Question
XL 2019 "Batch Convert" un groupe de fichier XLS en XLSX
Réponses
13
Affichages
5 K
M7cks
M7cks
bellenm
  • Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
5 K
Roland_M
Roland_M
S
  • Question
rechercher dans un tableau et reprendre le contenu de la cellule C+1 ou C+2 ou C+3
Réponses
5
Affichages
1 K
R@chid
R@chid
Y
  • Question
Zipper un dossier dont le fichier contenant st trouve dans ce répertoire
Réponses
9
Affichages
19 K
Yaloo
Y
yadla
  • Question
Gif animé dans formulaire
Réponses
6
Affichages
3 K
yadla
yadla
Z
  • Question
Importation de données depuis Intranet avec Password Javascript 1.1
Réponses
0
Affichages
1 K
zephirsoul
Z
_matt_44
  • Question
[MACRO] Erreur 400
Réponses
4
Affichages
2 K
_matt_44
_matt_44
W
  • Question
Petite formule ....
Réponses
6
Affichages
1 K
WEIDER
W
P
  • Question
fichier exemple
Réponses
6
Affichages
3 K
ERIC S
ERIC S

Membres actuellement en ligne

3 membres et 45 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 321
Messages
2 087 265
Membres
103 501
dernier inscrit
talebafia