La méthode range de l'objet '_worksheet' a échoué

Version imprimable

Bonjour,

Depuis ce matin je sèche sur une nouvelle difficultée concernant le code suivant :

Code:

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
Private Sub Supplier_Loading()
 
Dim ManufacturingPartRow As Integer, NumberPartRow  As Integer, LastPartRow As Integer
Dim ManufacturingPartCode As String, NextManufacturingPartCode As String, ManufacturingPartSupplier As String, NextProjectCode As String
Dim Supplier As Variant
 
ManufacturingPartRow = FirstManufacturingPartRow                                                                                          'Initialisation première ligne Tableau PièceAFabriquer
Do While Worksheets("PièceAFabriquer").Range(ManufacturingPartOrigineColumn & ManufacturingPartRow) = "A.P."                              'Tant que la cellule B n'est pas vide
    ManufacturingPartCode = Worksheets("PièceAFabriquer").Range(ManufacturingPartCodeColumn & ManufacturingPartRow).Value                 'Récupération du Code Article ligne en cours
    Call Search_Project_Code(ManufacturingPartCode)                                                                                       'Récupération du Code Projet
    ListingPartCodePath = ProjectPath & ListingPartCodeNameFile & "\Code_Article_" & ProjectCode & ".xlsx"                                'Reconstitution du chemin du fichier Code Article
    Set ListingPartCode = GetObject(ListingPartCodePath)                                                                                  'Chargement du code article
    NumberPartRow = ListingPartCode.Sheets("Code_Article").ListObjects("T_Codes_Articles").ListRows.Count                                 'Récupère le nombre de ligne dans le tableau
    LastPartRow = FirstPartRow + NumberPartRow                                                                                            'Calcul de la dernière ligne
    With ListingPartCode.Worksheets("Code_Article").Range(PartCodeColumn & FirstPartRow & ":" & PartCodeColumn & LastPartRow)             'Définition de la plage de recherches
        Set Supplier = .Find(ManufacturingPartCode, LookIn:=xlValues, LookAt:=xlWhole)                                                    'Recherche la ligne du Code Article dans le tableau
        ManufacturingPartSupplier = ListingPartCode.Worksheets("Code_Article").Range(PartSupplierColumn & Supplier.Row)                   'Récupèration du fournisseur dans le tableau
    End With
    Worksheets("PièceAFabriquer").Range(ManufacturingPartSupplierColumn & ManufacturingPartRow).Value = ManufacturingPartSupplier         'Enregistrement du fournisseur
    '
    'ORIGINE ARTICLE SUIVANT
    '
    If Worksheets("PièceAFabriquer").Range(ManufacturingPartOrigineColumn & ManufacturingPartRow + 1) = "A.P." Then                       'Si article suivant est de type A.P.
        NextManufacturingPartCode = Worksheets("PièceAFabriquer").Range(ManufacturingPartCodeColumn & ManufacturingPartRow + 1).Value     'Récupération du Code Article ligne suivante
        NextProjectCode = Left(NextManufacturingPartCode, 4)                                                                              'Récupération Code Projet
        '
        'CODE PROJET ARTICLE SUIVANT
        '
        If NextProjectCode <> ProjectCode Then                                                                                            'Si code projet suivant est différent
            ListingPartCode.Close True                                                                                                    'Fermeture Code Article
        End If
    ElseIf Worksheets("PièceAFabriquer").Range(ManufacturingPartOrigineColumn & ManufacturingPartRow + 1) = "A.M." Then                   'Si article suivant est de type A.M.
        ListingPartCode.Close True                                                                                                        'Fermeture Code Article
    End If
    ManufacturingPartRow = ManufacturingPartRow + 1                                                                                       'Passage à la ligne suivante
Loop
 
End Sub

Celui-ci fonctionne très bien en mode pas à pas et dès que je suis en mode automation le message d'erreur :
"La méthode range de l'objet '_worksheet' a échoué" s'affiche sur la ligne de code :

Code:

Worksheets("PièceAFabriquer").Range(ManufacturingPartSupplierColumn & ManufacturingPartRow).Value = ManufacturingPartSupplier         'Enregistrement du fournisseur

Auriez-vous une suggestion à me proposer ? :roll:

Remplacer ceci :

Code:

Worksheets("PièceAFabriquer").Range(ManufacturingPartSupplierColumn & ManufacturingPartRow).Value = ManufacturingPartSupplier

Par cela:
Code:

1 2 3 4 5 Sheets("PièceAFabriquer").Select Debug.Print, ManufacturingPartSupplierColumn, ManufacturingPartRow 'pour vérifier qu'il s'agit bien d'une plage Dim MyRng as String MyRng = cStr(ManufacturingPartSupplierColumn & ManufacturingPartRow) Range(MyRng).Value = ManufacturingPartSupplier

07/11/2019, 14h10
Menhir

ManufacturingPartSupplierColumn ne semble ni déclarée, ni renseignée.

Est-ce que ManufacturingPartRow ne dépasse pas 32000 ?
08/11/2019, 13h22
Jeanvaljean44

Citation:

Envoyé par Menhir

ManufacturingPartSupplierColumn ne semble ni déclarée, ni renseignée.

Est-ce que ManufacturingPartRow ne dépasse pas 32000 ?

Non, cette variable ne comporte pas plus de 10 caractères...

Citation:
Envoyé par Zekraoui_Jakani
Remplacer ceci :

Code:

Worksheets("PièceAFabriquer").Range(ManufacturingPartSupplierColumn & ManufacturingPartRow).Value = ManufacturingPartSupplier

Par cela:
Code:

1 2 3 4 5 Sheets("PièceAFabriquer").Select Debug.Print, ManufacturingPartSupplierColumn, ManufacturingPartRow 'pour vérifier qu'il s'agit bien d'une plage Dim MyRng as String MyRng = cStr(ManufacturingPartSupplierColumn & ManufacturingPartRow) Range(MyRng).Value = ManufacturingPartSupplier
Je pense que le problème tourne autour du fait que le programme ne sait plus où aller chercher la feuille :

Code:

Worksheets("PièceAFabriquer")

car en mode debogage lorsque j'affiche cette feuille qui est masquée lors de l'exécution et que je repasse en mode lecture, le programme se poursuit...

08/11/2019, 14h11
Menhir

Citation:

Envoyé par Jeanvaljean44

Citation:

ManufacturingPartSupplierColumn ne semble ni déclarée, ni renseignée.
Est-ce que ManufacturingPartRow ne dépasse pas 32000 ?

Non, cette variable ne comporte pas plus de 10 caractères...

Deux questions, une seule réponse ??? Tu es en service minimum ou quoi ? ;)

Si ta réponse concerne la seconde question, je ne vois pas comment une variable de type Integer pourrait comporter 10 caractères. :koi:

Citation:

Je pense que le problème tourne autour du fait que le programme ne sait plus où aller chercher la feuille : Worksheets("PièceAFabriquer") car en mode debogage lorsque j'affiche cette feuille qui est masquée lors de l'exécution et que je repasse en mode lecture, le programme se poursuit...

Si cette onglet n'est pas dans le classeur par défaut au moment où cette ligne est exécutée, il faut la raccrocher à son parent Workbook.
08/11/2019, 17h54
Jeanvaljean44

Citation:

Envoyé par Menhir

Deux questions, une seule réponse ??? Tu es en service minimum ou quoi ? ;)

Si ta réponse concerne la seconde question, je ne vois pas comment une variable de type Integer pourrait comporter 10 caractères. :koi:

Si cette onglet n'est pas dans le classeur par défaut au moment où cette ligne est exécutée, il faut la raccrocher à son parent Workbook.

Je voulais dire que ma variable contenait que 10 caractères...
08/11/2019, 17h58
Jeanvaljean44

Et ma variable est déclarée en tant qu'Option Explicit Dans un autre module

Code:

Public ManufacturingPartSupplierColumn As String 'Nom colonne Fournisseur

Un grand merci Mehnir!! Tu m'as donné une piste dans tes réponses..

Juste avant la ligne bloquante, j'ai ajouté :

Code:

1
2
Windows("Lancement_Fabrication.xlsm").Activate                                                                      'Activation fichier : Lancement_Fabrication.xlsm
Worksheets("PièceAFabriquer").Range(ManufacturingPartSupplierColumn & ManufacturingPartRow).Value = ManufacturingPartSupplier         'Enregistrement du fournisseur

afin de préciser dans quel fichier se trouvait ma feuille et ça fonctionne!!! :lol:

12/11/2019, 12h22
Menhir

Il aurait été plus propre d'écrire :

Code:

Worksbooks("Lancement_Fabrication.xlsm").Worksheets("PièceAFabriquer").Range(ManufacturingPartSupplierColumn & ManufacturingPartRow).Value = ManufacturingPartSupplier 'Enregistrement du fournisseur