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

Résolu

siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention -
siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention - 26 janv. 2016 à 14:04

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 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
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Liste déroulante excel - Guide
Proteger cellule excel - Guide
Déplacer une colonne excel - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour
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

siamens_duj Messages postés 192 Date d'inscription Statut Membre Dernière intervention 7

Merci de votre réponse, je venais de résoudre mon problème avec une autre solution ^^
Merci beaucoup pour votre réponse.

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel formule : savoir si une cellule contient partie texte

Excel : colorer une cellule sous condition d'une autre ?

Votre réponse

Discussions similaires