couper le contenu d une cellule

[Vivien]

Bonjour a tous le monde,
J'aimerai COUPER le contenu d'une cellule (d'une feuille d'un classeur) et le COLLER dans une autre cellule (d'une autre feuille d'un autre classeur) lorsque l'on appuie sur un bouton(du style commandButton).
Ceci rendrai la premiere cellule vide(mai que le contenu pas la forme).
Merci d avance.
Vivien.

 

[Gérard DEZAMIS]

Bonsoir Vivien
Macro à placer dans un bouton

Sub Transfert()
Range("Cellule à couper").Select
Selection.Cut
Windows("XYZ.xls").Activate
Sheets("Nom de feuille").Select
Range("Cellule qui reçoit").Select
ActiveSheet.Paste
Windows("ABC.xls").Activate
End Sub

ABC. xls 1° fichier et XYZ.xls 2° fichier doivent être ouverts tous les deux.
C'est un peu fruste mais avec l'enregistreur de macro cela fonctionne !
Il y a surement mieux ...
@+
GD

 

[omicron]

Bonsoir Vivien et Gérard,

En complément de la réponse de Gérard, il est possible en une instruction, placée n'importe ou dans le code associé à un classeur ouvert de réaliser l'opération demandée.

Exemple :

Workbooks("Source.xls").Sheets("Feuil1").Range("A3").Copy Destination:=Workbooks("Destination.xls").Sheets("Feuil2").Range("B1")

suffira pour copier le contenu de la cellule "A3" de fa feuille "Feuil1" du classeur "Source.xls" dans la cellule "B1" de la feuille "Feuil2" du classeur "Destination.xls"

Comme dans la réponse de Gérard, celà suppose que les deux classeurs aient été préalablement ouverts.

En espérant avoir fait avancer le ...

Cordialement.

Omicron.

 

[omicron]

Re bonsoir Vivien et Gérard,

Correctif au message précédent, il faut ajouter une instruction pour traiter complètement le problème et effacer le contenu de la source, en conservant son format, ce que ne permet malheureusement pas le "xxxx.cut destination := ..."

Workbooks("Source.xls").Sheets("Feuil1").Range("A3").Copy Destination:=Workbooks("Destination.xls").Sheets("Feuil2").Range("B1")
Workbooks("Source.xls").Sheets("Feuil1").Range("A3").ClearContents

Avec mes excuses ...

Omicron.

 

[Gérard DEZAMIS]

Bonsoir Omicron

Merci d'avoir exaucé mes voeux.
Chaque jour a sa petite dose de satisfaction
Merci à toi et à Vivien aussi pour avoir posé cette question.
@+
GD