errreur automation - bibliothèque non inscrite Résolu

Question

Bonjour, 
Je code en VBA sous ACCESS
Dans Rérérences, j'ai ajouté Microsoft Scripting Runtime qui se réfère à C:\Windows\System32\scrrun.dll
La dll en question existe bien à la place indiquée.
Je cherche à créer une copie de ma base de donnée de façon automatique, afin que mes utilisateurs puissent faire une sauvegarde.
Voici mon code :

Public Sub copie_base()'déclaration des fichiersDim ofso As scripting.FileSystemObjectDim ofso_file As scripting.FileDim ofso_des As StringMsgBox ("après dim")'instanciationSet ofso = New scripting.FileSystemObjectMsgBox ("après set ofso")Set ofso_file = ofso.GetFile("C:\DDI\OSTEO.accdb")MsgBox ("après set ofso_file")'préparationofso_des = "C:\DDI\DDI_SAUV\OSTEO_" & strdat(Date) & "_" & strtime(Time) & ".accdb"'MsgBox ("ofso_des " & ofso_des)'copieofso_file.Copy ofso_des, FalseMsgBox ("copie " & ofso_des & " effectuée ")'nettoyageSet ofso = NothingEnd Sub

Mon programme se plante après la tentative d'instanciation avec le message suivant : Erreur execution -2147319779 - Erreur automation - Bibliothèque non inscrite
Donc je ne passe jamais dans "msgbox ("après set ofso")

Pourriez vous m'aider à trouver mon erreur s'il vous plait ?
Ou une autre méthode pour créer une sauvegarde auto de la base incluant le nom la date et l'heure dans un répertoire spécifié ?

Merci d'avance,

ucfoutu · Answer

Bonjour,
Je commence par déplacer cette discussion, indûment ouverte dans le forum général de Visual Basic, vers le sous-forum VBA

ucfoutu · Answer

Le code montré aboutit bien à l'azffichage du message dont tu dis qu'il ne "passe" pas :
"après set ofso"
Je ne suis pas allé plus loin,  donc ...
Nota : il est maladroit d'utiliser FSO, qui dépend de VBS, lequel peut avoir été volontairement inhibé sur certaines machines, dont la mienne.

On peut d'ailleurs se demander la raison pour laquelle tu vas tout alourdir avec FSO alors qu'existe l'instruction FILECOPY de VBA !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Errreur automation - bibliothèque non inscrite

2 réponses

Discussions similaires