copier coller deplacer macro

Question

Bonjour à tous,

je connais la fonction deplacer dans excel mais en macro ????
je m'explique.
j'ai deux fichiers et j aimerai copier coller feuil1 du fichier 1 vers le feuil1 du fichier 2 tous les deux trois jours
jusqu'à la pas de probleme...
le souci est que ça fonctionne une fois mais la seconde fois le 2 eme copier coller efface le 1°. normal quoi !
est t il possible de coller dans le fichier 1 mes données du fichier 2 MAIS en dessous des valeurs deja coller de la veille..??
Je vous joint un fichier mais attention il n'y a qu'un fichier et non pas deux pour des raisons pratique. je pense qu'il ne faudra que modifier les adresses de la macro.

pas simple à expliquer désolé...

https://www.cjoint.com/?cmjJO1tywa

MERCI

wilfried_42 · Answer

bonjour

tu dois avoir un code de ce  type

Workbooks(1).sheets("Feuil1").cells.copy destination:=workbooks(2).sheets("Feuil1").range("A1")

essaye ce code : (c'est une seule ligne)
workbooks(1).sheets("Feuil1").range("A1").currentregion.copy destination:=workbooks(2).sheets("Feuil1").range("A1").end(xldown).offset(1,0)

aussie · Answer

g'day mate,

No sorry i don't have the first pin..:o)

Pour etre sincère j'ai juste le fichier que j'ai joint. J'ai bien essayer de bidouiller ces nouveaux codes mais sans succès....

Merci TA

wilfried_42 · Answer

re:

ta macro modifiée
Ton fichier en retour

aussie · Answer

Merci bcp Wilfried,

Ce code fonctionne le souci est que je dois faire un collage spécial avec juste les valeurs et non pas les formules.

Est il possible de copier se qu'il y a en jaune  et de le coller dans Feuil1fichier1 à la fin (dans ce cas ligne 14)sous forme de "valeur" uniquement . IMPORTANT  la hauteur et la longueur change à chaque fois!

https://www.cjoint.com/?cqb1eQRuX4 

Merci d'avance

wilfried_42 · Answer

re:
remplace la precedente
Sub Macro1()
    Sheets("Feuil1fichier2").Range("A1").CurrentRegion.Copy
    Sheets("Feuil1fichier1").Range("A65535").End(xlUp).Offset(1, 0).PasteSpecial xlValues
End Sub

aussie · Answer

Hello,

Super ça marche sauf qu'il me copie toute la page et pas ma selection.
Ma selection en jaune varie tout le temps en nombre de lignes et de colonnes à copier....
J ai bien essayé de bidouiller mais la je coince..

https://www.cjoint.com/?ctfjdOOwnn

Merci Wilfried

Copier coller deplacer macro

6 réponses

Discussions similaires

Newsletters