J'ai enlever ce morceau de code
Range("A5").EntireColumn.SpecialCells(xlCellTypeConstants).Select <> ""
je voulais juste savoir si mes cellules de A5 à A35 etait vide ou non (le reste je m'en fiche) et si elles ne sont pas vide je remplis mes cellules C5 à C35 (celle qui correspond au case non vide)
pour cela j'ai fais ceci :
1 2 3 4 5 6 7 8 9 10 11
| Dim val, compteur
For compteur = 5 To 35
Range("A" & compteur).Select
Range("C" & compteur).Select
If Range("A" & compteur).Value <> "" Then
nom = Range("A" & compteur).Value & (".xsl")
Range("C" & compteur).Value = "OK"
End If
Next |
ca marche tres bien
maintenant ce que je voudrai
c'est pouvoir remplir ma cellule C ( à la place du "OK" ) avec une donnée qui se trouve dans un autre classeur (et qui se situe toujours dans la même colonne).
le nom de ce classeur je le recupere dans ma variable "nom" (ca marche aussi
)
Mais comment faire maintenant pour recupere la valeur dans l'autre classeur?
j'espere que je suis un peu plus clair
n'hesitez pas à me poser des questions sinon
Partager