Déplacer des infos dun classeur a un autre

  • Initiateur de la discussion Seb [DoA3's DiOu]
  • Date de début
S

Seb [DoA3's DiOu]

Guest
Bonjour

G un pn avec la fonction Select
Voila le context j aimerai qu'il me copie le contenu des lignes d un classeur dans un autre classeur.

NB: Les cellules dans lesquelles j aimerai copier les info sont fusionnées

voila mon code:

Private Sub Ratification_Click()
Dim TempValue As String
Dim WorkbookName As String
WorkbookName = ActiveWorkbook.Name

Dim intLigne As Integer
intLigne = 17
'Definition et initialisation du compteur qui permet de parcourir la colone désignation du produit :
Dim intCompteur As Integer
intCompteur = 6

Workbooks.Add Template:="\\Dci_data1_fr\DATA_QUA\MODELES_QUA\QUA-F-049-E.xlt"
Windows(WorkbookName).Activate

'boucle qui permet de lire les informations tant que les cellules ne sont pas vide:
Do While Not (IsEmpty(Range("A" & intCompteur).Value))
Windows(WorkbookName).Activate
TempValue = Range("A" & intCompteur).Value
Windows("QUA-F-049-E1").Activate
Range("B" & intLigne).Select
ActiveCell.FormulaR1C1 = TempValue

intCompteur = intCompteur + 1
intLigne = intLigne + 1
Loop
End Sub
 
S

Stéphane

Guest
quel problème as-tu ?

pour copier les données de tempvalue dans un autre classeur
Workbooks("Classeur2").Worksheets(1).Range("B" & intLigne).FormulaR1C1 = TempValue


regarde aussi là <http://xlbystephf.free.fr/aideinformatique/actioncellule.htm> partie copie et sélection
 
S

Stéphane

Guest
j'ai utilisé ce code à partir du tien, tu dois changer Classeur2 par le nom de ta variable ou de ton classeur en question.

j'ai également fait le test avec des cellules fusionnées dans la colonne 1

bye
stephane
 

Discussions similaires