J'ai une macro que j'utilise en Outllook pour exporter mes notes en fichiers de format texte. Cette macro fonctionnait bien. Mais depuis quelques temps j'ai le message d'erreur suivant:


Erreur d'exécution '429':

Un composant ActiveX ne peut pas créer d'objet

Je n'ai pas installé grand chose depuis, ActiveSync et
utilitaire Casio.

J'ai désintallé les dernier logiciel et J'ai effectuer une réparation d'office, rien de changer...

Quoi faire???


Voici la macro:
------------------------------------------------

Sub ExportNotes()
Dim strFname As String
Dim x As Integer

Const olFolderNotes = 12
x = 1

Set out = CreateObject("Outlook.Application")
Set fs = CreateObject("Scripting.FileSystemObject")
Set ns = out.GetNamespace("MAPI")
Set fldr = ns.GetDefaultFolder(olFolderNotes)

For x = 1 To fldr.Items.Count

strFname = fldr.Items(x).Subject
strFname = Replace(strFname, "/", "_")
strFname = Replace(strFname, "\", "_")
strFname = Replace(strFname, "|", "_")
strFname = Replace(strFname, "?", "_")
strFname = Replace(strFname, "*", "_")
strFname = Replace(strFname, ":", "_")
strFname = Replace(strFname, "?", "_")
strFname = Replace(strFname, ">", "_")
strFname = Replace(strFname, "<", "_")
strFname = Replace(strFname, Chr(34), "_")
strFname = Replace(strFname, ".", "_")

If Len(strFname) > 65 Then
strFname = Left(strFname, 65)
End If

Set txt = fs.CreateTextFile("c:\notes\" & strFname
& ".txt")
txt.WriteLine fldr.Items(x).Body & vbNewLine &
vbNewLine & "(En date du: " & Format(fldr.Items
(x).LastModificationTime, "yyyy-mm-dd") & ")"

Next x
MsgBox "Terminé"
End Sub

Tu as une référence manquante soit à Outlook.Application ou Scripting.FileSystemObject.

Fais-toi un fichier VBS avec ceci:


Note: le forum fait de la censure automatique:
maudine = s t i e
flûteé = f u c k é

_________________
HTH

This posting is provided "AS IS" with no warranties, and confers no rights cr*sse!

Salut,

Avec ton test:

C'est FileSystemObject

Que faire??? Est-il possible de mettre à jour ActiveX?

Download et installe la dernière version, ce sera plus simple ainsi...

Windows Script 5.6 for Windows 98, Windows Millennium Edition and Windows NT 4.0

Windows Script 5.6 for Windows 2000

Choisis le bon langage...

_________________
HTH

This posting is provided "AS IS" with no warranties, and confers no rights cr*sse!

Existe t-il une version pour Windows XP?

Le Windows Scripting Host (WSH) fait partie intégrante de Win2K et XP. La version 5.6 est une mise à jour pour Win2K.

Si tu as des problèmes avec le WSH sous XP dis-le et je t'aiderai à corriger le tout.

_________________
HTH

This posting is provided "AS IS" with no warranties, and confers no rights cr*sse!

Wow, merci, c'est la première fois avec mes recherches sur cette erreur que je vois le windows Script, à lire la description mon problème est probablement là.

Dans mon cas, j'ai Windows XP. J'ai cependant pu voir que la version pour 2000 fonctionne en XP, est-ce vrai?

Merci.

Le code d'erreur "429 ActiveX Can't create object" est générique aux objets COM.

Tout objet COM qui est appellé dans un programme via un CreateObject et qui n'est pas sur l'ordinateur va générer l'erreur 429. Dans un programme compilé qui a une référence directe sur l'objet (on parle dans ce cas de Early binding) le programme ne s'exécute même pas...

Windows XP est livré avec la version 5.6 et comme Win2K est sur la même base que XP il ne devrait pas y avoir de problèmes.

_________________
HTH

This posting is provided "AS IS" with no warranties, and confers no rights cr*sse!

Le fichier pour Windows 2000 ne fonctionne pas en XP, alors comment réparer le Script en XP?

Recherche sur ton disque le fichier SCRRUN.DLL

Quand tu l'auras trouver cliques sur Start/Run et tape REGSVR32 avec un espace après le mot.

Ensuite tu Drag&Drop le fichier SCRRUN.DLL sur la zone de texte où tu as tapé REGSVR32. Cela devrait te donner:

REGSVR32 C:\Windows­\System32\SCRRUN.DLL si SCRRUN.DLL est dans le dossier C:\Windows­\System32.

Cliques OK et tout devrait rentrer dans l'ordre...

_________________
HTH

This posting is provided "AS IS" with no warranties, and confers no rights cr*sse!

Merci beaucoup, tout fonctionne bien maintenant!!!