Discussion :

[jeanmidudu]

Bonjour tout le monde,

Alors voilà, j'ai une application vba qui me retourne l'erreur "La méthode select de l'objet _Worksheet a échoué".
Problème, je ne sais pas pourquoi.

J'explique clairement la situation :
Je sais exactement que le problème vient de la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PLSWorkbook.Sheets("ResultatRecherche").Select

Je le sais car j'ai un debug.print("ok1") la ligne précédente qui fonctionne et un debug.Print("ok2") la ligne suivante qui n'affiche pas

De plus, le nom est correctement orthographié (pas de caractère invisible, pas d'espace en trop, ...) bref aucune erreur.
Je le sais également car, ce problème ne survient QUE quand j'ouvre cette application depuis un lien hypertext. Si j'ouvre l'application par un double-clic sur son emplacement, tout fonctionne correctement, idem depuis un raccourci sur le bureau.

Je précise aussi que mon classeur est en invisible, mais que là encore ça ne cause aucun problème avec une ouverture directe.

Est-ce que le problème pourrait venir du fait que le lien hypertext soit un lien relatif, ou encore parce que j'ai une application en plein écran (mais même avec une application en plein écran, cela fonctionne depuis un raccourci).

Bref, qu'est-ce qui peut causer cette erreur? (Et j'obtiens la même avec sheets.activate)

[Menhir]

Je sais exactement que le problème vient de la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PLSWorkbook.Sheets("ResultatRecherche").Select

Tu sais que c'est là que le problème génère une erreur mais il n'est pas sûr que l'erreur qui le cause soit là.

Par exemple, si le problème vient du contenu de la variable PLSWorkbook, c'est certainement la ligne où cette variable est renseignée qu'il faudra corriger.

Je le sais car j'ai un debug.print("ok1") la ligne précédente qui fonctionne et un debug.Print("ok2") la ligne suivante qui n'affiche pas

Pour savoir où une exécution plante, normalement, il suffit de cliquer sur le bouton Debug dans le message d'erreur s'affiche.

Au lieu de demander à tes debug.Print d'afficher ok, demande-leur plutôt d'afficher des renseignements utile du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print PLSWorkbook.Name, PLSWorkbook.Count, PLSWorkbook.Worksheets(X).Name

En remplaçant le X de la fin par le numéro de ton onglet.

De plus, le nom est correctement orthographié (pas de caractère invisible, pas d'espace en trop, ...) bref aucune erreur.

Tu l'as fait avec un Ctrl+C / Ctrl+V ?
Ca ne serait pas un "é" transformé en "e" ?

Je le sais également car, ce problème ne survient QUE quand j'ouvre cette application depuis un lien hypertext.
Si j'ouvre l'application par un double-clic sur son emplacement, tout fonctionne correctement, idem depuis un raccourci sur le bureau.

Tu pourrais en dire plus sur l'environnement de ton code ?
De quel type de macro s'agit-il (Sub, Function, macro évênementielle) ?
Comment est-elle lancée ?

[jeanmidudu]

Merci de ta réponse.

1) Alors oui c'est là que l'exécution, et comme tu le dis, l'erreur qui le cause n'est peut-être (même très probablement) pas là. Je pense qu'elle est causée par autre chose.

2) Ensuite, le problème ne vient pas de PLSWorkbook. PLSWorkbook étant mon classeur (son nom et non pas une variable) :


3) Les renseignements utiles comme tu dis sont :

PLSWorkbook.Name = PLSWorkbook
PLSWorkbook.Count ne fonctionne pas : "Membre de méthode ou de données introuvable"
Si tu voualis dire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print (Application.Workbooks.Count)

alors le résultat est, et sera toujours : 1

Le nom de toutes mes feuilles en bouclant :
PLSWorkbook.Worksheets(X).Name :
Plans de Surveillance
Versions
Bancs
Equipements
Criteres
Zones
Utilisateurs
historiqueConnexions
ResultatRecherche

4) Oui, il s'agit d'un copié-collé, non, il n'y a aucun caractère spécial dans mes variables, nom de fichiers et autres.
(Voir également la capture d'écran au-dessus)

5) Mon projet fait un peu plus de 4000 lignes de code. Je dirais environ 3800 sans les commentaires. Il s'agit d'une sub publique, appelée par une fonction publique, elle-même appelée par un UserForm_initialize
Si tu veux le code complet de cette sub, le voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
Public sub triage() 'Permet le regroupement des extractions filerweb après la copie des données
    Dim feui As Worksheet
    Dim nbLignes As Long, i As Long, f As Long, j As Long
    Dim lastColEntree As Long, lastColSortie As Long, fin As Long, der As Long
    Dim ColSortie As String, colEntree As String
    Dim present As Boolean
 
    Application.Visible = False
 
    With PLSWorkbook.Sheets("ResultatRecherche")
        der = Module1.tailleLigne(.Index)
        For f = .Index + 1 To PLSWorkbook.Sheets.Count 'Pour chacune des feuilles contenant une extraction
            Set feui = PLSWorkbook.Sheets(f) 'On récupère la feuille
            fin = Module1.tailleLigne(feui.Index)
            For i = 1 To fin 'Pour chaque ligne de la feuille
                If feui.Range("A" & i).Value = "" Then Exit For
                present = True 'On estime que la ligne est déjà présenté dans la feuille de résultat
                For j = 1 To der 'Pour chaque ligne de la feuille de résultat
                    If feui.Range("A" & i).Value = .Range("A" & i).Value Then 'Si les lignes de chaque feuilles sont identiques
                        Exit For 'Alors on passe à la ligne suivante
                    Else
                        present = False 'Sinon on indique qu'il y a des différences entre les deux extractions
                    End If
                Next j
                If Not present Then
                    feui.Rows(i).Delete shift:=xlUp 'et on supprime les lignes qui diffèrent
                    fin = fin - 1
                End If
            Next i
            ''''''''''''''''''''''''
            lastColEntree = Module1.tailleColonne(f) 'Récupère la valeur de la dernière colonne de la feuille d'extraction en cours d'étude
 
 
            'lettreColEntree = Module1.ColonneLetter(lastColEntree) 'Permet d'obtenir le code (lettres) correspondant
 
            lastColSortie = Module1.tailleColonne(.Index) + 1 'Idem pour la feuille de résultat
            'feui.Columns("J:" & lettreColEntree).Copy 'On copie l'ensemble des informations
            feui.Range(feui.Cells(1, 10), feui.Cells(10000, lastColEntree)).Copy
 
            'lettreColSortie = Module1.ColonneLetter(lastColSortie) '''
 
'''''''''''''''''''''''
'L'exécution plante ici
            PLSWorkbook.Sheets("ResultatRecherche").Select 'Il faut activer la feuille de résultat
'''''''''''''''''''''''
'''''''''''''''''''''''
            Debug.Print ("ok")
            '.Range(lettreColSortie & "1").Select 'On colle à la suite des précédentes informations
            .Cells(1, lastColSortie).Select
            ActiveSheet.Paste
        Next f
 
        .Activate 'On réactive la feuille de résultat
        Columns("B:M").Delete shift:=xlUp 'On supprime les colonnes inutiles
        Columns("C:I").Delete shift:=xlUp
 
        nbLignes = Module1.tailleLigne(.Index)
 
        Columns("A:A").NumberFormat = "@" 'On assure le bon format (de garder les zéros) pour les PJI
        For i = 1 To nbLignes 'Pour chaque ligne
            .Range("A" & i).Value = Right(.Range("A" & i).Value, 7) 'Le PJI est raccourci pour ne garder que les 7 derniers chiffres
            For j = 1 To Module1.tailleColonne(.Index) 'Pour chaque colonne
                .Cells(i, j).Value = Trim(.Cells(i, j).Value) 'On supprime les espaces inutiles
            Next j
        Next i
 
    Application.DisplayAlerts = False
 
        'Suppression des feuilles une fois l'arrangement effectué
        f = PLSWorkbook.Sheets.Count
        While f <> .Index
            Set feui = PLSWorkbook.Sheets(f)
            feui.Delete
            f = f - 1
        Wend
    End With
    Application.DisplayAlerts = True
End Sub

Cette sub est placée dans un module, j'en ai 5 en tout. Il n'est pas possible d'avoir d'autres classeurs excel ouverts en même temps. Il s'agit d'une application VBA utilisée avec un classeur invisible. Le classeur est ouvert à la modification, n'est pas partagé, il contient 9 sheets. Je travaille sous Windows 7 64 bits version pro.

Je ne suis plus novice en VBA, donc toutes ce qui est en rapport avec le nom des varaibles, des feuilles et des objets, l'orthographe, la syntaxe, l'accessibilité, tout a été vérifié.
Et même si ça n'avait pas été le cas, comme je l'expliquais dans mon premier message, l'application plante UNIQUEMENT lorsqu'elle est ouverte depuis un lien hypertext. Si je l'ouvre depuis un raccourci ou depuis son emplacement ou même en ligne de commande, il fonctionne parfaitement. Ce qui selon moi (je peux me tromper quand même) implique que l'ensemble des noms et accessibilités sont corrects.

En fait, je me suis rendu compte du problème en faisant un diapo dans lequel j'y ai mis un lien hypertext, et en l'essayant, l'application démarre et tout et tout, mais il arrive ce moment là (et ce moment là uniquement) où l'application plante. Alors que cela fait plusieurs mois qu'elle est utilisée par plusieurs personnes sans jamais planter.

[Menhir]

2) Ensuite, le problème ne vient pas de PLSWorkbook. PLSWorkbook étant mon classeur (son nom et non pas une variable) :

Si PSLWorkbook était bon, je ne vois pas trop pourquoi le Worksheet ne marcherait pas.
Perso, je fouillerai donc plutôt de ce côté.

PLSWorkbook.Count ne fonctionne pas : "Membre de méthode ou de données introuvable"
Si tu voualis dire
Debug.Print (Application.Workbooks.Count)
alors le résultat est, et sera toujours : 1

Non, en fait je voulais dire :
PLSWorkbook.Woksheets.Count
C'était surtout pour vérifier si PLSWorkbook était bien un classeur et qu'il contenait des onglets.
Mais le bouclage sur les feuilles répond à cette question.

Peut-être peux-tu essayer d'appliquer à Sheets("ResultatRecherche") autre chose qu'un Select, juste pour vérifier qu'on peut le toucher.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print PLSWorkbook.Worksheets("ResultatRecherche").Name

En fait, je me suis rendu compte du problème en faisant un diapo dans lequel j'y ai mis un lien hypertext

Je suppose que le diapo se fait dans Powerpoint.
Ca ne pourrait d'un conflit, un objet PowerPoint qui aurait le même nom ?
Ca pourrait se vérifier avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print PLSWorkbook.Application

Je ne suis plus novice en VBA,

Sur ce forum passent tous les niveaux de développeurs.
On est donc enclin à commencer par poser des questions de base.

[antonysansh]

Bonjour,

L'idée est peut-être bête mais comme tu dis qu'il y a et aura toujours un seul classeur, pourquoi ne pas mettre Thisworkbook.Sheets("***").Select ?

[jeanmidudu]

Bonjour,

L'idée est peut-être bête mais comme tu dis qu'il y a et aura toujours un seul classeur, pourquoi ne pas mettre Thisworkbook.Sheets("***").Select ?

Déjà essayé, le résultat est toujours le même.

[jeanmidudu]

Si PSLWorkbook était bon, je ne vois pas trop pourquoi le Worksheet ne marcherait pas.

C'est bien ça mon problème justement!

Pour être plus précis, et pour répondre à

Peut-être peux-tu essayer d'appliquer à Sheets("ResultatRecherche") autre chose qu'un Select, juste pour vérifier qu'on peut le toucher.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print PLSWorkbook.Worksheets("ResultatRecherche").Name

Eh bien 2 choses ne fonctionnent pas, qui sont

PLSWorkbook.Worksheets("ResultatRecherche").Activate
et
PLSWorkbook.Worksheets("ResultatRecherche").Select

Tout ce qui n'est pas activate ou select fonctionne. Sheets("ResultatRecherche").Parent , visible, fin bref, seuls les activate et select (y compris en passant par les range et cells) ne fonctionnent pas

Ca ne pourrait d'un conflit, un objet PowerPoint qui aurait le même nom ?

Je m'étais posé la question du coup, mais non le problème n'est pas dans une similitude de nom. J'ai essayé ensuite avec un lien hypertext depuis word, mais le résultat est le même. Pas de problème de nom, mais le problème de select et activate est toujours présent.

Et pour mon niveau de développeur, je dois avouer qu'il m'est arrivé (sur des projets d'une journée) de faire des erreurs bêtes de ce type

[Pierre Fauconnier]

Salut.

Deux pistes, sans certitude aucune:
1. Dans les options d'Excel, vérifie l'option Options avancées/Général/Ignorer les autres application qui utilisent l'échange dynamique de donnés.
2. Essaye d'activer le classeur AVANT d'activer la feuille (deux lignes au lieu d'une)