Macro déplacement cellules basic calc

Fermé
lemarais83 Messages postés 8 Date d'inscription mardi 3 août 2010 Statut Membre Dernière intervention 22 décembre 2011 - 7 sept. 2010 à 17:57
Bonjour,

J'ai la macro suivante :
Trouvée sur un forum et naivement j'ai oublié de noter l'auteur, qu'il m'en excuse

Sub CopierCell()
Dim monDocument As Object, Sheets
Dim fDepart As Object, fArriv As Object
Dim zDepart As Object, cArriv As Object
monDocument = thisComponent
lesFeuilles = monDocument.Sheets

fDepart = lesFeuilles.getByName("Feuille1")
zDepart = fDepart.getCellRangeByName("B5")
' les feuilles départ et arrivée peuvent être différentes
fArriv = lesFeuilles.getByName("Feuille1")
cArriv = fArriv.getCellRangeByName("C5")
fArriv.copyRange(cArriv.CellAddress, zDepart.RangeAddress)

A l'ouverture du fichier, j'ai le message d'erreur suivant :
"
Erreur d'éxécution BASIC
Propriété ou méthode non trouvée : Sheet
"
et la ligne
lesFeuilles = monDocument.Sheets
est en "bleu"
Je clic sur la croix rouge et le document s'ouvre normalement
La macro fonctionne, mais j'aimerais supprimer cette anomalie
Je compte sur l'un de vous.
Merci de votre collaboration
A voir également: