problème copier coller VBA

Question

Bonjour,

Petit souci lors de mon copier coller de plusieurs cellules d'une feuille ("Feuil1") à une autre feuille d'un autre classeur.
La copie se fait bien mais pas de résultat lors du coller.
Une fois sur ma feuille il me suffit de valider par Entrée et le coller se fait.
Où est mon erreur
please Help

Code:
Sub exemple()

Workbooks.Open "C:\Documents and Settings\mont\Mes documents\Référence Affaires.xls"
ThisWorkbook.Sheets("Feuil1").Range("A1:E21").Copy
Workbooks("Référence Affaires.xls").Sheets("Mau.D").Paste Destination:=Range("A1:E21")

End Sub

AlKatou · Answer

salut,

j'ai pas testé mais pour moi ton problème vient de ThisWorkbook ou du Copy. as-tu testé le fait de mettre le nom du classeur à la place de ThisWorkbook ? ou encore faire un Select avant le Copy et faire un Selection.Copy ?


AlKa

yacano · Answer

Salut,

J'ai suivi ton conseil mais idem, la copie se fait bien ma zone est bien sélectionnée mais rien n'est coller, mais si je fais entrée alors ma copie se colle.
Il doit y avoir un problème lors de la validation du coller en A1
Merci pour ton aide

yacano · Answer

Re,

Ca y est, enfin sorti de cette galère voilà mon code
Code:
Sub exemple()
Workbooks.Open "C:\Documents and Settings\mon\Mes documents\Référence Affaires.xls"
Workbooks("Exemple.xls").Sheets("Feuil1").Range("A1:E21").Copy
Workbooks("Référence Affaires.xls").Sheets("Mau.D").Paste Destination:=Workbooks("Référence Affaires.xls").Sheets("Maud.D").Range("A1")

End Sub

Merci beaucoup

Problème copier coller VBA

3 réponses

Votre réponse

Discussions similaires