Copier la valeur d'une cellule d'un autre classeur Résolu/Fermé

Question

Bonjour, 
J'ai un petit soucis.
J'essaie de faire un code qui copie les valeurs des cellules de Q1 jusqu'à la cellule Q vide qui se trouve dans la feuil1 du classeur TG.xlsm et les colle dans la feuilz du classeur Doc.xlsm à partir de Y2.
J'aimerais copier uniquement les valeurs et pas les formules.

Sub copie ()Dim I As Integer Dim NomFichier As StringDim j As Integer NomFichier = "TG.xlsm"J = 1I = 1Application.ScreenUpdating = False Workbooks.open ("D:\users\moi\Desktop\doc\" & NomFichier )Do While Range("Q1:Q" & j).value  <> ""Application.WindowState = xlMinimized Range ("Q1:Q" & j).select Sélection.copy Active Windows. ScrollColumn = IAvtiveWindow.Close Range ("Y2:Y" & i).Select ActiveSheet.PasteLoopNext INext jEnd sub

Seulement la premiere valeur se copie et un message me dit que la forme et la taille des données du presse papier ne correspondent pas à la zone sélectionné.

Quelqu'un pourrait m'aider svp.
Merci.

michel_m · Answer

Bonjour
essaies (non testée)
Option Explicit'---------------------------Sub copie()Dim Tampon, Derlig As Integer '(integer à adapter)Application.ScreenUpdating = False' ------collecteWorkbooks.Open ("D:\users\moi\Desktop\doc\" & NomFichier)With Sheets(1) ' A ADAPTER        Derlig = .Columns("Q").Find(what:="*", searchdirection:=xlPrevious).Row        Tampon = Application.Transpose(.Range("Q1:Q" & Derlig))End WithActiveWindow.Close'-----------------restitutionRange("Y2").Resize(UBound(Tampon), 1) = Application.Transpose(Tampon)End Sub

Copier la valeur d'une cellule d'un autre classeur

1 réponse

Discussions similaires