Discussion :

[yalefe]

bonjour,
voici mon petit souci

j'ai deux classeurs,

un classeur A (plusieurs feuilles) depuis lequel je copie des données dans deux colonnes et x lignes

un classeur B (une seule feuille ) vers lequel je copie ces données

A chaque feuille du classeur A, doit correspondre une colonne de la feuille du classeur B

je commence donc par lire le nom de la feuille active du classeur A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 To nbfeuil
   Windows("Boursorama - Mars.xlsb").Activate
    val = Worksheets(i).Name
...

ensuite sur le classeur B, je me positionne sur la derniere cellule de la ligne 1 pour y ecrire ce nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
...Windows("base.xlsx").Activate
                 With Workbooks("base").Worksheets("Résultat").Range("a1").End(xlToRight).Select
        ActiveCell.Offset(0, 1).Activate
        ActiveCell.Value = val
...

et c'est là qu'intervient mon souci, j'ai besoin de
recuperer l'indice ou la position de cette colonne ou la rendre active de facon a ce que toutes les données que je vais copier dans la feuille active du classeur A soit collées uniquement dans cette colonne.

et là je vois pas trop comment faire ....

[david_atx]

Ecrit tout ton code dans un seul des deux classeurs et quand tu veux copier dans l'autre classeur ou avoir des infos dessus organise ton code comme ceci

enlève tes windows activate pas beau
pour avoir l'indice de ta colonne tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

val = Workbooks("base").Worksheets("Résultat").Range("IV1").End(xlToleft).column +1

et tu auras ton indice de la première case de la ligne 1 vide

[yalefe]

merci de ta réponse


Pourquoi virer mes windows activate ?? (parce que je l'avoue, j'en ai mis une palanquée....)

C'est surtout que j'en aie besoin sinon comment je fais pour copier mes données de mon classeur A ( sans l'activer ?) et pour les coller dans mon classeur B ( sans l'activer ???)

[david_atx]

eh bien tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
workbooks("nomduA").sheets("nomfeuille").range(tarange).copy
workbooks("nomduB").sheets("nomfeuille").range(tarange).pastespecial xlpastevalues

ou un truc du genre ...

[diude54]

Sinon en une seule ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

workbooks("nomduA").sheets("nomfeuille").range(tarange).copy workbooks("nomduB").sheets("nomfeuille").range(tarange)

Sinon tu as essayé de faire un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim WbkB as Workbook, WbkA as workbook
F as Worksheet, Fcible as Worksheet
dim nom as string
 
set WbkA = Workbook("A")
set WbkB = Workbook("B")
set Fcible as WbkB.Worksheets("Feuil1")
 
For each F in WbkA.Worksheets
nom = F.name
Dercol=WbkB.Fcible.range("IV1").end(xltoleft).column
WbkB.Fcible.Cells(1,Dercol).Value=nom
F.range("A1","A100").copy WbkB.Fcible.cells(2,Dercol)
next F

[yalefe]

merci à vous deux

[diude54]

De rien:
met un petit résolu si tu as ta réponse