Discussion :

[fra7878]

Dans ce cas, dois-je ouvrir les deux fichiers via VBA pour faire cette meme operation?

[LaTeXLover]

A ton avis?
Indication: tu as déjà essayé en n'en ouvrant qu'un seul, tu as eu des problèmes.

[fra7878]

Avant tout, bonjour et merci pour tes lumières

En effet, il faut ouvrir les deux...

J'avance pas à pas vers ce que je voudrais obtenir au final, là j'aimerais transformer ce script en vbs, est-ce possible selon toi?
Histoire de lancer la copie sans forcément devoir ouvrir manuellement les fichiers.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Sample()
    Set WB1 = Workbooks.Open("D:\Book1.xlsm")
    Set WB2 = Workbooks.Open("D:\Book2.xlsx")
    Application.DisplayAlerts = False
    WB2.Sheets(Array("Deux", "Quatre", "Cinq")).Delete
 
    WB1.Sheets(Array("Deux", "Quatre", "Cinq")).Copy WB2.Sheets(2)
    WB2.Save
    WB1.Close
    WB2.Close
End Sub

[LaTeXLover]

Jamais fait de vbs, je ne pourrai pas t'aider.
je suggère de rajouter un Application.DisplayAlerts = True à la fin, pour revenir au paramétrage initial

[fra7878]

Merci pour ton aide

[LaTeXLover]

Pour info, je suis allé voir un peu... vbscript avec des sheets, j'ai de très sérieux doutes.
Et mon dieu que c'est crade vbscript! Dommage j'aurais pu m'en servir...