Discussion :

[hochimi]

Bonjour,

J'ai un problème très étrange et donc très énervant sur excel:

En vba depuis un fichier excel, j'ouvre un autre fichier. Je veux copier des Ranges déterminés dans le fichier "externe" pour les coller à des endroits précis dans le fichier qui contient le code:

Mon problème est que je souhaite désigner des Ranges via les coordonnées des cellules, comme ceci:

Code :

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

Range(Cells(a,b),Cells(a',b'))

et non pas comme celà:

Code :

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

Range ("A1:B3")...

Le truc étrange c'est que les deux types de sélection fonctionnent dans le workbook du fichier qui contient le code mais pas pour celui du fichier externe, où je suis visiblement obligé de passé par les coordonnées lettrées des cellules...

mon code: (wbSource est la variable workbook désignant le fichier externe)

Code :

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

1
2
3
4
5
Range(Cells(1, 1), Cells(3, 3)).Copy 'Fonctionne!
 
wbSource.Worksheets(1).Range(Cells(1, 1), Cells(3, 3)).Copy  ' Ne fonctionne pas
 
wbSource.Worksheets(1).Range("A1:B3") 'Fonctionne

Etrange non? Quelqu'un peut m'aider à faire ce fichu copier collé à partir des coordonnées?

[Tinnou]

Est-ce que cela change quelquechose si tu mets dans ton code:

Code :

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

1
2
 
Application.ReferenceStyle = xlR1C1

C'est supposé fixer le style en mode R1C1 au lieu de A1.

[hochimi]

Non ça ne change rien... D'une manière générale j'arrive à désigner une cellule par ses coordonnées mais là c'est juste le range(...) qui déconne quand je le fais pour la worksheet du fichier externe.

Quelqu'un a t'il un morceau de code qui ferait ça:

(-ouverture d'un fichier externe)
-sélection d'un range (par les coordonnées de deux cellules) dans une feuille du fichier externe
-Copy du range
-Paste à un endroit dans le fichier d'origine

Ce serait bien gentil!!

[wilfried_42]

bonjour

si ce n'est pas un pastespecial :
le classeur source est le deuxieme ouvert il porte donc l'index 2

Le classeur de reception est le classeur 1 le premier ouvert, je place la copie dans la feuille 1 cellule A1

Code :

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

Workbooks(2).Sheets(1).Range(Cells(1, 1).address & ":" & Cells(3, 3).address).Copy destination:= workbooks(1).sheets(1).range("A1")

bonne soirée

[SilkyRoad]

bonsoir

Tu peux aussi tester

Code :

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

1
2
3
wbSource.Worksheets(1).Range( _
    wbSource.Worksheets(1).Cells(1, 1), _
    wbSource.Worksheets(1).Cells(3, 3)).Copy

michel

[Michel_M]

Bonsoir Hochimi, Tinnou, Wilfried, mon cher Michel ;-)

pour utiliser cells(x,y) il faudrait que le classeur externe soit le classeur actif (je découvre le fait avec ce post).

ce code fonctionne à partir de classeur1:

Code :

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

1
2
3
4
5
 
Workbooks("essai.xls").Activate
tablo = Range(Cells(1, 1), Cells(3, 3))
Workbooks("classeur1").Activate
Range("D10:F13") = tablo

bonne soirée