Erreur 400 sur un autre ordinateur mais pas sur le mien

**Chatvador** · 28/10/2016, 16h30

Bonjour,

J'ai développé une macro à distance, elle fonctionne parfaitement sur mon poste mais pas sur celui de la personne qui l'utilise. Lorsqu'elle lance la macro (via un bouton) une fenêtre s'ouvre avec une croix rouge et le chiffre 400.
C'est vraiment cette macro qui bloque car toutes les autres commandes ont été testées et fonctionnent. A savoir que je travaille sur une version 2010 et la personne une 2013..

le but est d'enregistrer plusieurs fichiers dans le même dossier. A partir du fichier "maitre" on lance une update qui va aller ouvrir tout à tour tous les fichiers excel contenus dans le dossier pour faire des mises à jour.

Je ne comprends pas quel est le problème, tout fonctionne à merveille sur mon poste. Voici mon 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
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
 
Sub subMAJSuivi()
 
 
ActiveSheet.Unprotect "VCGP"
 
Dim SousRep As String
Dim FichierMaitre As Workbook
Dim Classeur_com As String
SousRep = ThisWorkbook.Path & "\"
 
Set FichierMaitre = ThisWorkbook
 
ChDir SousRep
Classeur_com = Dir(SousRep & "*.xlsm")
While Len(Classeur_com) > 0
If Classeur_com <> FichierMaitre.Name Then
Workbooks.Open Classeur_com
 
 
 
Dim shSuivi As Excel.Worksheet, shSource As Excel.Worksheet
Dim L1Suivi As Long, L1Source As Long, LDSuivi As Long, LDSource As Long
Dim iBT As Integer, sNumBT As String
Dim x As Long, y As Long, z As Long, w As Long
 
Set shSuivi = Application.Workbooks(Classeur_com).Worksheets("Business projects list")
Set shSource = Application.ThisWorkbook.Worksheets("Business projects list")
 
shSuivi.Range("A:FF").EntireColumn.Hidden = False
 
 Application.DisplayAlerts = False
 
L1Suivi = 6
L1Source = 6
iBT = 1 'numéro colonne #BT
LDSuivi = shSuivi.Cells(Application.Rows.Count, iBT).End(xlUp).Row
LDSource = shSource.Cells(Application.Rows.Count, iBT).End(xlUp).Row
 
For x = L1Suivi To LDSuivi
    sNumBT = shSuivi.Cells(x, iBT).Value
    For y = L1Source To LDSource
    z = shSource.Cells(y, iBT).Row
 
        If shSource.Cells(y, iBT).Value = sNumBT Then shSuivi.Rows(x).Copy shSource.Rows(z)
        Next y
 
        For w = L1Source To LDSource
 
        If shSource.Cells(w, iBT).Value = sNumBT Then Exit For
    Next w
    If w > LDSource Then
        LDSource = LDSource + 1
        shSuivi.Rows(x).Copy shSource.Rows(LDSource)
 
 
     End If
 
Next x
 
Set shSource = Nothing
Set shSuivi = Nothing
 
Workbooks(Classeur_com).Close savechanges:=False
End If
Classeur_com = Dir
Wend
 
 
ActiveSheet.Protect "VCGP"
 
Application.DisplayAlerts = True
 
End Sub

Si quelqu'un a une idée..?

Merciiiii d'avance

**joe.levrai** · 28/10/2016, 16h40

Bonjour,

sur quelle ligne de la procédure l'erreur survient ?

parce que sinon, difficile de donner la bonne piste.

l'autre utilisateur, il utilise cette procédure sur les mêmes classeurs que toi ou sur des classeurs différents ?

la seule chose que je peux entrevoir sur une erreur 400 de ce type, c'est des cellules fusionnées .... mais là encore, c'est une supposition sans avoir décortiqué ta procédure.

merci de nous apporter le complément d'informations

**parmi** · 28/10/2016, 19h59

Bonjour,

Je vérifierais les valeurs ici

Code :

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

If Classeur_com <> FichierMaitre.Name Then

et ici, il faudrait s'assurer que le nombre de colonnes soit le même dans les 2 fichiers.
Es-tu certain qu'il n'y a pas des fichiers xls et xlsx (ou xlsm) dans le lot ?
Leur nombre de colonnes (et de lignes) étant différent, ça pourrait causer une erreur...

Code :

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

shSuivi.Rows(x).Copy shSource.Rows(LDSource)

**Chatvador** · 30/10/2016, 19h55

Bonjour,

Pour répondre à toutes les questions :
* l'utilisateur utilise exactement les mêmes fichiers que moi (c'est moi qui lui ai envoyé et à priori il ne les a pas modifiés)
* les colonnes sont exactement les mêmes dans le deux fichiers car ce sont tous des copies du "fichier_maitre" dans le code.
* ce sont également tous des fichiers xlsm (enfin chez moi du moins)

Je n'ai pas eu de réponse sur la ligne qui entraine le bug mais par déduction je pense que ça se passe sur ce bout de code :

Code :

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

1
2
3
4
5
6
7
8
 
Set FichierMaitre = ThisWorkbook
 
ChDir SousRep
Classeur_com = Dir(SousRep & "*.xlsm")
While Len(Classeur_com) > 0
If Classeur_com <> FichierMaitre.Name Then
Workbooks.Open Classeur_com

Je sais que le code renvoi bien le chemin du fichier et que l'erreur apparait même quand il n'y a pas d'autre fichier à ouvrir...

Je vous donne des précisions dès que j'en sais un peu plus sur la ligne qui bugue.

Merci beaucoup pour vos éléments de réponse

**joe.levrai** · 30/10/2016, 20h14

Bonjour,

j'avance une supposition mais je ne suis pas très calé dans l'informatique "réseau"

peut-être une différence de reconnaissance du reseau ? Ou par exemple les "lettres" des lecteurs réseaux mappés qui ne sont pas les mêmes ?

**Chatvador** · 02/11/2016, 09h37

Bonjour à tous,

Apparemment la ligne qui bugue est celle qui demande l'ouverture des fichiers :

Code :

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

1
2
 
Workbooks.Open Classeur_com

J'ai testé les différentes lignes précédentes : le code me rapatrie les bons noms de fichiers..

L'hypothèse du réseau est très probable. Le problème pourrait se régler en enregistrant les fichiers sur le bureau?

**parmi** · 02/11/2016, 10h23

Tu dis que tu lui envoies...
Es-tu certain qu'il les enregistre quelque part ?
Peut-être qu'il les roule après les avoir ouverts sans les sauvegarder ?

**Chatvador** · 08/11/2016, 14h56

Bonjour à tous,

Cette erreur provenait bien d'un problème de réseau. En effet, lorsque le fichier est enregistré ailleurs que sur le bureau, l'erreur 400 apparaît.

Malheureusement, après quelques jours de fonctionnement, l'erreur 400 est revenue mais pour une autre raison puisque le fichier est toujours enregistré sur le bureau.
Lorsque je fais du pas à pas, l'erreur 400 se transforme en "erreur d'execution 1004 : erreur définie par l'application ou par l'object"

Le bout de code qui fait survenir cette erreur est celui ci :

Code :

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

1
2
3
4
5
6
7
8
For x = L1Suivi To LDSuivi
    sNumBT = shSuivi.Cells(x, iBT).Value
    For y = L1Source To LDSource
    z = shSource.Cells(y, iBT).Row
 
        If shSource.Cells(y, iBT).Value = sNumBT Then shSuivi.Rows(x).Copy shSource.Rows(z)
        Next y

Je ne comprends pas d'où ça vient, sachant que ça fonctionnait très bien avant!

Merci pour votre aide,

**unparia** · 08/11/2016, 17h06

Bonjour
J'ai beau ouvrir mes yeux, je ne vois personnellement aucune erreur dans cette ligne de code.
Je vois bien un peu partout de drôles de lourdeurs inutiles (la plus amusante étant de loin un calcul de z qui n'est autre qu'un y dans la boucle des y ...), mais il ne s'agit que de lourdeurs inutiles et non génératrices d'erreurs ...

**joe.levrai** · 08/11/2016, 21h20

Bonjour,

le fichier maître (Thisworkbook) est bien au format Xlsx ou Xlsm ?

Sur cette ligne de code VBA, une erreur 1004 est "en général" (mais pas toujours) lié à un dépassement de la plage d'une feuille de calcul.
D'où la primauté de cette éventualité dans tes tests pour cerner le problème

que valent chaque variable de cette ligne de code quand elle plante ?

**Chatvador** · 09/11/2016, 11h31

Bonjour,

Merci pour votre réponse qui m'a bien aidé.

C'était en effet un problème de plage de données : la macro ne fonctionnait pas car une colonne avait été filtrée et les données ne pouvaient, je pense, pas être copiées... J'ai donc ajouté un code pour tout défiltrer !

Merci beaucoup

Erreur 400 sur un autre ordinateur mais pas sur le mien [XL-2013]

Macros et VBA Excel

Discussions similaires

Partager

Partager