Vérifier que 1 fois dézipper mon .xls marche sans modifs

[papapaul]

Salut Forum 🙂
J'ai un gros doute 🙄 alors je voudrais vérifier que les codes d'un .xls
que j'envoie par mail fonctionne sur n'importe quel poste destinataire.
C'est le répertoire zippé ci-joint avec dedans
3 fichiers dont le .xls qui fait référence aux 2 autres .gif

Excusez cette question peut-être stupide mais si
le destinataire ouvre le zip est fait extraire vers …
donc forcément un autre chemin que le mien, je voudrais
que ca fonctionne sans qu'il ai besoin de modifier.

J'ai testé chez moi et extrait vers un autre répertoire.
"C:\Gif\test" : Quand j'ouvre le .xls : ca marche bien 😀

Pourtant les chemins d'origine sont : 😕
"G:\Papa\Insertion Image Excel\accro.gif"
"G:\Papa\Insertion Image Excel\papapaul_A.gif"

Pouvez vous me dire si ca marche aussi chez vous sans avoir
à modifier les codes de la Feuil1 (merci Michel et Didier MDF)

Merci à tous.

 

[porcinet82]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

Salut,

Modifie le code comme suit :

Private Sub worksheet_activate()
Dim rep As String
rep = ThisWorkbook.Path
WebBrowser1.Navigate rep & "\papapaul_A.gif"
WebBrowser2.Navigate rep & "\accro.gif"
End Sub

@+

 

[papapaul]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

🙂 Salut Porcinet !!
Merci beaucoup, d'un 1er coup d'oeil je pense
que ca va marcher. Je veux pas embêter le monde
avec ça mais si tu m'indiques que ca doit fonctionner
en modifiant le code : c'est surement que tu a essayé d'ouvrir mon .xls
et que tu as eu un message d'erreur ou un debobage? peux tu me dire lequel ??
C'est pour mieux comprendre que je te demande ça.


Merci d'avance

Le club des Supporters d'xld... Lien supprimé

 

[Cousinhub]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

Bonjour, en plus du code fourni par Porcinet, il vaudrait mieux que tu modifies également les deux suivants :

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    [COLOR="Red"]Feuil1.[/COLOR]WebBrowser1.Document.body.Scroll = "no"
End Sub
Private Sub WebBrowser2_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
   [COLOR="Red"] Feuil1.[/COLOR]WebBrowser2.Document.body.Scroll = "no"
End Sub

Nota, à l'ouverture de ton fichier, code erreur 91
Variable objet ou variable de bloc with non définie

l'erreur est située sur les lignes que je cite ci-dessus, mais les images ne sont pas chargées (normal, voir code de porcinet)

 

[porcinet82]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

re, Salut bhbh,

Erreurs identiques à celle de bhbh...

@+

 

[papapaul]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

🙂Merci encore, Porcinet, Content de te voir bhbh 🙂
Je joins une version Gif2 ou j'ai modifié les codes
du .xls comme vous m'avez indiqué.
Je sais pas du tout si va marcher ailleurs.
Mais sur mon PC, que ce soit sur C:\ ou G:\ ou:H:\
les images s'affichent bien sans scrolls et sans rien modifier.🙄

Pour vous dire pourquoi j'essaye de faire ca, c'est que hier
quand j'ai transmis ce truc à une collègue, je lui ai aussi dis
qu'elle m'appelle si elle y arrivait pas.
Donc évidement elle m'appelle,
donc évidement je lui dis, pour modifier tu va dans le menu
Outils\Macro etc..

Elle me réponds :
Ah oui!! j'ai vu, mon chef m'a montrer l'aut'jour, y a un truc dans son machin des favoris,
ca s'appelle Castorama, c'est la dedans ??😀

Comprenez mieux pourquoi je voudrais automatiser maintenant ?

Amitiés tous les 2, le Forum, continue à plancher Moi

Je joins aussi 1 petit ModOp (doc) qui explique ce que je veux faire.

Vive XLD

Le club des Supporters d'xld... Lien supprimé

 

[porcinet82]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

Salut,

Chez moi, les codes Private Sub WebBrowserX plante toujours. J'ai bien essayé de corrgier avec quelques syntaxes, mais sans succes...

@+

 

[bqtr]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

Bonjour papapaul, porcinet82, bhbh

En procédant comme ceci le fichier s'ouvre sans erreur et les Gifs sont bien là

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Me.WebBrowser1.Document.body.Scroll = "no"
End Sub
Private Sub WebBrowser2_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
   Me.WebBrowser2.Document.body.Scroll = "no"
End Sub

A+

 

[papapaul]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

🙂 🙂
🙂🙂 Re Salut les Amis, bqtr,

J'ai fais comme tu m' a dis, remplacer Feuil1 par Me
Je comprends pas trop ce que ca change mais bon,,,
Ca marche chez vous ???

Le club des Supporters d'xld... Lien supprimé

Amitiés à tous

 

[porcinet82]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

re,

Chez moi, toujours la meme erreur...

@+

 

[papapaul]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

😛 Re
Je pense que il faudrait mettre
quelque chose comme :

Private Sub Workbook_Open
une macro qui modifie le chemin des gifs
les gifs sont dans le rep

Dim rep As String
rep = ThisWorkbook.Path
etc...etc

Je suis incapable de l'écrire.

Quelle galère.😎

 

[bqtr]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

Re,

Effectivement c'est bizarre et je ne vois pas pourquoi. En faisant divers essais cela s'est mis à fonctionner en remplacant Feuil1 par Me.
Mais depuis si je supprime le Me et Feuil1 cela fonctionne toujours sans erreur.

Sur un autre ordi j'ai mis ceci dans le thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil2").Activate
End Sub
Private Sub Workbook_Open()
Sheets("Feuil1").Activate
End Sub

Cela déclenche l'évenement worksheet_activate à l'ouverture du classeur et ça fonctionne aussi sans erreur.

Bonne journée

 

[papapaul]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

🙂 Salut Forum, bqtr 🙂

Au depart j'avais mis ça (codes de Michel)

Private Sub worksheet_activate()

With Feuil1
.WebBrowser1.Document.body.Scroll = "no"
.WebBrowser2.Document.body.Scroll = "no"
End With
'WebBrowser1.Navigate "G:\Papa\Insertion Image Excel\papapaul_A.gif"
'WebBrowser2.Navigate "G:\Papa\Insertion Image Excel\accro.gif"
End Sub

Et justement, tu l'a bien vu bqtr, pour que les scrolls disparaissent,
il fallait activer une autre feuille et revenir Feuil1.

Alors le génial MyDearFriend m'a dis de mettre ça :

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
.WebBrowser1.Document.body.Scroll = "no"
End Sub

Du coup, plus besoin de changer de feuille. !!! Chouette !!
Mes gifs impeccables dès l'ouverture.

Reste le problème quand j'envoie le répertoire en entier.

Bien vu bqtr, j'ai complètement zappé la procédure Before_Close.😱
J'aurais du y penser, je fais la modif et vous joins une version 4.
J'espère que ca va marcher.


Mais c'est peut-être là l'astuce.
Il faut bien dézipper en faisant extraire vers ...un répertoire
de préférence spécialement créé avec rien dedans,
pour que tous les fichiers suivent.
Et ensuite par le Poste de Travail aller chercher et ouvrir le.xls

Amitiés à tous.😉

 

[papapaul]

Re : Vérifier que 1 fois dézipper mon .xls marche sans modifs

🙁 Désolé, c'est pas concluant.
L'idée de bqtr me semblait bonne mais ça colle pas.😕

Alors pour que ca marche voila ce que j'ai fait.
Je clique droit sur le Gif4.zip ci-dessus.
Je fais Enregistrer la Cible sous.....et je ferme tout.
Ensuite je dézippe et quand j'ouvre le xls les images ne s'affichent pas.😡
Alors je supprime tout les codes de Thisworbook,
je ferme tout en enregistrant bien tout aussi.

Quand je réouvre, du coup c'est tout bon!!!😱

J'y comprends que couic dans c'taffaire.

Bon courage.