Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sebalf
  • Date de début Date de début

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 !

S'inscrire
S

sebalf

XLDnaute Nouveau
Bonjour à tous,
mon programme fonctionnait depuis quelques mois, mais depuis qq jours je rencontre des problèmes sur excel2007 pas sur excel2003.

La macro suivante fonctionne sans beug quand je suis dans l'éditeur VBE, mais pas quand le programme est piloté à l'ouverture du fichier.

Private Sub CommandButton2_Click()
If d = 4 Or d = 5 Or d = 6 Then
Me.Hide
G_CONSOBAT.Show
End If

If d = 41 Or d = 51 Or d = 61 Then
Me.Hide
H_CONSOECLAIR.Show
End If

If d = 42 Or d = 52 Or d = 62 Then
Me.Hide
J_CARBURANT.Show
End If

If d = 43 Or d = 53 Or d = 63 Then
Me.Hide
I_EAU.Show
End If
End sub


Le message : Erreur d'exécution '-2147417848 (80010108)': Erreur Automation L'objet invoqué s'est déconnecté de ses clients.

Merci de votre aide
 
Trier par date Trier par votes
Re : Erreur d'exécution '-2147417848 (80010108)': Erreur Automation

Bonjour à tous,

je suis dans le même cas de Sebalf : j'ai une macro qui fonctionne très bien en 97 et 2002 mais qui me renvoie "Erreur d'éxécution '-2147417848 (80010108)' ; La méthode 'Hidden' de l'objet 'Range' a échoué" en Excel 2007.

Merci par avance pour votre aide

Macro utilisée :

Private Sub Worksheet_Calculate()
If Range("J7") = 12 Then
ActiveSheet.Unprotect Password:="1234"
Rows("1:36").EntireRow.Hidden = False
Rows("37:174").EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End If
If Range("J7") = 15 Then
ActiveSheet.Unprotect Password:="1234"
Rows("1:39").EntireRow.Hidden = False
Rows("40:174").EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End If
If Range("J7") = 20 Then
ActiveSheet.Unprotect Password:="1234"
Rows("1:44").EntireRow.Hidden = False
Rows("45:174").EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End If
If Range("J7") = 150 Then
ActiveSheet.Unprotect Password:="1234"
Rows("1:174").EntireRow.Hidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End If

End Sub
 
Vote positif 0 Vote négatif
Re : Erreur d'exécution '-2147417848 (80010108)': Erreur Automation

Bonjour à tous,

j'ai continué mon tour de la toile à la recherche d'un élément de réponse, mais malheureusement rien ne me permet d'obtenir une macro qui fonctionne sur cette version mystérieuse (2007) !

Je m'en remets à votre aide précieuse, et vous remercie par avance.

Ben
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
114
job75
Génération de QR Codes
Réponses
5
Affichages
1 K
mromain
P
  • Résolu(e)
erreur d'exécution "9" vba sur plage
Réponses
3
Affichages
789
piskely
P
P
  • Question Question
XL 2019 VBA Erreur d'exécution "9" dans une plage de tableau
Réponses
2
Affichages
520
piskely
P
  • Résolu(e)
Autres (RESOLU) Erreur d'exécution '9
Réponses
14
Affichages
1 K
chaelie2015
O
  • Question Question
XL 2016 Erreur automation l'objet invoqué s'est déconnecté de ses clients
Réponses
6
Affichages
2 K
Compte Supprimé 979
C
E
  • Question Question
XL 2010 Erreur système & H80010108 (-2147417848). L'objet invoqué s'est déconnecté de ses clients.
Réponses
4
Affichages
2 K
esox38
E
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
847
TooFatBoy
T
  • Résolu(e)
XL 2013 Erreur macro export PDV automatique
Réponses
5
Affichages
958
tigus
T
V
  • Question Question
XL 2019 Erreur de compilation end if sans bloc if
Réponses
3
Affichages
1 K
Vivien samba
V
B
  • Question Question
XL 2010 Erreur 1004 : Impossible de lire la propriété Insert de la classe Pictures
2
Réponses
15
Affichages
6 K
isramail
I
S
  • Question Question
filtrer un filtre
Réponses
3
Affichages
961
Staple1600
B
  • Question Question
Erreur Incompatible Type 13
Réponses
2
Affichages
1 K
BENAM69
B
  • Question Question
XL 2016 Optimiser macro
Réponses
3
Affichages
970
KTM
L
  • Question Question
Microsoft 365 Problème erreur range
Réponses
11
Affichages
2 K
LaSimonerie
L
B
  • Question Question
Erreur d'exécution 13
Réponses
1
Affichages
662
bluet
B
D
  • Question Question
Macro - Erreur d'exécution
Réponses
3
Affichages
903
Staple1600
L
  • Question Question
XL 2010 Excel : erreur d'exécution '-2147024809 (80070057)' liée au UserForm1.Show vbModeless
Réponses
1
Affichages
2 K
ChTi160
  • Question Question
VBA Erreur d'exécution 13
Réponses
9
Affichages
2 K
Jacky67
  • Question Question
XL 2010 Une fonction qui sature
Réponses
8
Affichages
2 K
Magic_Doctor
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…