Discussion :

[Polygos]

Bonjour

Pour une raison encore inconnue mais propre a Excel, ce dernier à planté m'obligeant à sa réinstallation.
Un fichier appelé Inventaire était ouvert sur le pc planté, avec Excel 2016
Il a donc planté sur ce fichier ouvert, partagé sur un réseau local entre deux ordis.

Une fois tout réinstallé sur le premier pc, j'essaie d'ouvrir le fichier sur celui ou il réside (cette fois avec la version 2013, mais je ne vois pas le pb ici), donc l'autre, et je m'aperçois que les boutons activant différentes macro ont disparu.
La mise en forme des colonnes aussi, il est revenu au dimensionnement par défaut.
Jusque là rien de bien grave.

Alors j'ai recréé les boutons, réaffecté les bonnes macros à chacun et lancé leur utilisation..
par exemple celui de saisie de commande.

Sauf que maintenant, quelle que soit la macro, qu'elle soit activée par le bouton ou en direct, elle bogue sur la reconnaissance du fichier ouvert, et stoppe.

Erreur 429 - un composant activeX ne peut pas créer d'objet

à la ligne 17 Set ws1 = ThisWorkbook.Worksheets("Entrées").

Voici le début du code

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
Sub sortie_cde_AMZ()
'ENTREE COMMANDE AMAZON
Dim ws1 As Worksheet
Dim ws2 As Worksheet
 
Dim Dc As Integer
Dim DL1 As Integer
Dim DL2 As Integer
Dim i As Integer
Dim Nc As Variant
Dim Dm As Variant
Dim Ref As String
Dim Qty As Variant
Dim NL As Integer
 
 
Set ws1 = ThisWorkbook.Worksheets("Entrées")
DL1 = ws1.Range("B" & Rows.Count).End(xlUp).Row
 
'Tri par numéro d'article
    ws1.Range("B1" & ":C" & DL1).Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

Copie de la fenêtre d'état confirme:



Comment ce fait-ce ???

des idées ? suis en panne et c'est très fâcheux..

Merci d'avance

[mfoxy]

hello

Ta feuille Entrées existe bien ?
Pour ma part j'éviterais les accents pour nommer un onglet

Set ws1 = ThisWorkbook.Worksheets("Entrées").

pour mettre ta feuille en variable : essaie peut-être un truc du genre

Code :

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

1
2
3
4
5
6
7
8
 
Dim wb As Workbook
Dim ws As Worksheet
 
Set wb = ThisWorkbook
Set ws = wb.Sheets("Entrées")
 
If ws Is Nothing Then    msgbox "no worksheet was set, sheet ,not exist"

Peut-Ëtre voir aussi du coté des références ?
Cfr POST 2#

https://www.developpez.net/forums/d1...e-creer-objet/