Discussion :

[Elstak]

coucou,
je viens de remarquer par hasard un petit probleme

voici mon code :

Code :

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

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

[jmfmarques]

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

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 ?

[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

[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

[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.

[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à.

[SfJ5Rpw8]

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 :

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

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 !

[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...)
Je vous laisse faire...