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

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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
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
cooljuly
 
j'ai trouvé :) problème résolu. merci bcp
0