Erreur dans une macro

Résolu
cooljuly -  
 cooljuly -
Bonjour,

j'ai besoin que ma macro importe des données de d'autres classeurs. la première partie fonctionne mais à partir du moment où je lui demande de m'importer des cellules spécifiques, elle me marque "vrai" au lieu du chiffre,

Il y a 4 cellules fixes à importer pour chaque fichier :
onglet 1 : J69
onglet 2 : I71 à I73

tous le titres d'onglets sont fixes.
la macro : http://www.cjoint.com/c/FGdti6OhyoZ
un exemple de fichier à importer (j'ai supprimer les données et juste laissé les chiffres à importer http://www.cjoint.com/c/FGdtjEUSj3Z

que dois je corriger pour que cela fonctionne ?
merci par avance

1 réponse

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    Bonjour,

    Tes variables
    Dim nAjout2 As String, nAjout1 As String, nAjout3 As String, nAjout4 As String, 
    ne doivent pas être en string mais en variant.
    Tes copy sont incorrectes
    nAjout2 = Range("I72:J72").Value
                nAjout3 = Range("I73").Value
                nAjout4 = Range("I74").Value

    Toujours zen
    La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry
    0
    1. cooljuly
       
      Bonjour,

      merci pour aide, effectivement cela fonctionne maintenant :)
      par contre la donnée se duplique 4 fois plutôt que de n'apparaitre qu'une seule fois en fin de tableau
      0
    2. cooljuly
       
      j'ai trouvé :) problème résolu. merci bcp
      0