Discussion :

[ouinih]

Bonjour,

Je parcourt la feuille 1 du premier fichier excel (avec un curseur) , je copie une ligne et je la colle dans un 2ème fichier excel.
Le pb est que après avoir coller la ligne, le curseur s'incrémente dans le 2ème fichier…comment faire pour revenir au premier fichier et retrouver mon curseur ?
merci

[bastou93]

Bonjour,

Qu'appelles tu curseur? cellule sélectionnée?

Sinon pour revenir sur un autre fichier:

Code :

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

1
2
3
4
5
6
7
8
'TU FAIS TON COPIER
...
'TU CHANGE DE FICHIER
WorkBooks("NOM DE TON FICHIER.xls").Activate
'TU FAIS TON COLLER
...
'TU REVIENS
WorkBooks("NOM DE TON AUTRE FICHIER.xls").Activate

sachant que tu peux le fermer avec .Close si t'en a plus besoin de bon fichier

Bastien

[ouinih]

j'ai l'erreur suivante :
l'indice n'appartient pas à la sélection

!!!

[bastou93]

Vérifie alors le nom de ton fichier tu peux le voir en haut et l'extension aussi.
Sinon tu peux travailler avec l'index au lieu du nom exemple:

Code :

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

1
2
WorkBooks(1).Activate
WorkBooks(2).Activate

1= premier fichier ouvert... etc

EDIT: j'avais oublié des "s" aussi a la fin de "workbooks"
Bastien

[ouinih]

cela marche bien qd je passe du premier fic au 2 ème.
mais ça ne marche pas qd je veux revenir au 1ere fic...

[bastou93]

Sa fait quoi?

Il n'y a pas de raison fait en pas à pas moi si je fais

Code :

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

1
2
3
WorkBooks(1).Activate
WorkBooks(2).Activate
WorkBooks(1).Activate

Je passe du premier au deuxième et reviens sur le 1er...

[ouinih]

merci ça marche bien.
mais j'ai un autre pb : je souhaite parcourir les onglets du fichier 1.
j'ai une boucle :

Code :

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

1
2
3
 
For j = 1 To NbOnglet
   Worksheets(j).Activate

qd j=1 ça marche bien...
qd j=2 j'ai l'erreur :
l'indice n'appartient pas à la sélection

[bastou93]

qd j=1 ça marche bien...
qd j=2 j'ai l'erreur :
l'indice n'appartient pas à la sélection

Normal tu as mis WorkSheets

Mais il y a mieux sa évite de faire varier ta variable

Code :

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

1
2
3
for each work in Workbooks   'balaye tous les workbook
  work.activate  'active tous les workbook 1 à 1
next work

Bastien

[ouinih]

j'ai mis worksheet car je souhaite parcourir les feuille du classeur...

[bastou93]

Désolès je n'avais pas vu
Bah c'est pareil mais avec sheet alors

Code :

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

1
2
3
for each sh in Workbooks(1).Sheets   'balaye tous les workbook
  sh.activate  'active tous les workbook 1 à 1
next sh

[MarcelG]

Bonjour à vous deux, Bonjour le Forum,

Si je peux me permettre, quelques remarques :

Code :

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

1
2
3
for each sh in Workbooks(1).Sheets   'balaye tous les workbook
  sh.activate  'active tous les workbook 1 à 1
next sh

Tu ne balayes pas les workbook mais les onglets de ton classeur indicé 1.

D'autre part, il faut bien savoir que

Code :

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

Worksheet

et

Code :

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

Sheet

ne désigne pas le même objet.

Voir la FAQ

Les feuilles de calcul

Enfin, pour revenir au premier point de la discussion, je pense qu'il aurait mieux fallu affecter 2 variables aux objets classeur.

Code :

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

1
2
3
4
5
Dim wk1 as Workbook
Dim wk2 as Workbook
 
Set wk1 = ThisWorkook
Set wk2 = Workbooks("leclassur.xls")

("ThisWorkbook" désigne le classeur où est écrit le code)

Dans la suite du code, on peut alors affecter à wk1 et wk2 toutes les propriétés et méthodes appliquables aux classeurs.

Il est recommandé par ailleurs de vider ces variables en fin de code.

Code :

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

1
2
Set wk1 = Nothing
Set wk2 = Nothing