Bonjour,
l'hypothèse de la base access non accesible n'est pas possible car c'est la base access qui me sert d'interface utilisateur constamment.
Toutes les actions partent d'access. Donc la base est bien disponible.
D'access, je passe par automation pour transférer des données d'access vers excel. Voici le code:
Private Sub cmd_valid_Click()
'*********************** TRANSFERT ABSENCES CONSULTANTS *************************
'déclaration
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
'ouverture de la connexion
conn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & 'C:\\Documents and Settings\\ICRH001\\Bureau\\ICRH.mdb' & ';'
conn.CursorLocation = adUseClient
'exécute la connexion pour la requête concernée
Set rs = conn.Execute('req_his_abs', , adCmdQuery)
'déclaration de l'application EXCEL
Dim XL_App As Object
Set XL_App = CreateObject('Excel.Application')
'déclaration du classeur et de la feuille
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
'ouverture du classeur
Set XL_classeur = .Workbooks.Open('C:\\Documents and Settings\\ICRH001\\Bureau\\congés-absences-TS_trav.XLS')
' désignation de la feuille
Set XL_feuille = XL_classeur.Sheets('absences')
With XL_feuille
.Select
' effacement de la plage avant ré_insertion de la nouvelle liste
.Range('A2
200').Clear
'insertion de la nouvelle liste des consultants
.Range('A2').CopyFromRecordset rs
End With
.ActiveWorkbook.Save
.ActiveWorkbook.close
' Quitter Excel
.Quit
End With
'fermeture du recordset
rs.close
' fermeture de la connexion
conn.close
' Libérer les variables objet
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
'************************** fin transfert *****************************
'fermeture du formulaire
DoCmd.close
End Sub
A côté de l'indication #NOM, quand je clique dessus l'erreur est :
erreur dû à un nom non valide.
Pour le moment j'ai réussi à retranscrire l'erreur en supprimant la table lier dans access.
Je suis entrain de voir la solution du chargement.
Car le problème initiale que je devais résoudre était que je n'avais pas les mêmes données entre ma table lier dans access et mon fichier excel source d'où proviennent ces même données.
Il semble que quand je n'ai pas de soucis avec #NOM, je ne récupère les mêmes valeurs uniquement quand j'ouvre de nouveau EXCEL et le ferme en sauvegardant.