Coller avec liaison une cellule dans une autre.

Fermé
Philou73CH - 25 avril 2014 à 00:52
 Philou73CH - 28 avril 2014 à 19:28
Bonjour / Bonsoir à vous.

Pouvez vous m'expliquer ce bug intitulé : Erreur d'exécution ' 1004, Microsoft Excel ne peut pas coller les données.

J'ai une macro, qui me sert à créer des feuilles Excel pour chaque personne nommée dans un tableau. Dans ce tableau chaque personne à une cellule qui est le total d'heure qu'il effectue. Ce total d'heure va évoluer tout au long de l'année. C'est pourquoi je voulais utiliser le collage avec liaison. Car cette cellule "Tableau X " est l'image de " feuille X = A1 + A2+A3....."

Pour ce faire j'ai utilisé le programmation VBA suivante :
'Report du total d'heures
Sheets(FixeFeuil).Activate
Range("E10").Select
Selection.Copy
Sheets("Récap_Pers").Select
Range("E14").Select
ActiveSheet.Paste Link:=True

Cela fontionne parfaitement quand j'utilise le pas-à-pas avec F8. Par contre, quand je lance la macro et qu'elle le fait un continue, il y a bug et le message d'erreur.
Si je remplace : ActiveSheet.Paste Link: = True par
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Je n'ai aucun message d'erreur. ¨
Par contre je n'ai plus ma fonction de laison. Donc je ne suis pas bon .....
Pouvez.vous m'aider.
D'avance je vous en remercie.

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
27 avril 2014 à 08:13
Bonjour

essaies

Sheets("Récap_Pers").Range("E14").FormulaLocal = "=FixeFeuil!E10"
0
Bonjour Michel,

Je m'excuse de ma lenteur, mais tu vois c'est mon pays....
Je viens de tester ta proposition. Hélas il se passe un truc,
J'ai la fenêtre pour les répertoires qui s'ouvre et le texte en haut à droit est le suivant :
Mettre à jour la valeur : FixeFeuil

Merci pour l'idée, mais à voir ma question est toujours de mise.... :-((((

Je te remercie sincérement du temps que tu as pris pour me lire et me répondre.
MEilleures salutations.
0