XL 2013 Copier des données d'un fichier à un autre

[Yvan1]

Bonjour,
J'ai deux fichiers Excel ouverts : A et B
Je souhaite que B récupère des données situées en A (onglet Test, plage A1:K50), mais sans "aller" sur A, pour les positionner en A1 sur B.
Je pensais utiliser une formule du type With Workbooks(A), mais ça ne fonctionne pas.
En fait je ne veux pas que l'utilisateur voit des va-et-vient entre les fichiers.
Merci d'avance de votre aide,
Yvan

 

[Dranreb]

Bonsoir.
C'est quoi vos A et B, des variables As String contenant des noms de classeurs ouverts ou des variables As Workbook les représentant directement ?

 

[Yvan1]

Oui, pour l'exemple ce sont les noms de fichiers.

 

[Dranreb]

En supposant que la feuille active est la destinatrice sur le B :

ActiveSheet.[A1:K50].Value = Workbooks(A).Worksheets("Test").[A1:K50].Value

 

[Yvan1]

Parfait, merci bien.

 

[Yvan1]

Re-bonjour,

Mon problème, c'est que le fichier source (Classeurs1) peut avoir un nombre de lignes variable.
C'est a qui fixe le nombre de lignes.

Avec la formule suivante (si l'on part du principe que a=60), la copie ne se fait pas....

With Sheets("Données")

a = Application.WorksheetFunction.CountA(Workbooks("Classeur1.xlsx").Sheets("Test").Range("H:H")) + 2
.Range(Cells(2, 1), Cells(a - 2, 11)).Value = Workbooks("Classeur1.xlsx").Sheets("Test").Range(Cells(4, 1), Cells(a, 11)).Value


End With

Tandis qu'avec la formule suivante, tout fonctionne....

With Sheets("Données")

.Range("A2:K58").Value = Workbooks("Classeur1.xlsx").Sheets("Test").Range("A4:K60").Value

End With

Quelle syntaxe utiliser pour intégrer cette notion de variable ?

Merci d'avance,

Yvan

 

[Dranreb]

Bonjour.
Essayez comme ça :

Dim RngSrc As Range
Set RngSrc = Workbooks("Classeur1.xlsx").Sheets("Données").[H4]
Set RngSrc = RngSrc.Resize(RngSrc.Offset(1000000).End(xlUp).Row - 3, 11)
Worksheets("Données").[A2].Resize(RngSrc.Rows.Count, 11).Value = RngSrc.Value

 

[Yvan1]

Bonjour,
Merci pour votre réactivité.
C'est nettement mieux, mais il y a un total au pied de la colonne A (classeur1) que je ne veux pas reprendre, et de surcroit, le format Date de la colonne B n'est pas respecté à la copie...
Je vous joins les deux classeurs pour mieux comprendre l'affaire.
Encore merci pour votre aide,

 

[Dranreb]

Bonsoir.
En colonne B ce ne sont pas des dates mais des textes. Pour qu'ils ne soient pas interprétés (forcément de travers) comme des dates, mettez un format de texte sur la colonne réceptrice avant de les y affecter.