[VBA] Erreur d'automation Résolu

Question

Bonjour, 

J'ai une erreur d'automation avec pour commentaire "s'est déconnecté de ses clients"
Je ne sais pas du tout à quoi cela peut correspondre étant donné que c'est sur de la mise en forme de cellule.

Ci-dessous le code : 


    On Error GoTo ErrorHandler
Recommencer:
    Sheets(Feuille).Activate
    Range(Sheets(Feuille).Cells(LD, CD), Sheets(Feuille).Cells(LF, CF)).Select
    Sheets(Feuille).ListObjects.Add(xlSrcRange, Sheets(Feuille).Range(Sheets(Feuille).Cells(LD, CD), Sheets(Feuille).Cells(LF, CF)), , xlYes).Name = _
        Titre
    Range(Sheets(Feuille).Cells(LD, CD), Sheets(Feuille).Cells(LF, CF)).Select
    Sheets(Feuille).ListObjects(Titre).TableStyle = "TableStyleLight2"
    Sheets(Feuille).ListObjects(Titre).ShowTotals = True
    Exit Sub
ErrorHandler:
    Randomize
    Titre = Titre & Int(Rnd) & Int(Rnd) 'Traitement de l'erreur sur le nom de tableau similaire
    GoTo Recommencer




L'erreur s'affiche sur le ActiveSheet.ListObjects(Titre).TableStyle = "TableStyleLight2"

Configuration: Windows 2003 / Internet Explorer 7.0

Yah · Answer

Ou sur le .ShowTotals

lermite222 · Answer

Bonjour,  
1°) Je suppose que Feuille est initialiser avant ?  
2°) Pour une lecture plus simple, supprimer tout les Sheets(Feuille) puisque c'est la feuille active.  
3°) ListObjet, comme son nom l'indique est un objet, faut donc le traiter comme un Objet  
Dim listOb as Listobjet  
set ListOb = ListObjects.Add(xlSrcRange, Range(Cells(LD, CD), Cells(LF, CF)), , xlYes).Name = Titre  
ListOb.TableStyle = "TableStyleLight2"  
ListOb.ShowTotals = True
4°) Plutôt que de sauter sur une erreur vaux mieux l'éviter en testant si cet objet existe déjà, ou quelque chose comme ça.  
5°) On ne sort pas d'une détection d'erreur par un goto, si trop d'erreurs à la suite fait sauter la pile.  
le code est : Resume Recommencer  
Vu le peu de renseignement que tu donne impossible d'en dire plus.  
A+  

Toute la connaissance du monde ne peu tenir dans une seul tête  (moi)  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.  
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

lermite222 · Answer

sur quel ligne ?

Yah · Answer

Personne ne sait comment résoudre mon problème ?
(Je relance une dernière fois, puis j'abandonne)

lermite222 · Answer

Je n'avais pas vu la fin de cette ligne, essaye avec..
Set ListOb = ListObjects.Add(xlSrcRange, Range(Cells(LD,CD), Cells(LF, CF)), , xlYes)
ListOb.TableStyle = "TableStyleLight2"
ListOb.ShowTotals = True 
ListOb.Name = Titre
Et vérifie que tes variables sont initialisées.

lermite222 · Answer

Bon, mon exemple précédant est bon sauf les paramètres, mais je pensais que tu les avais vérifier.  
Un code qui fonctionne ??..  
Dim listOb As ListObject 
    Set listOb = ActiveWorkbook.Sheets(3).ListObjects.Add(SourceType:=xlSrcRange, Source:=Range("B3:G18")) 
    listOb.Name = "Démo Titre" 
    listOb.TableStyle = "TableStyleLight2" 
    listOb.ShowTotals = True 

Adapter le N° ou nom de la feuille et la plage.  
Pour passer sans erreur vaux mieux que la feuille de destination soit active, sinon la nommer dans la plage.  
A+  
PS : Si tu veux modifier les paramètres de la liste après, tu peu employer sont Nom ou son Index ou déclarer la variable ListOb en public (dans un module.bas) 

Toute la connaissance du monde ne peu tenir dans une seul tête  (moi)  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.  
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

lermite222 · Answer

Tant mieux, content de t'avoir aidé. 
D'après ton premier code tu a un problème pour nommer tes tableaux !! 
Avec ce code, plus d'erreur sur cette variable.. 
Dim Nom As String 
    With ActiveWorkbook.Sheets(3) 
        Nom = "Démo Liste " & .ListObjects.Count + 1
A+ 
Toute la connaissance du monde ne peu tenir dans une seul tête  (moi) 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques. 
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

[VBA] Erreur d'automation

7 réponses

Discussions similaires

Newsletters