J'ai voulu définir un fichier FSO (FileSystemObject) pour effectuer un export.
J'ia donc un code qui fonctionne sur une grosse dizaine de bases.
Le code est le suivant (en simplifié)
Dim l_fso, l_exportFile
Dim l_strFile As String, l_strPathFile As String
l_strPathFile = "C:\temp\monExport.csv"
Set l_fso = CreateObject("Scripting.FileSystemObject")
Set l_exportFile = l_fso.CreateTextFile(l_strPathFile, True)
[etc etc exploitation du fichier]
Ce code fonctionne tres bien, tous les jours, sauf ce matin, sur une seule des 10 bases.
Je cherche alors et je vois que la ligne :
Set l_exportFile = l_fso.CreateTextFile(l_strPathFile, True)
Provoque une erreur OLE: Automation object error
Je tente de reproduire l'erreur sur mon serveur de dev, le fichier s'initialise bien, l'export se fait.
Je tente de le reexecuter une deuxieme fois, et la l'erreur se reproduit. Depuis elle se reproduit systematiquement. Le probleme c'est que je n'arrive pas a comprendre pourquoi.
La syntaxe est correcte, cela fait appel a des biblio sur le serveur mais puisque l'export fonctionne sur 9 bases pourquoi pas sur la 10eme ?
Avez vous des idées pour m'orienter ?