Transfert avec macro entre2classeurs excel
liloo
-
rloup85 -
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
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:
- Transfert avec macro entre2classeurs excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
1 réponse
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
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