Discussion :

[papilou86]

Bonjour,

J'aimerai, si possible avoir une explication sur l'erreur de fonctionnement suivant :

Si j'écris ceci, ca fonctionne

Code :

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

1
2
3
 
a = Sheets.Count
Sheets("Feuil1").Copy After:=Workbooks(nomfichier).Sheets(a)

Si j'écris cela, ça me provoque l'erreur 9 (l'indice, n'est pas dans la sélection)

Code :

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

1
2
 
Sheets("Feuil1").Copy After:=Workbooks(nomfichier).Sheets(Sheets.Count)

Merci de vos réponses....

[Philippe Tulliez]

Bonjour,
Sans avoir testé, je ne vois pas la raison du mauvais fonctionnement de la deuxième procédure par rapport à la première
En revanche il y a un problème dans votre instruction Sheets.count parce-que vous n'avez pas précisé son parent (le classeur) or d'après votre ligne de code, la feuille source ne se trouve pas dans le même classeur que la cible donc si le nombre de feuille n'est le même, il y aura forcément une erreur.

Ce code irait mieux (non testé)

Code :

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

1
2
3
With Workbooks(nomfichier)
  Sheets("Feuil1").Copy After:=.Sheets(.Sheets.Count)
End With

En supposant que la feuille nommée feuil1 se trouve dans le classeur actif (il est bien entendu préférable de préciser son parent (le classeur ThisWorkbook ?)

[papilou86]

Oui, en effet, dans mon programme, j'ai bien le classeur actif qui contient la Feuil1

l'autre classeur est ouvert mais pas actif

Ca donne quelque chose comme cela :
celui-ci fonctionne

Code :

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

1
2
3
4
5
6
 
Workbooks.Open (chemin & "\" & nomfichier)                                         'on ouvre le fichier excel de sauvegarde
a = Sheets.Count
Workbooks("météo.xlsm").Activate                                                         'j'active le fichier qui contient Feuil1 à copier
Sheets("Feuil1").Select                                                                          ' sélection de la feuille qui possède les données
Sheets("Feuil1").Copy After:=Workbooks(nomfichier).Sheets(a)                'On copie la feuil origine dans le fichier de sauvegarde

Celui la ne fonctionne pas

Code :

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

1
2
3
4
5
6
 
Workbooks.Open (chemin & "\" & nomfichier)                                         'on ouvre le fichier excel de sauvegarde
 
Workbooks("météo.xlsm").Activate                                                         'j'active le fichier qui contient Feuil1 à copier
Sheets("Feuil1").Select                                                                          ' sélection de la feuille qui possède les données
Sheets("Feuil1").Copy After:=Workbooks(nomfichier).Sheets(Sheets.count)                'On copie la feuil origine dans le fichier de sauvegarde

Merci encore, je vais tester vos solutions

[papilou86]

Enfin, j'ai compris l'erreur.

Le "Sheets.Count" qui se trouve en fin de la ligne copie, ne compte pas les feuilles du classeur cible, mais bien celui du classeur source.
Ceci explique bien que, si le nombre de feuilles dans le classeur source est supérieur au nombre de feuille du classeur cible, il ne peut pas faire la copie.

Merci encore
Je ferme ce fils de discussion, je mets résolu.