Message d'erreur macro vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Marion1857

XLDnaute Nouveau
Pourquoi lorsque j'excute ma macro un message d'erreur s'affiche.
Le message d'erreur étant le suivant Erreur d'exécution '3024' : Erreur définie par l'application ou l'objet
Sub WritingWorksheetData_DAO()

Dim Plage As Range

Dim Array1 As Variant

Dim x As Variant

Dim Db1 As Database

Dim Rs1 As Recordset

' Ouverture de la base de données Commandes.mdb

Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Commandes.mdb")

' Ouverture de la table Factures

' Un objet Recordset représente les enregistrements d'une table

Set Rs1 = Db1.OpenRecordset("Factures", dbOpenDynaset)

' Détermination de la taille de la plage à envoyer vers Access

Set Plage = Worksheets("DAOSheet").Range("A1").CurrentRegion.Offset(1, 0)

Set Plage = Plage.Resize(Plage.Rows.Count - 1, Plage.Columns.Count)

Plage.Select

' Lecture de la plage pour renvoyer une valeur contenant un tableau

Array1 = Plage.Value

' Ecriture des données depuis Excel vers les enregistrement de la table Factures

For x = 1 To UBound(Array1, 1)

With Rs1

.AddNew

.Fields("Client") = Array1(x, 1)

.Fields("Date") = Array1(x, 2)

.Update

End With

Next

' Fermeture de la base Commandes.mdb

Db1.Close

' Effacement des données copiées vers la base (sauf les titres)

With Selection.CurrentRegion

Intersect(.Cells, .Offset(1)).Select

End With

Selection.ClearContents

End Sub
 
Re : Message d'erreur macro vba

Bonjour Marion, bonjour le forum,

J'ai collé ton code dans un fichier vierge et ça plante d'entrée pour
:
Code:
Dim Db1 As database
Dim Rs1 As Recordset
avec le même message Type défini par l'utilisateur non défini. J'avoue que je navet jamais vu ce genre de déclaration...
Ensuite, ce qui serait bien, c'est :
• soit d'indiquer la ligne qui plante (parmi tout ce long code) (glop)
• soit de fournir le fichier qui va bien (glop, glop) pour qu'on puisse faire tourner le code sans avoir à recréer tout son environnement...

Ce qui serait sympa aussi c'est que tu utilises les balises de codes (#) en passant par le mode avancé pour éditer tes messages.

 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
3
Affichages
951
Réponses
16
Affichages
2 K
Retour