Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

   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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim s as string
s = activeworkbook.name

a ce moment la tu mettra :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[corwin44]

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.

[Ania]

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

[corwin44]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci pour votre aide