Discussion :

[fra7878]

Bonjour,

Voici ce que j'aimerais pouvoir faire:

J'ai un fichier source qui contient 10 feuilles et j'aimerais copier (régulièrement) uniquement 3 de ces feuilles vers un fichier de destination qui existe déjà (donc écraser le contenu des 3 feuilles existantes)

J'ai essayé quelque chose du style:

Code :

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

1
2
3
 
ThisWorkbook.Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs "D:\Book2.xlsx", FileFormat:=51

Mais je voudrais copier plusieurs feuilles.

Merci pour vos lumières.

[LaTeXLover]

Possibilité 1 : delete les feuilles préexistantes et après sheets(array(1,2)).copy workbooks(machin).sheets(truc).
Possibilité 2 : sheets(dest).usedrange.delete, puis en boucle sheets(orig).usedrange.copy : sheets(dest).pastespecial

[fra7878]

La possibilité 1 me convient.

Comment fait-on si les feuilles à copier ne se suivent pas dans le fichier d'origine?

Par ex: J'ai besoin de la Feuille4, la feuille7 et la feuille9

Ceci fonctionnerait?

Code :

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

sheets(array(4,7,9)).copy workbooks(Book2).sheets(Feuille1)

[LaTeXLover]

Bah tu mets array("Feuil1","Feuil5") etc... Les numéros ou les noms
Et oui ça marcherait (avec les "")

NB: sheets(6) n'est pas forcément sheets("Feuil6").

[fra7878]

En codant ceci, j'obtiens une run-time error (object required):

Code :

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

1
2
3
Sub Sample()
    Sheets(Array("2", "4", "5")).Copy Workbooks(Book2.xlsx).Sheets(1)
End Sub

Merci

[LaTeXLover]

"1" c'est si la feuille se nomme "1"
1 c'est si c'est la première feuille

[fra7878]

Merci pour la précision mais comment se fait-il que j'ai toujours un message d'erreur en codant ceci:

Code :

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

1
2
3
Sub Sample()
    Sheets(Array("2", "4", "5")).Copy Workbooks("Book2.xlsx").Sheets(1)
End Sub

Je suis censé prendre les feuilles nommées 2, 4 et 5 et à partir de la 1ère feuille du tableur book2.xlsx, ce n'est pas ça?

[LaTeXLover]

Tu as des feuilles nommées "2","4" et "5"? J'ai testé sur mon poste, ca fonctionne nickel. Si c'est "Feuille1", mets bien "Feuille1"
NB : le workbook de référence est le workbook actif. Si c'est un autre rajoute un workbooks(machin) devant.

[fra7878]

Voici un screenshot

[LaTeXLover]

Essaye avec un
thisworkbook.
devant. C'est bizarre, il ne trouve pas une des feuilles. L'autre workbook est ouvert? Et le workbook actif était le bon?

[fra7878]

Oui, c'est bizarre car l'autre workbook n'est pas ouvert et celui actif est le bon

[LaTeXLover]

Donc tu colles dans un workbook non ouvert et tu te demandes pourquoi il ne trouve plus où tu pointes?

[fra7878]

En effet, ça marche beaucoup mieux quand le fichier est ouvert

Le hic, c'est que j'aimerais qu'il écrase la feuille existante dans le fichier de destination à chaque copie et pas qu'il en crée une nouvelle du genre "Feuille2 (2)"

[LaTeXLover]

Possibilité 1 : delete les feuilles préexistantes et après sheets(array(1,2)).copy workbooks(machin).sheets(truc).

supprime les toi même

[fra7878]

sheets(dest).usedrange.delete, puis en boucle sheets(orig).usedrange.copy : sheets(dest).pastespecial

dest = Fichier ou feuille de destination?
usedrange = l'ordre des feuilles?
orig = Fichier ou feuille d'origine?

Merciiiiiiiiiiiiiiiiiiiiiiiiiii

[LaTeXLover]

Pour ton cas il te manque plus qu'un

Code :

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

Workbooks("Book2.xlsx").Sheets(Array("2", "4", "5")).delete

Les deux: workbooks(fichier destination).sheets(le nom de la feuille).

usedrange c'est le range dans une feuille qui est utilisé. Oublie, tu prends la solution 1.

[fra7878]

En effet, ça marche nickel mais il y a une confirmation de suppression qui est affichée.

N'y a-t-il pas moyen de supprimer cette confirmation?

[LaTeXLover]

Code :

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

application.displayalerts=false

ton code

Code :

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

application.displayalerts=true

[fra7878]

Top!

Une autre question me turlupine:

Si je veux faire ça de manière automatique (sans ouvrir les fichiers au préalable), comment pourrais-je le faire?

T'es un crack! Merci!

[LaTeXLover]

Impossible. Par contre tu peux les ouvrir et les fermer via VBA:

Code :

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

1
2
3
set WB=workbooks.open(path)
WB.sheets().copy etc...
WB.close