Copie par Macro d'une feuille précise d'un autre classeur?

[YANN-56]

Bonsoir ou Bonjour à ceux qui passeront par là,

Pour l'instant, j'utilise:

Private Sub CommandButton1_Click()

Sheets.Add after:=Worksheets(Worksheets.Count), Type:= _
ThisWorkbook.Path & "\MATRICES.xls"

End Sub

Je ne sais que copier toutes les Feuilles du classeur "MATRICES"!!!

Ce Classeur en contient deux:
1) FICHE_FOURNISSEUR
2) FEUILLE_COMMANDE

Je cherche à n'ajouter que l'une ou l'autre de celles-ci.

A noter qu'elles ont chacune une mise en forme spécifique,
avec Commentaires ou Images, et que ce mode de copie est
parfait, à présent, quant au contenu et la mise en page.

Merci d'avance à celle ou celui qui pourra m'aider.

Bonne soirée ou bonne journée suivant l'heure.

YANN-56

 

[Pierrot93]

Re : Copie par Macro d'une feuille précise d'un autre classeur?

Bonjour yann

essaye peut être en ouvrant / fermant le classeur où se trouve la feuille à copier :

Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\MATRICES.xls")
With Workbooks("classeurdestination.xls")
    wb.Sheets("nomdelafeuille").Copy after:=.Worksheets(.Worksheets.Count)
End With
wb.Close False

bonne soirée
@+

 

[YANN-56]

Re : Copie par Macro d'une feuille précise d'un autre classeur?

Bonsoir Pierrot,

J'ai déja tenté, par ailleurs, avec cette méthode.

Mes plantages étaient certainement issus
d'erreurs de syntaxe.

Je soupçonne que tu me donnes ici une bonne solution.
Je vais construire autour de ce que tu me dis.

Merci en tous les cas d'avoir pris la
peine de me répondre.

Je reviens après mes tests.

A dans quelques instants.

YANN-56

 

[YANN-56]

Re : Copie par Macro d'une feuille précise d'un autre classeur?

Re à toi Pierrot,

Grand Merci c'est super efficace. Bravo!!!

Au passage, je suis un peu jaloux de ne pas encore
pouvoir aider ici avec le peu que je sais.

Pour l'anecdote: En Cadet foot du Morbihan:
Un arrière "Pierrot" et moi, ont s'est fichu sur la tronche
des trucs qui font des cernes mauves. (Tu piges)

Sa passe était vrillée, et ma réception en quenouille.
L'engueulade a été sévère: d'où ce qu'il en avait suivi.

Et depuis quarante ans nous sommes les meilleurs amis.

Merci pour ta passe, le but est dedans!

Bonne fin de soirée à toi

YANN