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
'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