Erreur d'exécution '-2147417848 (80010108)'

wolf_m70 -  
wolf_m70 Messages postés 3 Statut Membre -
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 ! :)

2 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    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
    0
    1. wolf_m70
       
      Bonjour ccm81,

      Merci pour ta réponse mais malheureusement ça ne fonctionne toujours pas..
      Le fichier sort la même erreur au même endroit

      Cordialement
      0
    2. wolf_m70 Messages postés 3 Statut Membre
       
      Bonjour tout le monde,

      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 !
      0
      1. Frenchie83 Messages postés 2254 Statut Membre 339 > wolf_m70 Messages postés 3 Statut Membre
         
        Bonjour,

        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
        0
      2. wolf_m70 Messages postés 3 Statut Membre > Frenchie83 Messages postés 2254 Statut Membre
         
        Bonjour,

        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
        0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Et en spécifiant le nom du formulaire ? 
    ActiveCell.Value = UserForm1.TextBox1.Value

    https://mon-partage.fr/f/B8H9ogeb/

    Cdlmnt
    0
    1. wolf_m70 Messages postés 3 Statut Membre
       
      Merci mais cela ne fonctionne toujours pas.. :(

      Cordialement
      0