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
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  1. 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