Voila le début de mon code pour ma macro, Le problème c'est qu'une
erreur de compilation intervient quand je l'exécute. On me dit type
indéfini par l'utilisateur non défini pour la ligne indiquée en rouge
dans mon code. Je comprend pas parce que j'ai la même macro sous word
est tout marche mais pas avec Excel.
Si vous avez une solution merci d'avance.
Public Sub MAJ_doc()
Dim objet As
String
' objet du document
Dim sens As
String
' sens du document
Dim sensbool As
Boolean
' booleen qui renvoie vrai si le sens est vide
Dim pers_ipm As
String
' personne d'IPM
Dim pers_ext As
String
' personne extérieure
Dim date_creation As String ' date de création du document
Dim nom_fichier As String ' chemin du document
Dim mode As
String
' mode du document
Dim md As
Boolean
' booleen qui renvoie vrai si le mode est vide
Dim nature As
String
' nature du document
Dim affaire As
String
' affaire concernée par un document
Dim projet As
String
' projet concerné par un document
Dim MAJ As
Boolean
' permet de savoir si on peut faire la MAJ
Dim oCon As ADODB.Connection ' Connexion vers la BD
Dim strConnect As
String
' Chaîne de connexion vers la BD
Dim docSql As
String
' requete SQL
Dim docRst As ADODB.Recordset ' Ensemble de données d'une table
As-tu bien ajouté une référence à ADO dans ton projet ??
Et puis une erreur de compilation pour un langage interprété, c'est fort !!! Y sont balaise chez Microsoft tout de même.
Je ne crois pas que le format .xls soit reconnu par ADODB. Je viens d'essayer et j'ai toujours le même message "Format de BDD non reconnu".
Par contre j'y arrive avec un control Data.
