OVH Cloud OVH Cloud

ADO

3 réponses
Avatar
pcvsfr
jutilise excel 2000 sous w2000 pro

J'ai une macro qui envoit un fichier par mail contenant lui méme une macro
Lorsque l'utilisateur recoit le fichier la macro se declenche par l'appui
sur un bouton.
Cette macro sert a remettre à jour un fichier excel fermé par ADO.

Jusque la pas de pb tout fonctionne bien sauf que lorsque la macro est lance
par l'utilisateur elle plant car il n'y a pas la référence a microsoft data
object

Je recherche donc si il est possible par VBA d'ajouter une référence
Quelqu'un connaitrait t'il se code ??

3 réponses

Avatar
Antoine
Bonjour

Essaie peut-être d'aller voir dans VBA project - Outils - Références, si la
ligne
Microsoft ADO Ext. 2.8 for DDL and Security
est bien cochée
sinon, coches-la et dis nous...

Antoine
"pcvsfr" a écrit dans le message de news:

jutilise excel 2000 sous w2000 pro

J'ai une macro qui envoit un fichier par mail contenant lui méme une macro
Lorsque l'utilisateur recoit le fichier la macro se declenche par l'appui
sur un bouton.
Cette macro sert a remettre à jour un fichier excel fermé par ADO.

Jusque la pas de pb tout fonctionne bien sauf que lorsque la macro est
lance
par l'utilisateur elle plant car il n'y a pas la référence a microsoft
data
object

Je recherche donc si il est possible par VBA d'ajouter une référence
Quelqu'un connaitrait t'il se code ??






Avatar
michdenis
Bonjour pcvsfr,

Essaie ceci en copiant le tout dans le ThisWorkbook de ton classeur.


Conserve le code qui représente la bibliothèque ADO utilisé dans ton code


'-----------------------------------
Private Sub Workbook_Open()

On Error Resume Next

'Bibliothèque : version ADO 2.0
'ThisWorkbook.VBProject.References. _
AddFromGuid "{00000200-0000-0010-8000-00AA006D2EA4}", 2, 0

'Version ADO 2.8
ThisWorkbook.VBProject.References. _
AddFromGuid "{2A75196C-D9EB-4129-B803-931327F72D5C}", 2, 8

End Sub
'-----------------------------------


Salutations!




"pcvsfr" a écrit dans le message de news:
jutilise excel 2000 sous w2000 pro

J'ai une macro qui envoit un fichier par mail contenant lui méme une macro
Lorsque l'utilisateur recoit le fichier la macro se declenche par l'appui
sur un bouton.
Cette macro sert a remettre à jour un fichier excel fermé par ADO.

Jusque la pas de pb tout fonctionne bien sauf que lorsque la macro est lance
par l'utilisateur elle plant car il n'y a pas la référence a microsoft data
object

Je recherche donc si il est possible par VBA d'ajouter une référence
Quelqu'un connaitrait t'il se code ??
Avatar
pcvsfr
Ca marche
Merci michdenis et antoine


Bonjour pcvsfr,

Essaie ceci en copiant le tout dans le ThisWorkbook de ton classeur.


Conserve le code qui représente la bibliothèque ADO utilisé dans ton code


'-----------------------------------
Private Sub Workbook_Open()

On Error Resume Next

'Bibliothèque : version ADO 2.0
'ThisWorkbook.VBProject.References. _
AddFromGuid "{00000200-0000-0010-8000-00AA006D2EA4}", 2, 0

'Version ADO 2.8
ThisWorkbook.VBProject.References. _
AddFromGuid "{2A75196C-D9EB-4129-B803-931327F72D5C}", 2, 8

End Sub
'-----------------------------------


Salutations!




"pcvsfr" a écrit dans le message de news:
jutilise excel 2000 sous w2000 pro

J'ai une macro qui envoit un fichier par mail contenant lui méme une macro
Lorsque l'utilisateur recoit le fichier la macro se declenche par l'appui
sur un bouton.
Cette macro sert a remettre à jour un fichier excel fermé par ADO.

Jusque la pas de pb tout fonctionne bien sauf que lorsque la macro est lance
par l'utilisateur elle plant car il n'y a pas la référence a microsoft data
object

Je recherche donc si il est possible par VBA d'ajouter une référence
Quelqu'un connaitrait t'il se code ??