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

Dranreb

XLDnaute Barbatruc

• 16 Octobre 2023

• #2

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 ?

 

Vote positif 0 Vote négatif

Y

Yvan1

XLDnaute Occasionnel

• 16 Octobre 2023

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Octobre 2023

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

Y

Yvan1

XLDnaute Occasionnel

• 16 Octobre 2023

• #5

Parfait, merci bien.

 

Vote positif 0 Vote négatif

Y

Yvan1

XLDnaute Occasionnel

• 17 Octobre 2023

• #6

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Merci d'avance,

Yvan

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Octobre 2023

• #7

Bonjour.
Essayez comme ça :

VB:

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

 

Vote positif 0 Vote négatif

Y

Yvan1

XLDnaute Occasionnel

• 17 Octobre 2023

• #8

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,

 

Pièces jointes

• Classeur1.xlsx

  18.4 KB · Affichages: 3
• Historique d'achats - Excel-Download.xlsm

  36.6 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Octobre 2023

• #9

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.

 

Vote positif 0 Vote négatif