Erreur d'exécution '-2147417848 (80010108)'
wolf_m70
-
wolf_m70 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
wolf_m70 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous.
Je viens vous demander de l'aide pour un projet excel.
Tout d'abord, sachez que je suis une débutante dans le domaine.
Dans le cadre du travail, je dois créer un fichier permettant de saisir les fiches clients, les commandes clients et les commandes fournisseurs.
J'ai donc réalisé trois formulaires permettant de saisir ces données.
Tout fonctionnait très bien jusqu'à ce qu'une erreur apparaisse :
Erreur d'exécution '-2147417848 (80010108)'
La méthode '_Default' de l'objet 'Range' a échoué
Erreur d'exécution '-2147417848 (80010108)'
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.
Voici l'un de mes codes pour saisir les données. Tous les autres codes ont été basés sur le même modèle. Pour des raisons de confidentialité j'ai modifié le nom des text_box.
Sub
Application.ScreenUpdating = False
Feuil3.Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = TextBox4
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox7
ActiveCell.Offset(0, 7).Value = ComboBox1
ActiveCell.Offset(0, 8).Value = TextBox8
ActiveCell.Offset(0, 9).Value = TextBox9
Unload Me
MsgBox "Votre commande a bien été enregistrée", vbOKOnly + vbInformation, "Confirmation"
End Sub
L'erreur se déclenche au niveau de la ligne "ActiveCell = TextBox1.Value"
J'ai déjà essayé de remplacer les TextBox par de nouvelles mais cela n'a pas fonctionné.
Pouvez-vous m'aider s'il vous plait ??
Merci par avance,
Bonne journée à tous ! :)
Je viens vous demander de l'aide pour un projet excel.
Tout d'abord, sachez que je suis une débutante dans le domaine.
Dans le cadre du travail, je dois créer un fichier permettant de saisir les fiches clients, les commandes clients et les commandes fournisseurs.
J'ai donc réalisé trois formulaires permettant de saisir ces données.
Tout fonctionnait très bien jusqu'à ce qu'une erreur apparaisse :
Erreur d'exécution '-2147417848 (80010108)'
La méthode '_Default' de l'objet 'Range' a échoué
Erreur d'exécution '-2147417848 (80010108)'
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.
Voici l'un de mes codes pour saisir les données. Tous les autres codes ont été basés sur le même modèle. Pour des raisons de confidentialité j'ai modifié le nom des text_box.
Sub
Application.ScreenUpdating = False
Feuil3.Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = TextBox4
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox7
ActiveCell.Offset(0, 7).Value = ComboBox1
ActiveCell.Offset(0, 8).Value = TextBox8
ActiveCell.Offset(0, 9).Value = TextBox9
Unload Me
MsgBox "Votre commande a bien été enregistrée", vbOKOnly + vbInformation, "Confirmation"
End Sub
L'erreur se déclenche au niveau de la ligne "ActiveCell = TextBox1.Value"
J'ai déjà essayé de remplacer les TextBox par de nouvelles mais cela n'a pas fonctionné.
Pouvez-vous m'aider s'il vous plait ??
Merci par avance,
Bonne journée à tous ! :)
2 réponses
Bonjour
Essaies comme ça
Cdlmnt
Essaies comme ça
Feuil3.Activate
With Feuil3
.Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell.Value = TextBox1.Value
...
End With
Cdlmnt
Et en spécifiant le nom du formulaire ?
https://mon-partage.fr/f/B8H9ogeb/
Cdlmnt
ActiveCell.Value = UserForm1.TextBox1.Value
https://mon-partage.fr/f/B8H9ogeb/
Cdlmnt
Merci pour ta réponse mais malheureusement ça ne fonctionne toujours pas..
Le fichier sort la même erreur au même endroit
Cordialement
Pour tout ceux qui sont dans le même cas que moi et qui ne trouvent pas de réponse sur internet :
J'ai découvert que lorsque le fichier m'envoie l'erreur au lieu de cliquer sur "Debogage", si je clique sur "Fin" la macro fonctionne donc mes données sont saisies.
Lorsque je me suis rendue compte de ça j'ai tout de suite relancé ma macro et cette fois elle fonctionne sans même m'envoyer le message d'erreur et ce pour tous mes formulaires.
Elle fonctionne jusqu'à ce que je ferme le fichier. A la réouverture du fichier, la première fois que je lance la macro cela recommence. Mais lorsque je reproduit ces étapes, tout remarche normalement.
Je n'hésiterai pas à vous avertir si j'ai enfin corrigé l'erreur définitivement mais pour l'instant je vais devoir faire avec cette solution de secours !
Encore merci à ccm81 pour avoir tenté de m'aider à résoudre mon problème :)
Bonne chance à vous !
Question: Où avez-vous mis cette macro? dans quel module?
Parce que je l'ai placé dans le module de l'userform et essayé, cela fonctionne bien.
Cdlt
Ma macro est liée à mon bouton "valider" dans le userform.
Cela fonctionnait parfaitement au début. Ensuite j'ai continué à avancer sur le projet et plus rien ne fonctionnait.
Après plusieurs essais l'erreur n'apparaît même plus, sans que je n'ai rien eu à faire.
J'avais essayé de créer une macro qui me permettais d'extraire mes données dans un autre fichier pour les archiver. Je me dis que c'est peut être ce lien entre deux fichiers qui a posé problème mais l'erreur ne s'est pas présentée tout de suite et n'étais même pas sur la macro "d'extraction" alors je ne sais pas trop...
Merci de ton aide Frenchie83
Cordialement