Erreur 1004

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour a tous,

Je viens solliciter votre aide car j'ai un problème sous vba que je n'arrive pas a résoudre malgré mes recherches sur internet et ce forum. ::D

Voila ce que je souhaite faire :
-J'ai 2 fichiers excel : je cherche a vérifier l’intégrité et la cohérence des donnes du premier fichier par rapport au 2 eme qui me sert de référence.
-1er fichier :fichier a traiter
-2e fichier:fichier de reference

Pour cela je souhaite parcourir chaque cellule de la colonne G du 1er (ligne i) et chercher le même contenu dans le 2e fichier (ligne j). Ensuite vérifier que le contenu de E(i) = E(j) et N(i)=N(j), si la reponse est non colorier la ligne i et j de la même couleur et incrémenter une balise pour compter le nombre d'erreur et l'afficher par la suite.

Le but étant de vérifier que durant la manipulation sur le fichier 2, aucune donne n'est été intervertit par mégarde etc...

J'ai une erreur sur la ligne

Code:

While Workbooks(Nom1).Worksheet("Master Extraction").Range("G" & i).Value <> Workbooks(Nom2).Worksheet("Master Extraction").Range("G" & j).Value

qui me renvoie une erreur 438 : propriété ou méthode non gérée par cet objet.

Voici mon code vba :
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 Private Sub IdentifieProbleme_Click() Dim Nom1 As String Dim Nom2 As String Dim i As Integer Dim max1 As Integer Dim max2 As Integer 'j'ouvre les deux classeur Nom1 = ThisWorkbook.Name 'Fichier1.xls Call Ouvre Nom2 = ActiveWorkbook.Name ' fichier2.xls Windows(Nom1).Activate max1 = Range("E65536").End(xlUp).Row Windows(Nom2).Activate max2 = Range("E65536").End(xlUp).Row For i = 2 To max1 j = 2 While Workbooks(Nom1).Worksheet("Master Extraction").Range("G" & i).Value <> Workbooks(Nom2).Worksheet("Master Extraction").Range("G" & j).Value j = j + 1 Wend If Workbooks(Nom1).Worksheet("Master Extraction").Range("E" & i).Value <> Workbooks(Nom2).Worksheet("Master Extraction").Range("E" & j).Value & Workbooks(Nom1).Worksheet("Master Extraction").Range("N" & i).Value <> Workbooks(Nom2).Worksheet("Master Extraction").Range("N" & j).Value Then Workbooks(Nom1).Worksheet("Master Extraction").Range("E" & i).EntireRow.Font.Color = i Workbooks(Nom2).Worksheet("Master Extraction").Range("E" & j).EntireRow.Font.Color = i probleme = probleme + 1 End If Next i If probleme > 0 Then MsgBox "Il y a " & probleme & " erreurs", vbCritical End Sub
Fonction ouvre :
Code:

1 2 3 4 5 6 7 8 9 10 11 Function Ouvre() Dim wbMyWb As Workbook Dim Nom_Fichier As Variant Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Set wbMyWb = Workbooks.Open(Nom_Fichier) wbMyWb.Activate End If End Function
Merci d'avance de m’éclairer de vos lumières:ccool:

04/07/2013, 12h19
EngueEngue

Décidamment les S des worksheets vous ne les aimez pas..

Code:

While Workbooks(Nom1).Worksheet("Master Extraction").Range("G" & i).Value <> Workbooks(Nom2).Worksheet("Master Extraction").Range("G" & j).Value

devient

Code:

While Workbooks(Nom1).Worksheets("Master Extraction").Range("G" & i).Value <> Workbooks(Nom2).Worksheets("Master Extraction").Range("G" & j).Value

Et je suppose que pas besoin de te dire de mettre les S partout
04/07/2013, 12h25
Geoffray69

Salut !

Merci pour ta réponse :)

J'ai bien appliqué toutes les modifications sur les "Worksheets" mais le message suivant apparaît toujours...

erreur 438 : propriété ou méthode non gérée par cet objet sur la ligne

Code:

While Workbooks(Nom1).Worksheets("Master Extraction").Range("G" & i).Value <> Workbooks(Nom2).Worksheetss("Master Extraction").Range("G" & j).Value

Je pense qu'il y a plus simple que cette syntaxe mais je débute...
04/07/2013, 14h32
EngueEngue

C'est plus simple si tu mets quun S à Worksheets.

N'empêche je n'ai jamais essayé d'en mettre cinq, attends je tente :p Worksheetsssss: oula cet abruti de compilateur ne connaît pas la propriété Worksheetsssss... ;)
04/07/2013, 14h48
Geoffray69

J'ai honte... lol :)

Bon j'ai plus d'erreur cette fois !

En revanche ma macro ne marche toujours pas. J'essaie de passer en mode pas a pas pour "investiguer" mais passé la ligne "Call Ouvre", toute la macro est jouée.

Qu'est ce qu'il fait dans mon code que le mode pas a pas "s'emballe" ?

Merci :ccool:

Que tu calles une fonction

On ne call pas une fonction on la l'appelle en faisant x = ouvre() par exemple.

Tu ne lui passes aucun argument elle ne te renvoit rien.. Pourquoi fais tu une fonction ?

Code:

1
2
3
4
5
6
7
8
9
10
11
Function Ouvre()
Dim wbMyWb As Workbook
Dim Nom_Fichier As Variant
 
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
If Nom_Fichier <> False Then
   Set wbMyWb = Workbooks.Open(Nom_Fichier)
  wbMyWb.Activate
End If
 
End Function

Devient

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Ouvre()
Dim wbMyWb As Workbook
Dim Nom_Fichier As Variant
 
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
If Nom_Fichier <> False Then
   Set wbMyWb = Workbooks.Open(Nom_Fichier)
  wbMyWb.Activate
End If
 
End Sub

04/07/2013, 14h50
pastis.vi

Bonjour Geoffray,

Pour éviter que tout tourne tout seul, tu fais F8 et tu pose un point d'arret au début de ta macro Ouvre

Merci pour vos réponses !

Ma macro n'a plus de bugs a présent mais je dois avoir un problème au niveau de l'algorithme car cela me donne aucun résultats malgré les conditions de test qui vont bien...

Des idees ?8O

Du coup je dois mettre quoi dans mon code principal pour "appeler Sub Ouvre() etc.... ?
Citation:
Envoyé par EngueEngue
Que tu calles une fonction

On ne call pas une fonction on la l'appelle en faisant x = ouvre() par exemple.

Tu ne lui passes aucun argument elle ne te renvoit rien.. Pourquoi fais tu une fonction ?
Code:

1 2 3 4 5 6 7 8 9 10 11 Function Ouvre() Dim wbMyWb As Workbook Dim Nom_Fichier As Variant Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Set wbMyWb = Workbooks.Open(Nom_Fichier) wbMyWb.Activate End If End Function
Devient
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Ouvre() Dim wbMyWb As Workbook Dim Nom_Fichier As Variant Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Set wbMyWb = Workbooks.Open(Nom_Fichier) wbMyWb.Activate End If End Sub

04/07/2013, 15h41
EngueEngue

Call ouvre

Fais un défilement pas à pas de ta macro pour voir s'il lit la macro Ouvre entièrement. Si ce n'est pas le cas, que tu reviens sur ta macro où il y a le Call c'est qu'il y a une ligne qui émet une erreur dans ta macro Ouvre..

Je sais pas si j'ai été bien clair sur ce coup là :aie:

Edit:
S'il y a des erreurs lors de l'ouverture, rajoute un "On Error Resume Next" comme ci-dessous:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Ouvre() Dim wbMyWb As Workbook Dim Nom_Fichier As Variant On Error Resume Next Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Set wbMyWb = Workbooks.Open(Nom_Fichier) wbMyWb.Activate End If End Sub

Citation:
Envoyé par pastis.vi
Fais un défilement pas à pas de ta macro pour voir s'il lit la macro Ouvre entièrement. Si ce n'est pas le cas, que tu reviens sur ta macro où il y a le Call c'est qu'il y a une ligne qui émet une erreur dans ta macro Ouvre..

Je sais pas si j'ai été bien clair sur ce coup là :aie:

Edit:
S'il y a des erreurs lors de l'ouverture, rajoute un "On Error Resume Next" comme ci-dessous:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Ouvre() Dim wbMyWb As Workbook Dim Nom_Fichier As Variant On Error Resume Next Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Set wbMyWb = Workbooks.Open(Nom_Fichier) wbMyWb.Activate End If End Sub
Elle marche nicklel cette macro...

04/07/2013, 15h52
pastis.vi

En gros, s'il y a une erreur dans la macro Ouvre(), la lecture de la macro Ouvre() s’arrêtera et la macro principale continuera son déroulement à partir du Call Ouvre

Edit: SI JAMAIS il y a une erreur dans la macro Ouvre() ;)
04/07/2013, 15h55
EngueEngue

Citation:

Envoyé par pastis.vi

En gros, s'il y a une erreur dans la macro Ouvre(), la lecture de la macro Ouvre() s’arrêtera et la macro principale continuera son déroulement à partir du Call Ouvre

Edit: SI JAMAIS il y a une erreur dans la macro Ouvre() ;)

Méyenapa
04/07/2013, 16h00
Geoffray69

Ma macro ouvre() fonctionne bien SAUF dans le cas ou le fichier que je veux ouvrir est deja ouvert, quand je clique sur non a la question "voulez vous ouvrir un autre..." cela plante.

Je resouds cela par le "On Error Resume Next" ?
04/07/2013, 16h02
pastis.vi

Rajoute un:

Code:

Application.DisplayAlert= False
04/07/2013, 16h03
EngueEngue

T'as une boucle ? Non. Alors pourquoi Nexter ?

Solution:
-On error GoTo
-Tester avant d'essayer de l'ouvrir s'il n'est pas déjà ouvert et s'il l'est le fermer.
04/07/2013, 16h03
Geoffray69

Cela fait planter ma macro Ouvre()

Dans la macro ouvre, je n'ai pas de next il me semble ?!
04/07/2013, 16h06
EngueEngue

Attends je regarde....
Tu as raison il n'y en a pas.
Bien vu.
04/07/2013, 16h21
Geoffray69

Bon ma macro principale semble marcher, il me reste plus que ce problème de fichier déjà ouvert dans la macro OUvre().

Sinon penses vous que je puisse améliorer la syntaxe ou ma macro ouvre ?

Encore merci pour votre aide ;)

Citation:

Envoyé par Geoffray69

Bon ma macro principale semble marcher, il me reste plus que ce problème de fichier déjà ouvert dans la macro OUvre().

Sinon penses vous que je puisse améliorer la syntaxe ou ma macro ouvre ?

Encore merci pour votre aide ;)
Code:

1 2 3 4 5 6 7 8 9 10 Sub Ouvre() Dim wbMyWb As Workbook Dim Nom_Fichier As Variant Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls") If Nom_Fichier <> False Then Set wbMyWb = Workbooks.Open(Nom_Fichier) wbMyWb.Activate End If End Sub

Voir 40 message(s) de cette discussion en une page