Copier/Coller une cellule vers un autre classeur
Bonjour a tous, Etant novice sur VBA, je souhaiterai solliciter votre aide!
Je souhaiterai copier des cellules (cellule fusionnée) d'un fichier excel (1) vers un autre fichier excel (2), voici les détails :
Nous avons 2 fichier Excel :
fichier (1) = Fichier donnée
Fichier (2) = Fichier suivi
Je souhaiterai copier les Valeurs des cellules C4 ; C12 et I112 du fichier donnée (1) vers le fichier suivi (2) qui est fermée... Pour cela, je souhaiterai que le fichier suivi (2) s'ouvre automatiquement et que les cellules C4 ; C12 et I112 copiées du fichier donnée (1) se colle sur celui-ci (2) à partir de la cellule B1 et a la suite c'est à dire C1 et D1 (transpose=True?) sans prendre en compte le format cellule fusionnées
soit (1) C4=> (2) B1 ; (1) C12 => (2) C1 ; (1) I112 => (2) D1
Par la suite, lorsque je relance la macro je souhaiterai que les données copiées soit collées à la ligne suivante c'est à dire en B2 et ainsi de suite.
En vous remerciant par avance pour votre aide
Bonsoir,
Pour plus de confort, tu pourrais joindre un fichier ? Si nécessaire, vidé et avec quelques lignes bidons
Bonjour, je vous ai joins le fichier, j'ai essayé de faire un code VBA mais je suis loin du résultat...
En vous remerciant par avance pour votre aide
Salut,
Essaie ce code :
Sub niakoloko()
Set WB = ActiveWorkbook
'thefile = Application.GetOpenFilename
'Set WB2 = Workbooks.Open(thefile)
Set WB2 = Workbooks("Classeur2 (1).xlsx")
derlig = WB2.Sheets("Feuil1").Range("B65536").End(xlUp).Row
[K5].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 2).PasteSpecial Paste:=xlValues
[C10].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 3).PasteSpecial Paste:=xlValues
[C13].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 4).PasteSpecial Paste:=xlValues
[I13].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 5).PasteSpecial Paste:=xlValues
[C15].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 6).PasteSpecial Paste:=xlValues
[AF5].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 7).PasteSpecial Paste:=xlValues
[AF7].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 8).PasteSpecial Paste:=xlValues
[AF10].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 9).PasteSpecial Paste:=xlValues
[AF11].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 10).PasteSpecial Paste:=xlValues
WB2.Sheets("Feuil1").Cells(derlig + 1, 1) = WB2.Sheets("Feuil1").Cells(derlig, 1).Value + 1
End SubMerci SoumZoum!
C'est exactement ce que je souhaitais! tu es formidable!!! un grand merci à toi et à toutes les développeurs qui prennent le temps d'aider les autres!!!Merci
Ahah, je suis loin d'être un développeur et d'être formidable... mais de rien
Mais surtout,