[VBA-E]copie entre classeurs (encore)

Version imprimable

coucou,
je viens de remarquer par hasard un petit probleme

voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 'ajout d'une feuille de calcul portant le nom de la semaine suivante Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "sem" & Sheets.Count - 1 & "" 'ouverture du fichier contenant les données Set source = Application.Workbooks.Open(nom) Workbooks(1).Activate source.Sheets(1).Range("A1:H51").Copy ThisWorkbook.Sheets (Sheets.Count).Range("A1:H51") source.Close ThisWorkbook.Worksheets(1).Activate
Ce code fonctionne bien mais si il y a un autre fichier excel ouvert avant celui où s'execute cette macro, ma feuille créée où sont censées etre copiées les valeurs reste blanche (je n'ai pas ce probleme si un autre fichier excel est ouvert apres, seulement si il est ouvert avant)

Si quelqu'un sait pourquoi, je suis preneur :)

30/03/2006, 09h07
jmfmarques

Je ne connais pas grand chose en VBA mais ...

Citation:

Workbooks(1)

Cet indice 1 : ce ne serait pas celui du 1er classeur, par hasard ?... et donc celui que tu actives .... pui en actives la feuille 1 ? :idea:
30/03/2006, 09h26
Elstak

hehe,
bah c'est bien possible mais ne le mettant pas là j'ai une page blanche meme si aucun autre classeur n'est ouvert :?
30/03/2006, 09h31
Elstak

ahhh ca y'est :)
donc je te confirme t'avais bien raison, j'ai remplacé le "1" par "workbooks.count -1" (le dernier etant celui dont je veux copier les données qui est ouvert) et hop ca marcheee

:) :)
30/03/2006, 09h57
Megaxel

Mais pourquoi ne mets-tu pas directement le nom de ton classeur, au lieu d'un indice dont tu n'es pas forcément sûr?
Avec le nom, aucun risque d'erreur sur le classeur, quel que soit l'ordre et le nombre de classeurs ouverts.
30/03/2006, 11h09
jmfmarques

Merci Mega !
Je revenais précisément pour lui dire que son Résolu ainsi ne me plaisait pas et pour lui parler de la collection WorkBooks.
Je voulais également lui rappeler qu'existait ActiveWorkBook
Ces 2 méthodes étant plus orthodoxes que ce -1 pour ce qu'il veut faire
Tu m'épargnes donc celà. :wink:
30/03/2006, 11h14
SfJ5Rpw8

Citation:

Envoyé par Elstak

ahhh ca y'est :)
donc je te confirme t'avais bien raison, j'ai remplacé le "1" par "workbooks.count -1" (le dernier etant celui dont je veux copier les données qui est ouvert) et hop ca marcheee

:) :)

et tu as déjà une référence sur le dernier ... "Source"

Code:

source.Activate

... sinon tu peu carrément supprimer la ligne qui sert à rien ., car lorsque tu ouvre un classeur, par défaut c'est lui qui est actif !
30/03/2006, 11h25
jmfmarques

Oui, Bbil (bonjour),

Je pense cependant que Elstak devrait profiter de l'occasion qui lui est donnée de sintéresser à la collection WorkBooks, aux noms que l'on peut donner aux classeurs, etc...
Cette petite étude lui permettra, par la suite, de résoudre bien d'autres problèmes, ne serait-ce que pour passer plus agilement d'un classeur à l'autre (en résumé : généraliser...) :wink:
Je vous laisse faire...