Transfert avec macro entre2classeurs excel

liloo -  
 rloup85 -
Bonjour,
Je dois réaliser une macro pour trasferer les données présente dans certaines colonnes d'une feuille (le nombre de ligne depend du cas) vers certaines colonnes(pas le même indice que l'autre) d'une autre feuille. Le problème en plus c'est que je souhaite indiquer la feuille où prelever les données et la feuille où lesmettre dans un troisieme classeur (du nom de "nom_fichier".xls). Le classeur source est indiqué en C3 de ce fichier, le classeur d arrivée en C5.

Voila la procedure que j'ai... sauf que j'ai maintenant des chiffres dans le classeur "nom_fichier", de 1à 26 en B...Quelqu'un peut t'il m'aider?Merci d'avance!

Sub transfert1()
'
' transfert1 Macro
' 1er transfert
'
Set don1 = Workbooks("nom_fichier.xls").Sheets("feuil1")
donn1 = don1.Cells(3, 3)
Set f1 = Workbooks(donn1).Sheets("Valeurs") ' fichier etude
Set don2 = Workbooks("nom_fichier.xls").Sheets("feuil1")
donn2 = don2.Cells(5, 3)
Set f2 = Workbooks(donn2).Sheets("feuil1") ' fichier base de données

nb_pylone = 0
While f1.Cells(nb_pylone + 6, 2) <> Empty
nb_pylone = nb_pylone + 1
Wend
i = 0
While i < nb_pylone

f1.Cells(i + 13, 3) = f2.Cells(i + 6, 2)
f1.Cells(i + 13, 4) = f2.Cells(i + 6, 5)
f1.Cells(i + 13, 25) = f2.Cells(i + 6, 4)
i = i + 1
Wend
End Sub
A voir également:

1 réponse

rloup85
 
cette macro realise vos besoin:
Dim nb_pylone As Integer
Dim nbr As Integer

Set don1 = Workbooks("Classeur1.xls").Sheets("feuil1")

Set f1 = Workbooks("Classeur1.xls").Sheets("feuil2")

Set f2 = Workbooks("Classeur1.xls").Sheets("feuil1")
f1.Cells(15, 1) = f2.Cells(1, 1) + f2.Cells(1, 2)

nb_pylone = 1

While f2.Cells(nb_pylone, 1) <> Empty
nb_pylone = nb_pylone + 1
nbr = nb_pylone

Wend

TextBox1.Value = nb_pylone

While i <= nb_pylone
f1.Cells(i, 1) = f2.Cells(i, 1)

i = i + 1

Wend
0