consolider des donnés à partir de 2 classeur, erreur d'execution 424

Question

Bonjour,

j'ai réaliser cette macro pour que les données du classeur principal soit reporté dans le classeurN1 mais cela me met erreur d'exécution 424 'objet requis'

Sub report()
   'sauvegarde des donnés sous planning salarié
  Dim vclasseurprincipal As Worksheets
  Dim vclasseurN1 As Worksheets
  Dim vchemin As String
  vchemin = thisworbook.Path
  Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
  Set vclasseurN1 = Workbooks("planningsalariés.xls").Worksheets("Feuil2")
  vclasseurprincipal.Range("A2").Value = vclasseurN1.Range("B2").Value
End Sub

Svp trouvez moi le problème ... !!!!


nanie

Calade · Answer

Bonjour,

Et sur quelle ligne as-tu cette erreur. Ma boule de cristal étant en réparation je ne peux pas le deviner.


Calade

nanie12 · Answer

C'était vchemin = thisworbook.Path qui coincé
j'ai changé en mettant le chemin et maintenant ca marche
  Dim vclasseurprincipal As Worksheet
  Dim vclasseurN1 As Worksheet
  Dim vchemin As String
  vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
  Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
  Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")
  vclasseurN1.Range("B2").Value = vclasseurprincipal.Range("A2").Value
   vclasseurN1.Range("C2").Value = vclasseurprincipal.Range("B2").Value

Merci de votre aide

nanie

Calade · Answer

Je m'en doutais un peu, essaie comme ceci

vchemin = thisworkbook.Path (il manquait le "k".
Evite aussi les chemins en dur, le jour où tu déplaces ton dossier, il faut aussi modifier le code.


Calade

nanie12 · Answer

Par contre j'ai un autre problème je voudrais que dans le classeur principal il recopie toutes les lignes non vides et que toutes ces lignes se reportent dans le classeurN1. J'ai fait la macro suivante mais ca met erreur d'execution 1004, la méthode range de l'objet worksheet a échoué, sur la ligne que j'ai mis en violet

  Dim vclasseurprincipal As Worksheet
  Dim vclasseurN1 As Worksheet
  Dim vchemin As String
  Dim l As Integer, x As Integer
  
  
  vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
  Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
  Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")
  
  vclasseurN1.Range("B2").Value = vclasseurprincipal.Range("A2").Value
   vclasseurN1.Range("C2").Value = vclasseurprincipal.Range("B2").Value
  
  l = 14
  While Not IsEmpty(vclasseurprincipal.cells(l, 1))
    l = l + 1
 Wend
   
   x = 2
   While Not IsEmpty(vclasseurN1.cells(l, 1))
   x = x + 1
   Wend
   
  vclasseurN1.Range(cells(x, 4)).Value = vclasseurprincipal.Range(cells(l, 1)).Value
   vclasseurN1.Range(cells(x, 5)).Value = vclasseurprincipal.Range(cells(l, 2)).Value
   vclasseurN1.Range(cells(x, 6)).Value = vclasseurprincipal.Range(cells(l, 4)).Value
   vclasseurN1.Range(cells(x, 7)).Value = vclasseurprincipal.Range(cells(l, 5)).Value
   vclasseurN1.Range(cells(x, 8)).Value = vclasseurprincipal.Range(cells(l, 6)).Value
   vclasseurN1.Range(cells(x, 9)).Value = vclasseurprincipal.Range(cells(l, 7)).Value
   vclasseurN1.Range(cells(x, 10)).Value = vclasseurprincipal.Range(cells(l, 8)).Value
   vclasseurN1.Range(cells(x, 11)).Value = vclasseurprincipal.Range(cells(l, 9)).Value

Qui peur m'aider svp ?

nanie

nanie12 · Answer

c'est vrai je vais avoir le problème si je laisse le chemin en dur
Avez vous une solution pour mon problème du dessus??
Merci pour votre réponse

nanie

Calade · Answer

Essaie comme ceci:

vclasseurN1.Range(x, 4).Value = vclasseurprincipal.Range(l, 1).Value 

C'est non testé, il peut donc y avoir des ajustements à faire.
Modifie seulement la 1ère ligne, quand elle marchera, tu pourras modifier les autres sur le même modèle.

Calade

nanie12 · Answer

ca marche pas et c'est toujours la même erreur ...

nanie

Calade · Answer

Tu as essayé ce que je t'ai dit sans faire d'essais comme je te l'avais dit. La méthode Range accepte un string, ce qui n'est pas le cas ici:

Essaye ceci:

vclasseurN1.cells(x, 4).Value = vclasseurprincipal.cells(l, 1).Value 

Et je me répète: C'est non testé, il peut donc y avoir des ajustements à faire (peut être en supprimant le .Value).

Calade

nanie12 · Answer

Je viens d'essayer ce que tu viens de me dire. que je mette le .value ou non, cela ne me met plus le message d'erreur. Mais autre problème, cela ne fait rien du tout....

    Sub report()
    
    
    'sauvegarde des donnés sous planning salarié
  Dim vclasseurprincipal As Worksheet
  Dim vclasseurN1 As Worksheet
  Dim vchemin As String
  Dim l As Integer, x As Integer
  
   vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
   Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
   Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")
 
  l = 14

  While Not IsEmpty(vclasseurprincipal.cells(l, 1))
    l = l + 1
 Wend
   
   x = 2
   While Not IsEmpty(vclasseurN1.cells(x, 1))
   x = x + 1
   Wend

   vclasseurN1.cells(x, 4) = vclasseurprincipal.cells(l, 1)
   vclasseurN1.cells(x, 5) = vclasseurprincipal.cells(l, 2)
   vclasseurN1.cells(x, 6) = vclasseurprincipal.cells(l, 4)
   vclasseurN1.cells(x, 7) = vclasseurprincipal.cells(l, 5)
   vclasseurN1.cells(x, 8) = vclasseurprincipal.cells(l, 6)
   vclasseurN1.cells(x, 9) = vclasseurprincipal.cells(l, 7)
   vclasseurN1.cells(x, 10) = vclasseurprincipal.cells(l, 8)
   vclasseurN1.cells(x, 11) = vclasseurprincipal.cells(l, 9)
 
 End Sub

c'est chiant VBA quand ça ne marche pas

Calade · Answer

Effectivement, il y a un problème. Malheureusement je n'ai plus le temps de regarder cela de plus près ce soir.

Je te recontacte demain.
Désolé.

Calade

nanie12 · Answer

Je pense que c'est dans mes boucles qu'il y a un problème

Merci pour ton aide

nanie

Calade · Answer

Bonjour,

J'ai eu le temps de faire des essais avec la méthode suivante:
vclasseurN1.Cells(x, 4).Value = vclasseurprincipal.Cells(l, 1).Value

Comme je te l'ai dit, la méthode .Range attendant un String, ton code ne pouvait pas marcher.
Le problème est que le code ci-dessus fonctionne très bien chez moi.

Donne-moi les valeurs de l et de X au moment du plantage au cas où.

Accessoirement es-tu sous un OS 64 bits ou non, et quelle est ta version d'Office. 

Enfin j'ai fait mes essais directement sous Excel, est-ce ton cas ?

Calade

nanie12 · Answer

je fais mes test directement sur excel. En fait l et x ne font rien. je veux que ce qui est inscris dans le classeur principal se mette dans l'autre classeur. mais ca marche pas


nanie

Calade · Answer

>> En fait l et x ne font rien

Elles ont forcément une valeur. Et comme tu l'utilises juste en amont, ton erreur pourrait venir de là.

Quelle est cette valeur ?


Calade

nanie12 · Answer

Désolé je ne t'ai pas dit bonjour

x=2 et l=14
Quand j'écris ma macro ainsi :  
Sub report()
    
    
    'sauvegarde des donnés sous planning salarié
  Dim vclasseurprincipal As Worksheet
  Dim vclasseurN1 As Worksheet
  Dim vchemin As String
  Dim l As Integer, x As Integer
  
  
  vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
   Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
   Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")
  
  x = 2
   While Not IsEmpty(vclasseurN1.cells(x, 1))
     x = x + 1
Wend
  l = 14
  While Not IsEmpty(vclasseurprincipal.cells(l, 1))
  

   vclasseurN1.cells(x, 4) = vclasseurprincipal.cells(l, 1)
   vclasseurN1.cells(x, 5) = vclasseurprincipal.cells(l, 2)
   vclasseurN1.cells(x, 6) = vclasseurprincipal.cells(l, 4)
   vclasseurN1.cells(x, 7) = vclasseurprincipal.cells(l, 5)
   vclasseurN1.cells(x, 8) = vclasseurprincipal.cells(l, 6)
   vclasseurN1.cells(x, 9) = vclasseurprincipal.cells(l, 7)
   vclasseurN1.cells(x, 10) = vclasseurprincipal.cells(l, 8)
   vclasseurN1.cells(x, 11) = vclasseurprincipal.cells(l, 9)


  l = l + 1

   
 
  Wend
 End Sub
 
seule la première ligne du classeur principal s'inscris, ca ne continue pas. soit ca butte parce que ca ne va pas chercher un nouvelle ligne x, soit x=3 soit la l=16. Non ?



nanie

Calade · Answer

Le code que tu montres fonctionne parfaitement chez moi, même si tu l'a changé (l'assignation des cellules est cette fois dans la boucle).

Vérifie que par exemple pour une ligne l donné, toutes les colonnes soient bien remplis. Une cellule vide est REMPLI avec une valeur que l'on ne voit pas (façon de parler), sa valeur sera bien copié mais tu ne la verras pas.

Regarde tout ça et si cela ne marche pas poste la totalité de ton code mais par pitié en utilisant le bouton de coloration syntaxique (3ème en partant de la droite).

Réponds aussi à mes autres questions restées sans réponse.


Calade

nanie12 · Answer

c à quoi que je n'ai pas répondu ?
l=14
x=1
c'est quoi un OS 64bit ? 
version excel 2007
j'ai vérifié aucune cellule vide dans mon tableau principal

j'ai fait les test et ca me copie seulement la dernière ligne pleine de mon tableau principal


nanie

Calade · Answer

Désolé, je dois avoir des peaux de saucisson devant les yeux. En fait ta variable x ne variait pas et donc  tu recopiais toutes les lignes l sur x.

Voici ton code qui fonctionne cette fois:

   x = 2
   While Not IsEmpty(vclasseurN1.Cells(x, 1))
      x = x + 1
   Wend
   l = 14
   While Not IsEmpty(vclasseurprincipal.Cells(l, 1))
      vclasseurN1.Cells(x, 4) = vclasseurprincipal.Cells(l, 1)
      vclasseurN1.Cells(x, 5) = vclasseurprincipal.Cells(l, 2)
      vclasseurN1.Cells(x, 6) = vclasseurprincipal.Cells(l, 4)
      vclasseurN1.Cells(x, 7) = vclasseurprincipal.Cells(l, 5)
      vclasseurN1.Cells(x, 8) = vclasseurprincipal.Cells(l, 6)
      vclasseurN1.Cells(x, 9) = vclasseurprincipal.Cells(l, 7)
      vclasseurN1.Cells(x, 10) = vclasseurprincipal.Cells(l, 8)
      vclasseurN1.Cells(x, 11) = vclasseurprincipal.Cells(l, 9)
      l = l + 1
      x = x + 1
   Wend


en gras et en rouge la ligne a ajouté.
Encore désolé pour ne pas avoir vu plus tôt ce qui clochait.
Un OS 64 bits est un OS qui gère + 4G0 de mémoire (la limite de Win 2000, XP, Vista et 7 en 32 bits).


Calade

nanie12 · Answer

Merci !!!!!!!!!!!!!!!!!!!
C'est tout à fait ca il me semblait bien que le problème venait de x mais je ne voyais pas comment faire pour le résoudre! c'est super !!!
merci

si j'ai d'autres soucis je pourrais encore te déranger ?

nanie

Calade · Answer

Tu postes dans le forum. Si je suis là et si je penses pouvoir y répondre je te ferais signe.


Calade

nanie12 · Answer

J'ai encore un petit problème peux-tu m'aider stp ?

En fait je voudrais que lorsque je clique sur un truc ca m'imorte les données que j'ai déjà exporté une première fois. Ensuite je modifie ce que j'ai à modifier et je réexporte. 
Pb lors de l'importation, en effet cela me réimporte tout et nom les données concernant juste ce salarié.
Voici ce que j'ai fait.

Dim vclasseurprincipal As Worksheet
  Dim vclasseurN1 As Worksheet
  Dim vchemin As String
  Dim i As Integer, x As Integer
  
  
  vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
   Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
   Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")
    
x = 2
While UCase(vclasseurN1.cells(x, 1) & vclasseurN1.cells(x, 2)) = nom
x = x + 1

i = 14

While Not IsEmpty(vclasseurprincipal.cells(i, 1))
i = i + 1

vclasseurprincipal.cells(i, 1).Value = vclasseurN1.cells(x, 3).Value
vclasseurprincipal.cells(i, 2).Value = vclasseurN1.cells(x, 4).Value
vclasseurprincipal.cells(i, 3).Value = vclasseurN1.cells(x, 5).Value

x = x + 1

Wend

Wend

il doit y avoir un problème au niveau de la première boucle, ca ne s'arrete pas lorsque le nom est différent de ce que j'ai tapper. Oh fait j'ai pas de message d'erreur qui apparait.
j'espère que tu sera encore là pour m'aider Calade !!!
nanie

Calade · Answer

Bonjour,

Je vois plusieurs problèmes à ton code.

1) Tu ne rentres dans ta boucle principale que si Cells(x,1) & Cells(x, 2) = nom, sinon tu sorst directement du code que tu me montres.

2) En admettant que tu rentres dans la boucle tu incréments d'office x de 1, puis tant que Cells(i, 1) n'est pas vide tu importes tes données mais dans le i suivant puisque tu viens de l'incrémenter à la ligne précédente.

En fait vérifie que tu incrémentes bien x et i au bon endroit. Passe par l'exécution pas à pas en vérifiant à chaque fois les valeurs de chacunes de tes variables, cela t'aidera.

Enfin, prends l'habitude d'indenter ton code aussi petit soit-il, tu verras beaucoup mieux ce qui se passe.

Ci-dessous la version indentée de ton code:

   Dim vclasseurprincipal As Worksheet
   Dim vclasseurN1 As Worksheet
   Dim vchemin As String
   Dim i As Integer, x As Integer
   
   
   vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
   Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
   Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")
   
   x = 2
   While UCase(vclasseurN1.Cells(x, 1) & vclasseurN1.Cells(x, 2)) = nom
      x = x + 1
      
      i = 14
      
      While Not IsEmpty(vclasseurprincipal.Cells(i, 1))
         i = i + 1
   
         vclasseurprincipal.Cells(i, 1).Value = vclasseurN1.Cells(x, 3).Value
         vclasseurprincipal.Cells(i, 2).Value = vclasseurN1.Cells(x, 4).Value
         vclasseurprincipal.Cells(i, 3).Value = vclasseurN1.Cells(x, 5).Value
   
         x = x + 1
      
      Wend
   
   Wend



Calade

nanie12 · Answer

je ne comprends pas la macro
je n'ai rien modifier et maintenant ca ne va plus rien chercher
qu'est qui se passe ?

nanie

nanie12 · Answer

Bonjour

je n'arrives pas à comprendre ce que la macro fait. Moi ce que je veux c'est que quand la macro voit le même nom dans les 2 fichiers elle me relève les info du classeurN1 et les mets dans le classeur principal.
J'ai essayé l'exécution pas à pas mais je n'y arrives pas. As tu une solution ?

Sub toto()


Dim vclasseurprincipal As Worksheet
  Dim vclasseurN1 As Worksheet
  Dim vchemin As String
  Dim i As Integer, x As Integer
  Dim nom As String
 
  vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
   Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
    nom = UCase(vclasseurprincipal.cells(2, 1) & " " & vclasseurprincipal.cells(2, 2))
   Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")

 x = 2
 While UCase(vclasseurN1.cells(x, 1) & " " & vclasseurN1.cells(x, 2)) = nom

      i = 14
      While Not IsEmpty(vclasseurprincipal.cells(i, 1))
      i = i + 1
      vclasseurprincipal.cells(i, 1).Value = vclasseurN1.cells(x, 3).Value
      vclasseurprincipal.cells(i, 2).Value = vclasseurN1.cells(x, 4).Value
      vclasseurprincipal.cells(i, 3).Value = vclasseurN1.cells(x, 5).Value
     
   x = x + 1
    Wend
 Wend
End Sub

nanie

Calade · Answer

Bonjour,

je n'arrives pas à comprendre ce que la macro fait. 
D'où vient cette macro ? Si tu l'as écrite tu devrais comprendre ce qu'elle fait, sinon ce n'est pas en faisant bêtement du copier-coller que tu y arriveras.

Dans le code ci-dessous:

A l'entrée de la boucle 1, vérifie que la condition
UCase(vclasseurN1.Cells(x, 1) & " " & vclasseurN1.Cells(x, 2)) = nom est bien vérifiée au besoin en mettant un point d'arrêt sur cette ligne. puis avance pas à pas.

Si elle rentre dans la boucle 1, vérifie de la même façon son entrée dans la boucle 2.

Contente-toi déjà de la bonne recopie des infos pour le 1er salarié. Ensuite, mais ensuite seulement vérifie qu'il rentre bien une 2ème fois dans la boucle 1 et ce pour un autre salarié.

   Dim vclasseurprincipal As Worksheet
   Dim vclasseurN1 As Worksheet
   Dim vchemin As String
   Dim i As Integer, x As Integer
   Dim nom As String
 
   vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
   Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
   nom = UCase(vclasseurprincipal.Cells(2, 1) & " " & vclasseurprincipal.Cells(2, 2))
   Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")

   x = 2
   While UCase(vclasseurN1.Cells(x, 1) & " " & vclasseurN1.Cells(x, 2)) = nom    ' Boucle 1

      i = 14
      While Not IsEmpty(vclasseurprincipal.Cells(i, 1)) And _
         UCase(vclasseurN1.Cells(x, 1) & " " & vclasseurN1.Cells(x, 2)) = nom    'Boucle 2
            i = i + 1
            vclasseurprincipal.Cells(i, 1).Value = vclasseurN1.Cells(x, 3).Value
            vclasseurprincipal.Cells(i, 2).Value = vclasseurN1.Cells(x, 4).Value
            vclasseurprincipal.Cells(i, 3).Value = vclasseurN1.Cells(x, 5).Value
   
            x = x + 1
      Wend
      nom = UCase(vclasseurprincipal.Cells(x, 1) & " " & vclasseurprincipal.Cells(x, 2))
   Wend

Attention, je n'ai pas testé le code, j'ai simplement ajouté ou modifié les lignes en bleu.

Calade

nanie12 · Answer

c'est moi qui l'ai écrite, j'ai repris ce que j'avais fait pour l'exportation de mes données et me suis dit qu'en copiant et en modifiant certaines choses cela marcherai mais non.
Qu'est ce que ca veut dire quand la ligne  "UCase(vclasseurN1.Cells(x, 1) & " " & vclasseurN1.Cells(x, 2)) = nom" est jaune lors de l'exécution de la macro avec point d'arrêt?


nanie

Calade · Answer

La couleur, est en principe défini par toi (je ne connais pas les couleurs par défaut).

Un point d'arrêt signifie que lors de l'exécution, le programme va s'arrêter AVANT d'exécuter la ligne en question. A ce moment, tu peux voir la valeur de toutes tes variables (dans la fenêtre de code, Menu Affichage/Fenêtre d'exécution et/ou Fenêtres Variables locales) et avec cette dernière et - dans une certaine mesure - tu peux modifier la valeur des variables pour voir ce que cela donne, attention dans ce cas cette valeur n'est évidemment pas modifié dans le code mais uniquement pour l'exécution en cours.


Calade

nanie12 · Answer

rien ne s'affiche dans la fenêtre d'execution quand je place le curseur après i=i+1. J'ai essayé toutes les lignes après et rien ne s'y affiche. cela signifie donc qu'il y a un problème avec la seconde boucle ?
 Dim vclasseurprincipal As Worksheet
  Dim vclasseurN1 As Worksheet
  Dim vchemin As String
  Dim i As Integer, x As Integer
  Dim nom As String
 
  vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés"
   Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant")
    nom = UCase(vclasseurprincipal.cells(2, 1) & " " & vclasseurprincipal.cells(2, 2))
   Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2")

 x = 2
 While UCase(vclasseurN1.cells(x, 1) & " " & vclasseurN1.cells(x, 2)) = nom

      i = 14
      While Not IsEmpty(vclasseurprincipal.cells(i, 1))
      
      i = i + 1
      vclasseurprincipal.cells(i, 1).Value = vclasseurN1.cells(x, 3).Value
      vclasseurprincipal.cells(i, 2).Value = vclasseurN1.cells(x, 4).Value
      vclasseurprincipal.cells(i, 3).Value = vclasseurN1.cells(x, 5).Value
     
   x = x + 1
    Wend
 Wend

End Sub


nanie

Calade · Answer

Je ne suis pas sur que tu es bien lu mon dernier post.

J'y avais mis une version légèrement modifié de ton code. Il faudrait peut-être essayé celui-ci avant d'appeler au secours.


Calade

nanie12 · Answer

Ah je crois que je t'ai saoulé avec toutes mes questions ! désolé
je l'ai testé mais comme ca ne faisait rien je n'ai pas continué avec, je suis revenu à l'ancien. 
Alors avec ta macro, quand je fais pas à pas détaillé (toute la macro est lancée), ca ne trouve aucune valeur pour toutes les "expressions" que j'ai défini au départ.
Par contre quand je met le curseur sur i=14 et que je demande d'exécuter jusqu'au curseur, la ca trouve les données. pareil que tout à l'heure si je descend le curseur ca ne fait rien, page blanche pour les variables locales


nanie

Consolider des donnés à partir de 2 classeur, erreur d'execution 424

30 réponses

Votre réponse

Discussions similaires