Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
Bonjour,
Dans le cas où tu veux utiliser un nouvel (New) object, il faut cocher la référence à la bibliothèque d'objets. Pour la bibliothèque scripting, c'est Microsoft Scripting Runtime.
Si tu passes par Ceateobject(), la référence à la bibliothèque n'est pas nécessaire.
"JL" a écrit dans le message de news:086c01c37099$c4a87f30$ Re-Re-bonsoir, En fait ce message survient dans le debogueur à la ligne : Dim fso As New Scripting.FileSystemObject
Merci
JL
Bonjour,
Dans le cas où tu veux utiliser un nouvel (New) object, il faut cocher
la référence à la bibliothèque d'objets. Pour la bibliothèque
scripting, c'est Microsoft Scripting Runtime.
Si tu passes par Ceateobject(), la référence à la bibliothèque n'est
pas nécessaire.
"JL" <laje@free.fr> a écrit dans le message de
news:086c01c37099$c4a87f30$a501280a@phx.gbl...
Re-Re-bonsoir,
En fait ce message survient dans le debogueur à la ligne :
Dim fso As New Scripting.FileSystemObject
Dans le cas où tu veux utiliser un nouvel (New) object, il faut cocher la référence à la bibliothèque d'objets. Pour la bibliothèque scripting, c'est Microsoft Scripting Runtime.
Si tu passes par Ceateobject(), la référence à la bibliothèque n'est pas nécessaire.
"JL" a écrit dans le message de news:086c01c37099$c4a87f30$ Re-Re-bonsoir, En fait ce message survient dans le debogueur à la ligne : Dim fso As New Scripting.FileSystemObject
Merci
JL
Clément Marcotte
Bonjour,
Je viens de lire l'autre réponse, plus haut/plus bas.
Si la référence ne parait pas dans la liste, cela se pourrait bien être parce que l'environnement des scripts n'est pas installé. Il est disponible là:
NB. L'environnement est disponible en 2 versions. Choisir la bonne...
"JL" a écrit dans le message de news:086f01c370bd$7db43dc0$ Bonsoir,
Merci de votre aide attentive, mais c'est du chinois pour moi. J'ai fait F2 et n'ai pas trouvé le Microsoft sScripting Runtime.
En fait, pour etre pragmatique et éviter de fiare perdre du temps à tout le monde, j'essaie de fiare marcher cette macro :
Sub CopieFichiers()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsLavieApplication DataMicrosoftOfficeMSO*.aclSource" Destination = "C:Documents and SettingsJean LavieApplication DataMicrosoftOfficeDestination"
On Error GoTo errHandler fso.CopyFolder Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
Qu'est ce qu'il faut ajouter pour que ça marche ?
Merci de votre aide
JL
-----Message d'origine----- Bonjour à tous, dans le message <OyZ$, Clément Marcotte [], a
| Bonjour, | | Dans le cas où tu veux utiliser un nouvel (New) object, il faut cocher
| la référence à la bibliothèque d'objets. Pour la bibliothèque
| scripting, c'est Microsoft Scripting Runtime. | | Si tu passes par Ceateobject(), la référence à la bibliothèque n'est
| pas nécessaire.
Cela se discute ! en effet si tu ne références pas, tu ne peux pas
utiliser le complément automatique des instructions (bibliothèque
inconnue à la création), donc tu ne peux pas déclarer le bon type. En
l'occurence il aura toujours la même erreur. Pour ma part je trouve dommage de se priver de cela. Avec la référence
au moins on n'utilise que les bonnes propriétés et méthodes, et il n'y a
plus de fautes de syntaxe. Chacun ses goûts. -- A+
GMO MVP Word
Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se
faire aider ne fait qu'accélérer le processus.
Edward A. Murphy, Jr.
.
Bonjour,
Je viens de lire l'autre réponse, plus haut/plus bas.
Si la référence ne parait pas dans la liste, cela se pourrait bien
être parce que l'environnement des scripts n'est pas installé. Il est
disponible là:
NB. L'environnement est disponible en 2 versions. Choisir la bonne...
"JL" <laje@free.fr> a écrit dans le message de
news:086f01c370bd$7db43dc0$a001280a@phx.gbl...
Bonsoir,
Merci de votre aide attentive, mais c'est du chinois pour
moi. J'ai fait F2 et n'ai pas trouvé le Microsoft
sScripting Runtime.
En fait, pour etre pragmatique et éviter de fiare perdre
du temps à tout le monde, j'essaie de fiare marcher cette
macro :
Sub CopieFichiers()
Dim fso As New Scripting.FileSystemObject
Dim Source As String
Dim Destination As String
Source = "C:Documents and SettingsLavieApplication
DataMicrosoftOfficeMSO*.aclSource"
Destination = "C:Documents and SettingsJean
LavieApplication DataMicrosoftOfficeDestination"
On Error GoTo errHandler
fso.CopyFolder Source, Destination
Set fso = Nothing
Exit Sub
errHandler:
If Err = "76" Then MsgBox "Entrer un nom de " & _
"dossier valide", vbCritical
Set fso = Nothing
End Sub
Qu'est ce qu'il faut ajouter pour que ça marche ?
Merci de votre aide
JL
-----Message d'origine-----
Bonjour à tous,
dans le message <OyZ$l4JcDHA.456@TK2MSFTNGP10.phx.gbl>,
Clément Marcotte [clement.marcotte@sympatico.ca], a
| Bonjour,
|
| Dans le cas où tu veux utiliser un nouvel (New)
object, il faut cocher
| la référence à la bibliothèque d'objets. Pour la
bibliothèque
| scripting, c'est Microsoft Scripting Runtime.
|
| Si tu passes par Ceateobject(), la référence à la
bibliothèque n'est
| pas nécessaire.
Cela se discute ! en effet si tu ne références pas, tu
ne peux pas
utiliser le complément automatique des instructions
(bibliothèque
inconnue à la création), donc tu ne peux pas déclarer le
bon type. En
l'occurence il aura toujours la même erreur.
Pour ma part je trouve dommage de se priver de cela.
Avec la référence
au moins on n'utilise que les bonnes propriétés et
méthodes, et il n'y a
plus de fautes de syntaxe. Chacun ses goûts.
--
A+
GMO MVP Word
Laissées à elles-mêmes, les choses tendent à aller de
pire en pire. Se
Je viens de lire l'autre réponse, plus haut/plus bas.
Si la référence ne parait pas dans la liste, cela se pourrait bien être parce que l'environnement des scripts n'est pas installé. Il est disponible là:
