Discussion :

[Megguido21]

Bonjour la communauté,

J'ai un petit problème dans un macro. Celui-ci est censé d'abord comparé des données du "transac2.xlsm" avec un autre workbook "Suivi CS_TEST.xlsx" qui lui est partagé et puis rajouter une date dans ce même dossier partagé. L'erreur que je trouve est la suivante:
Application-defined or object-defined error.

Le Workbooks("transac2.xlsm") a trois colonnes de base:
Data (A:A), Date (B:B) et Entreprise (C:C).
Le Workbooks("Suivi CS_TEST.xlsx") en a plein, dont:
Data (+ stuff) (E:E), Date (S:S).

Le code est très brut, car je n'ai pas d'expérience, encore moins de fichier partagé. J'avais fait des tests entre deux fichiers, d'une feuille chacun, non-partagés et ça marchait...

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
Sub TransacJulien()
On Error GoTo Errorcatch
Dim wCPMF2018 As Workbook
Dim wtransac2 As Workbook
Set wCPMF2018 = GetObject("G:\Suivi CS_TEST.xlsx")
Set wtransac2 = Workbooks("transac2.xlsm")
wCPMF2018.Windows(1).Visible = True
wCPMF2018.Worksheets("Julien").Select
Dim a As Integer
Dim i As Integer
Dim j As Integer
a = wtransac2.Worksheets("Macro").Range("a1", Range("a1").End(xlDown)).Count
'compte le nombre de ligne dans le fichier transac2
For i = 1 To a
For j = 1 To 100
wtransac2.Worksheets("Macro").Cells(j + 1, 20) =Right(Replace(wCPMF2018.Worksheets("Julien").Cells(j + 1, 5), " ", ""), 15)
'crée une copie des Data du fichier CS_TEST épuré du texte inutile
Next j
Next i
For i = 1 To a
For j = 1 To 100
If wtransac2.Worksheets("Macro").Cells(i + 1, 1) = wtransac2.Worksheets("Macro").Cells(j + 1, 20) Then
'teste les Data ainsi récolté du fichier CS_TEST face aux Data disponible à la base dans le fichier transac2
wtransac2.Worksheets("Macro").Cells(j + 1, 21) = wtransac2.Worksheets("Macro").Cells(i + 1, 1)
'si ces données sont identiques, les Data transac2 sont copiées en laissant les espaces adéquats vis-à-vis des données épurées.
If IsEmpty(wCPMF2018.Worksheets("Julien").Cells(j + 1, 19)) = True And IsEmpty(wtransac2.Worksheets("Macro").Cells(j + 1, 21)) = False Then
wCPMF2018.Worksheets("Julien").Cells(j + 1, 19) = wtransac2.Worksheets("Macro").Cells(i + 1, 2)
'copie ainsi la date en fonction de l'ordre ainsi trouvé plus haut en faisant attention que la cellule Date dans CS_TEST soit au préalable vide.
wtransac2.Worksheets("Macro").Cells(i + 1, 4) = "La date de la première transaction de " & wtransac2.Worksheets("Macro").Cells(i + 1, 3) & " a été copiée dans la feuille de Julien."
'Un message qui s'affiche pour expliciter quelle feuille a reçu une Date (normalement plusieurs feuilles sont à prévoir.
Else
If IsEmpty(wtransac2.Worksheets("Macro").Cells(i, 6)) = True And IsEmpty(wCPMF2018.Worksheets("Julien").Cells(j + 1, 19)) = False Then
wtransac2.Worksheets("Macro").Cells(i + 1, 4).Value = "La cellule n'est pas vide"
'ce qui est écrit dans un cas contraire
End If
End If
End If
Next j
Next i
Errorcatch:
MsgBox Err.Description
End Sub

Désolé à ceux qui penserait que je n'ai rien à faire ici. Je ne fait pas exprès.
Par ailleurs, il y a probablement d'autres erreurs.

[Menhir]

Commence par supprimer "On Error GoTo Errorcatch", histoire de ne pas jouer les yeux bandés.

Code :

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

Set wCPMF2018 = GetObject("G:\Suivi CS_TEST.xlsx")

Pourquoi avoir ouvert un fichier Excel avec un GetObject au lieu d'un simple Workbooks.Open ?

Code :

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

Set wtransac2 = Workbooks("transac2.xlsm")

Est-ce que ce classeur est déjà ouvert quand tu lances la macro ?

[Megguido21]

Bonjour Menhir,

Merci pour ta réponse.

Pour ce qui est du GetObject, c'était simplement une réponse à une autre problème que j'avais et vu que ça marchait, je ne me suis pas intéressé à le changer.

Pour la deuxième question oui transac2 est ouvert de base.

[Pierre Fauconnier]

Salut.

Pour arrêter tout de même le code sur les erreurs malgré les On Error..., plutôt que les supprimer, je proposerais de modifier temporairement l'option de gestion d'erreur des options du VBE et de choisir Arrêt sur toutes les erreurs... Il suffira de remettre l'option sur Arrêt sur les erreurs non gérées lorsque ce qui pose problème aura été traité

[Megguido21]

Sans le ErrorCatch j'ai une erreur "400".

[Jean-Philippe André]

Bonjour,

à quelle ligne de code stp ?

[Megguido21]

Quand je passe par F8, il me pose une erreur à cette ligne:

Code :

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

a = wtransac2.Worksheets("Macro").Range("a1", Range("a1").End(xlDown)).Count

Mais avec ce message.

[Jean-Philippe André]

L'erreur 1004 est souvent liée à un problème de pointage de cellule.

Essaie avec

Code :

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

a = wtransac2.Worksheets("Macro").Range("a1", wtransac2.Worksheets("Macro").Range("a1").End(xlDown)).Count

[Pierre Fauconnier]

tu aurais intérêt à travailler avec des objets définis plutôt que de passer par les collections.

Dans le code suivant, tu répètes des trucs qui sont tout de même très lourds à écrire et à lire

Code :

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

a = wtransac2.Worksheets("Macro").Range("a1", wtransac2.Worksheets("Macro").Range("a1").End(xlDown)).Count

Le code suivant me semble plus lisible. De plus, comme tu le définis une seule fois, tu évites les erreurs de saisie.

Code :

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

1
2
3
4
dim wsMacro as worksheet
 
set wsmacro = wtransac2.Worksheets("Macro")
a = wsmacro.Range("a1", wsmacro.Range("a1").End(xlDown)).Count

A mon avis, tu devrais d'ailleurs travailler directement avec les objets VBA, au moins pour ce qui est côté Transac.

Pour le problème de lourdeur, il me semblerait utile que tu nous définisses ta situation de départ et ce à quoi tu veux arriver.

[Megguido21]

Merci Pierre,
Le code est plus court en passant par un objet et du coups plus lisible, je prends.
Pour ce qui est de la lourdeur, déjà en enlevant le partage je reviens à un niveau normal.
Du coups, je pense qu'il n'est pas possible de faire mieux. Si ce n'est un VLookUP (probablement) intégrant Right(Replace).

Pour ce qui est de mon but c'est de faire en sorte que les dates de première transactions soit recopier d'un Excel (transac2) à l'autre (CS_TEST). les contrats sont (représentés par la donnée Data) mais sont dans une cellule mélangée avec d'autres données.

[Pierre Fauconnier]

De toute façon, un classeur partagé, c'est beurk beurk...

Pour un RECHERCHEV sur la droite, tu peux utiliser un joker...

[Megguido21]

Le problème ici c'est que je suis obligé de passer par un SUBSTITUE pour enlever les potentiels espaces. Je n'arrive pas à faire marcher RECHERCHEV (VLookUP) et SUBSTITUE (Replace). J'avoue que le joker je ne sais pas l'utiliser correctement.

M'enfin mon soucis de base étant corrigé, je pense qu'on peut marquer cette discussion comme résolu. J'irai chercher des info sur VLookUP x Replace de mon côté.

Merci pour votre aide.