OVH Cloud OVH Cloud

Microsoft Scripting Runtime

10 réponses
Avatar
Gaspareau
Bonjour,

Sur le site de Frédérik Sigonneau j'ai trouvé exactement ce
que je cherchais
afin de créer un fichier avec des liens hypertexte à partir
d'un répertoire
sauf que dans la procédure on me demande de cocher la
librairie "Microsoft Scripting Runtime" afin que la macro
s'exécute normalement. Ce que je fait et effectivement ça
fonctionne à merveille.

Le problème :

à la réouverture d'Excel je dois retourner cocher car Excel
ne conserve pas en mémoire
l'ouverture de cette librairie. Des conseils afin de lui
forcer la mémoire ??

Merci


'ce code, tel qu'il est rédigé, nécessite que la librairie
'Microsoft Scripting Runtime soit cochée dans
Outil\Références
'pour fonctionner.
'sinon, FileSystemObject, Folder, Files ne sont pas reconnus
'et doivent être déclarés As Object

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel

10 réponses

Avatar
j
pas vu la macro...
mais j'imagine que tu peux faire un truc du genre
Set Fs = CreateObject("Scripting.FileSystemObject")
et définir les file et folder par qqchose comme
set rep=Fs.getfolder("c:mes documents")
for each fich in rep.files .....


"Gaspareau" a écrit dans le message de
news: #

Bonjour,

Sur le site de Frédérik Sigonneau j'ai trouvé exactement ce
que je cherchais
afin de créer un fichier avec des liens hypertexte à partir
d'un répertoire
sauf que dans la procédure on me demande de cocher la
librairie "Microsoft Scripting Runtime" afin que la macro
s'exécute normalement. Ce que je fait et effectivement ça
fonctionne à merveille.

Le problème :

à la réouverture d'Excel je dois retourner cocher car Excel
ne conserve pas en mémoire
l'ouverture de cette librairie. Des conseils afin de lui
forcer la mémoire ??

Merci


'ce code, tel qu'il est rédigé, nécessite que la librairie
'Microsoft Scripting Runtime soit cochée dans
OutilRéférences
'pour fonctionner.
'sinon, FileSystemObject, Folder, Files ne sont pas reconnus
'et doivent être déclarés As Object

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel




Avatar
Clément Marcotte
Bonjour,

En gros, la référence va rester cochée dans tous les classeurs où une
macro existante utilise la bibliothèque et qu'elle a déjà été cochée
dans ce classeur.

L'adaptation de permet de ne pas avoir à cocher la référence et
d'utiliser quand même la bibliothèque.

Je ne sais pas si cela marche (au moins je suis honnête), mais tu peux
toujours essayer de transformer cette procédure (elle aussi chez
Frédéric) pour en faire une sub dans le Workbook_open de perso.xl ou
d'un classeur modèle.

http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/VerifieAjouteReference.txt

P.S. J'ai pas le temps d'essayer, j'ai 644 messages non-lus et une
trallée d'autres non lus dans d'autres forums. On part trois jours et
on en revient noyé...


"Gaspareau" a écrit dans le
message de news:%

Bonjour,

Sur le site de Frédérik Sigonneau j'ai trouvé exactement ce
que je cherchais
afin de créer un fichier avec des liens hypertexte à partir
d'un répertoire
sauf que dans la procédure on me demande de cocher la
librairie "Microsoft Scripting Runtime" afin que la macro
s'exécute normalement. Ce que je fait et effectivement ça
fonctionne à merveille.

Le problème :

à la réouverture d'Excel je dois retourner cocher car Excel
ne conserve pas en mémoire
l'ouverture de cette librairie. Des conseils afin de lui
forcer la mémoire ??

Merci


'ce code, tel qu'il est rédigé, nécessite que la librairie
'Microsoft Scripting Runtime soit cochée dans
OutilRéférences
'pour fonctionner.
'sinon, FileSystemObject, Folder, Files ne sont pas reconnus
'et doivent être déclarés As Object

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel




Avatar
j
P.S. J'ai pas le temps d'essayer, j'ai 644 messages non-lus et une
trallée d'autres non lus dans d'autres forums. On part trois jours et
on en revient noyé...


une trallée ?
c'est du qu'est bé quoi donc ?

Avatar
Clément Marcotte
une trallée ?
c'est du qu'est bé quoi donc ?



Oui, cela veut dire beaucoup, beaucoup, beaucoup.

Avatar
Gaspareau
Merci je vais essayer ça !!


--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel


"Clément Marcotte" a écrit
dans le message de
news:%
Bonjour,

En gros, la référence va rester cochée dans tous les
classeurs où une

macro existante utilise la bibliothèque et qu'elle a déjà
été cochée

dans ce classeur.

L'adaptation de permet de ne pas avoir à cocher la
référence et

d'utiliser quand même la bibliothèque.

Je ne sais pas si cela marche (au moins je suis honnête),
mais tu peux

toujours essayer de transformer cette procédure (elle
aussi chez

Frédéric) pour en faire une sub dans le Workbook_open de
perso.xl ou

d'un classeur modèle.


http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/VerifieAjouteReference.txt


P.S. J'ai pas le temps d'essayer, j'ai 644 messages
non-lus et une

trallée d'autres non lus dans d'autres forums. On part
trois jours et

on en revient noyé...


"Gaspareau" a écrit
dans le

message de news:%

Bonjour,

Sur le site de Frédérik Sigonneau j'ai trouvé exactement
ce


que je cherchais
afin de créer un fichier avec des liens hypertexte à
partir


d'un répertoire
sauf que dans la procédure on me demande de cocher la
librairie "Microsoft Scripting Runtime" afin que la
macro


s'exécute normalement. Ce que je fait et effectivement
ça


fonctionne à merveille.

Le problème :

à la réouverture d'Excel je dois retourner cocher car
Excel


ne conserve pas en mémoire
l'ouverture de cette librairie. Des conseils afin de
lui


forcer la mémoire ??

Merci


'ce code, tel qu'il est rédigé, nécessite que la
librairie


'Microsoft Scripting Runtime soit cochée dans
OutilRéférences
'pour fonctionner.
'sinon, FileSystemObject, Folder, Files ne sont pas
reconnus


'et doivent être déclarés As Object

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel







Avatar
sabatier
ben nous, de ce côté-ci, on dit que ça fait onze...
jps

Clément Marcotte a écrit:
une trallée ?
c'est du qu'est bé quoi donc ?




Oui, cela veut dire beaucoup, beaucoup, beaucoup.





Avatar
gee-dee-
;-)))
nan...nan.... Jean-Paul !!!!
onze fait une chiée...

en ch'timi pour dire beaucoup : on dit une paire !!!!
ou bien un mont ou encore une patrafe.....
@+
Avatar
Papyty
Salut @ Tous, gee-dee- a écrit:

onze fait une chiée...


Voir même onze fait chiée, pas ici en tous les cas ;-))

--
@+
Thierry

Avatar
sabatier
tu as raison, thierry, bien sûr, mais ne serait-il pas souhaitable que
chacun, à mon instar, manifeste plus de sérieux et cesse de se
gargariser avec des HS à la limite, parfois même au-delà, du convenable...
voeu pieux, murmurerait dans un souffle notre pape (je parle du québécois)
jps

Papyty a écrit:
Salut @ Tous, gee-dee- a écrit:


onze fait une chiée...



Voir même onze fait chiée, pas ici en tous les cas ;-))




Avatar
DJ9B
Bonjour à tous !
en chtimi pour beaucoup on peut aussi dire "gramin"


--
@ tantôt !
email : http://www.cerbermail.com/?05npeGunAn
Site : http://www.dj9b.fr.st


"gee-dee-" a écrit dans le message de
news:
;-)))
nan...nan.... Jean-Paul !!!!
onze fait une chiée...

en ch'timi pour dire beaucoup : on dit une paire !!!!
ou bien un mont ou encore une patrafe.....
@+