Copier coller deplacer macro

aussie -  
 aussie -
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
A voir également:

6 réponses

wilfried_42 Messages postés 912 Statut Contributeur 245
 
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)

0
aussie
 
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
0
wilfried_42 Messages postés 912 Statut Contributeur 245
 
re:

ta macro modifiée
Ton fichier en retour
0
aussie
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
wilfried_42 Messages postés 912 Statut Contributeur 245
 
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
0
aussie
 
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
0