Déplacer des infos dun classeur a un autre

[Seb [DoA3's DiOu]]

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

 

[Stéphane]

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

 

[Seb [DoA3's DiOu]]

le compilateur me marque une erreur de type :1004
"la methode select de plage range a échoué"

 

[Stéphane]

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