Code Importation des données


#1

Bonsoir le forum

Je suis débutante en VBA,
Je souhaite solliciter votre aide pour transformer ce boisoin en langage VBA.

Copier la case 6 de la ligne 74 de la feuille 1 du fichier Source_A et la coller dans la première case vide de la ligne 25 de l’onglet CA_Etranger du classeur TdB_des_Risques_2018.

Merci d’avance pour votre aide.

Bonne soirée


#2

Bonjour
Quel code as tu essayé stp?


#3

Bonjour Lina88,
En supposant que les 2 fichiers soient ouverts, que tu saches placer le code dans un module.
Essai cela :

Sub Copie()

With Workbooks("TdB_des_Risques_2018.xlsx").Sheets("CA_Etranger")
.Cells(25, .Range("A25").End(xlToRight).Column + 1) = Workbooks("Source_A.xlsx").Sheets(1).Cells(74, 6)
End With

End Sub

#4

Bonsoir
Merci pour ta réponse rapide
Je vais adapter ça avec mes données et je reviendrai vers toi pour te dire si ça fontionne😊

Je te souhaite une excellente soirée
Lina


#5

Bonsoir
Le code que j ai fait avant ne correspond plus au besoin que j ai posté donc c pour ca que e l’ai pas mis.
Je vais tester la solution proposé par WildDigiSoft et je reviendrai vers vous si je me bloque.

Merci pour votre aide.