[VBA-E]incompatibilité de type

bonjour,

je souhaite copier la valeur d une cellule d un classeur vers une autre cellule d un autre classeur.
la cellule d origine contient des informations qui sont affichées avec une formule vba (affiche la date de derniére mlodification du document).
je souhaite que ma copie de cellule se fasse grâce a un bouton sur la deuxieme feuille.
j ai essayé pas mal de code :

Code:

---

MaBase.Sheets("feuil1").Cells("A1").Value = Monclasseur.Sheets("feuil1").Cells("A1").Value

---

MaBase et MonClasseur son les noms vba de mes deux classeurs.

quand j execute se code il plante et me mets incomptaibilité de type.
ma question et est ce possible de modifier le type des données ou de passer par autre chose pour copier les infos (je doit imperativement le faire grâce au boutons).
merci d'avance :)

Citation:

---

Envoyé par corwin44

bonjour,

je souhaite copier la valeur d une cellule d un classeur vers une autre cellule d un autre classeur.
la cellule d origine contient des informations qui sont affichées avec une formule vba (affiche la date de derniére mlodification du document).
je souhaite que ma copie de cellule se fasse grâce a un bouton sur la deuxieme feuille.
j ai essayé pas mal de code :

Code:

---

MaBase.Sheets("feuil1").Cells("A1").Value = Monclasseur.Sheets("feuil1").Cells("A1").Value

---

MaBase et MonClasseur son les noms vba de mes deux classeurs.

quand j execute se code il plante et me mets incomptaibilité de type.
ma question et est ce possible de modifier le type des données ou de passer par autre chose pour copier les infos (je doit imperativement le faire grâce au boutons).
merci d'avance :)

---

écrit plutot :

Code:

---

1 2	workbooks("MaBase").Sheets("feuil1").Cells("A1").Value = workbooks("Monclasseur").Sheets("feuil1").Cells("A1").Value

---

pour les guillemets, ça dépend si tu met une variable ou le nom brut de ton classeur :)

Par exemple, si tu veux faire plus simple tu fais un :

Code:

---

1 2	dim s as string s = activeworkbook.name

---

a ce moment la tu mettra :

Code:

---

workbooks(s).sheets("feuil1"). 'etc...

---

:( ca ne fonctionne pas il me met tj incompatibilité de type.
la cellule d'origine contient des infos qui sont données grâce à une formule et j ail impression que le probléme vient de la.

Peut etre peux tu essayer avec les fonction de conversion CSng() ou CLng() ...

c bon je vient de trouver le probléme :)
voila le code:

Code:

---

Monclasseur.Sheets("feuil1").Range("A1").Value = MaBase.Sheets("feuil1").Range("A1").Value

---

merci pour votre aide