OVH Cloud OVH Cloud

MAJ excelabo 13/11/05

12 réponses
Avatar
Misange
BOnjour

Oui oui ce n'est pas une erreur de date c'est juste que j'ai oublié de
vous dire que j'avais mis sur excelabo quelques nouveautés dont un
classeur de Michel Pierron que je trouve super : il permet de lire dans
excel les flux RSS des sites consacrés à excel. Pour ceux qui disent
atchoum en lisant flux rss, je précise qu'il s'agit d'une annonce
automatique des mises à jour de sites webs. Vous pouvez donc très
facilement depuis excel savoir ce qui a été ajouté récemment sur vos
sites préférés, anglophones et francophones.
Qu'on se le dise !
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

2 réponses

1 2
Avatar
Patrick BASTARD
Bonsoir, *Michel*

Comme précédemment, mets Kill sFileName en remarque comme suit:
'Kill sFileName
f = FreeFile

Private Sub RSS_html(Flux$, Title$)

Dim f&, sFileName$
sFileName = ThisWorkbook.Path & "" & Title & ".html"
On Error Resume Next
'Kill sFileName: f = FreeFile
Open sFileName For Output As #f>
La dernière ligne me renvoie une erreur d'exécution 52 : nom ou n° de
fichier incorrect.
:-(

Serai-je la victime innocente d'un microclimat ?

--
Bien amicordialement,
P. Bastard

"Patrick BASTARD" a écrit dans le
message de news: #
Bonjour, *Michel *

J'ai suivi ton conseil, et la fenêtre de choix s'ouvre maintenant.

Ce qui fonctionne :
En cliquant sur l'onglet WEB BROWSER, la fenêtre de IE s'ouvre
normalement sur ma page favorite, et je peu naviguer sur le WEB.

Ce qui pose problème :
Je clique sur l'un des liens, et sur check RSS
J'ai maintenant une erreur d'exécution 53 "Fichier introuvable"
qui renvoie vers Frm1
dans Private Sub RSS_html(Flux$, Title$)
à la ligne :
Kill sFileName: f = FreeFile.

Et à nouveau après la ligne "On Error Resume Next"
(Excel 2002 SP3/Win XP, IE 6.0.2900.2180.XPSP_SP2).

Mes paramètres d'Excel seraient-ils erronés ?
Le pare-feu WIN, l'anti-virus (AVG)?


--
Bien amicordialement,
P. Bastard




Bonsoir Patrick;
En attendant de savoir pourquoi tu as cette erreur sur cette ligne
alors qu'elle fait suite à On Error Resume Next,
mets la en remarque; de toute façon, cela n'a d'incidence que sur la
taille de police des contrôles lorsque l'on redimensionne
l'Userform.

MP

"Patrick BASTARD" a écrit dans
le message de news:
Bonjour, *Misange*


J'ai une erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet, qui renvoie vers :
Ctls(Idx).SizeFont = Ctl.Font.Size
dans FRM1 - Private Sub SaveControlsProperties()

as-tu rencontré cette erreur, et si oui, comment l'as-tu résolue ?


--
Bien amicordialement,
P. Bastard

BOnjour

Oui oui ce n'est pas une erreur de date c'est juste que j'ai
oublié de vous dire que j'avais mis sur excelabo quelques
nouveautés dont un classeur de Michel Pierron que je trouve super
: il permet de lire dans excel les flux RSS des sites consacrés à
excel. Pour ceux qui disent atchoum en lisant flux rss, je
précise qu'il s'agit d'une annonce automatique des mises à jour
de sites webs. Vous pouvez donc très facilement depuis excel
savoir ce qui a été ajouté récemment sur vos sites préférés,
anglophones et francophones.
Qu'on se le dise !










Avatar
Michel Pierron
Re Patrick;
Tu as mis en remarque l'intégralité de la ligne au lieu de mettre
l'instruction f = FreeFile sur une ligne séparée (il faut que f soit
déclaré) !
'Kill sFileName: f = FreeFile à modifier en:
'Kill sFileName

f = FreeFile

MP

"Patrick BASTARD" a écrit dans le
message de news: #
Bonsoir, *Michel*

Comme précédemment, mets Kill sFileName en remarque comme suit:
'Kill sFileName
f = FreeFile

Private Sub RSS_html(Flux$, Title$)

Dim f&, sFileName$
sFileName = ThisWorkbook.Path & "" & Title & ".html"
On Error Resume Next
'Kill sFileName: f = FreeFile
Open sFileName For Output As #f>
La dernière ligne me renvoie une erreur d'exécution 52 : nom ou n° de
fichier incorrect.
:-(

Serai-je la victime innocente d'un microclimat ?

--
Bien amicordialement,
P. Bastard

"Patrick BASTARD" a écrit dans le
message de news: #
Bonjour, *Michel *

J'ai suivi ton conseil, et la fenêtre de choix s'ouvre maintenant.

Ce qui fonctionne :
En cliquant sur l'onglet WEB BROWSER, la fenêtre de IE s'ouvre
normalement sur ma page favorite, et je peu naviguer sur le WEB.

Ce qui pose problème :
Je clique sur l'un des liens, et sur check RSS
J'ai maintenant une erreur d'exécution 53 "Fichier introuvable"
qui renvoie vers Frm1
dans Private Sub RSS_html(Flux$, Title$)
à la ligne :
Kill sFileName: f = FreeFile.

Et à nouveau après la ligne "On Error Resume Next"
(Excel 2002 SP3/Win XP, IE 6.0.2900.2180.XPSP_SP2).

Mes paramètres d'Excel seraient-ils erronés ?
Le pare-feu WIN, l'anti-virus (AVG)?


--
Bien amicordialement,
P. Bastard




Bonsoir Patrick;
En attendant de savoir pourquoi tu as cette erreur sur cette ligne
alors qu'elle fait suite à On Error Resume Next,
mets la en remarque; de toute façon, cela n'a d'incidence que sur la
taille de police des contrôles lorsque l'on redimensionne
l'Userform.

MP

"Patrick BASTARD" a écrit dans
le message de news:
Bonjour, *Misange*


J'ai une erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet, qui renvoie vers :
Ctls(Idx).SizeFont = Ctl.Font.Size
dans FRM1 - Private Sub SaveControlsProperties()

as-tu rencontré cette erreur, et si oui, comment l'as-tu résolue ?


--
Bien amicordialement,
P. Bastard

BOnjour

Oui oui ce n'est pas une erreur de date c'est juste que j'ai
oublié de vous dire que j'avais mis sur excelabo quelques
nouveautés dont un classeur de Michel Pierron que je trouve super
: il permet de lire dans excel les flux RSS des sites consacrés à
excel. Pour ceux qui disent atchoum en lisant flux rss, je
précise qu'il s'agit d'une annonce automatique des mises à jour
de sites webs. Vous pouvez donc très facilement depuis excel
savoir ce qui a été ajouté récemment sur vos sites préférés,
anglophones et francophones.
Qu'on se le dise !














1 2