Copier la valeur d'une cellule d'un autre classeur
Résolu
siamens_duj
Messages postés
212
Statut
Membre
-
siamens_duj Messages postés 212 Statut Membre -
siamens_duj Messages postés 212 Statut Membre -
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.
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.
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 String
Dim j As Integer
NomFichier = "TG.xlsm"
J = 1
I = 1
Application.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 = I
AvtiveWindow.Close
Range ("Y2:Y" & i).Select
ActiveSheet.Paste
Loop
Next I
Next j
End 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.
A voir également:
- Copier automatiquement une cellule excel dans un autre classeur
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Déplacer une colonne excel - Guide
1 réponse
Bonjour
essaies (non testée)
essaies (non testée)
Option Explicit
'---------------------------
Sub copie()
Dim Tampon, Derlig As Integer '(integer à adapter)
Application.ScreenUpdating = False
' ------collecte
Workbooks.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 With
ActiveWindow.Close
'-----------------restitution
Range("Y2").Resize(UBound(Tampon), 1) = Application.Transpose(Tampon)
End Sub
Merci beaucoup pour votre réponse.