Discussion :

[Lambersart59]

Bonjour,

Je suis à la recherche d'un code pour archiver une feuille Excel sous un répertoire défini, et dès que l'archives est faite la feuille se supprime du dossier "Maitre".

Je m'explique :
J'ai un fichier Excel "Maitre" avec plusieurs feuilles, sur chaque feuille "Nom salarié" il y a un bouton pour l'archivage.
Lorsque le salarié quitte l'entreprise, on doit archiver sa fiche dans son dossier et supprimer cette dernière du dossier "Maitre".

Pourriez-vous m'aider

[halaster08]

Bonjour,

Allume l'enregistreur de macro
Clic droit sur le nom de la feuille, déplacer ou copier, copier dans un nouveau classeur
Sauvegarde le classeur a l'endroit voulu
Eteint l'enregistreur de macro
Un peu de ménage dans le code obtenu et c'est fini.

[Lambersart59]

Bonjour,

Allume l'enregistreur de macro
Clic droit sur le nom de la feuille, déplacer ou copier, copier dans un nouveau classeur
Sauvegarde le classeur a l'endroit voulu
Eteint l'enregistreur de macro
Un peu de ménage dans le code obtenu et c'est fini.

Bonjour est merci de votre conseil,

Mais cela ne m'aide pas vraiment, j'aurais vraiment besoin d'un code en VBA plus détailler, si cela est possible.

Merci par avance.

[halaster08]

Mais cela ne m'aide pas vraiment, j'aurais vraiment besoin d'un code en VBA plus détailler, si cela est possible.

Si tu fait les manip "à la main", ce qui n'est pas très compliqué, l'enregistreur de macro va te le donner le code.
Désolé mais je ne ferais pas tout le travail à ta place.

[Menhir]

Pour extraire une feuille d'un classeur et en faire un nouveau classeur, utilise la méthode Move sur l'objet Worksheet de la feuille concernée, sans mettre de destination.
https://msdn.microsoft.com/fr-fr/lib.../ff834742.aspx

La feuille en question devient le classeur actif (ActiveWorkbook).
Tu n'as plus qu'à le sauvegarder avec un SaveAs.
https://docs.microsoft.com/fr-fr/off...orkbook.saveas
et à le fermer avec un Close.

[BENNASR]

bonjour
quelque chose comme ça à tester
dans ce code écrire ARCHIVE dans K1 de la feuille à archiver
Attention c'est le travail d'un débutant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ArchiverFicheEmployé()
Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, fichier As String
Dim j As Long
Application.ScreenUpdating = False
Set wkA = ThisWorkbook
 
 
 For i = 1 To wkA.Worksheets.Count
        If wkA.Worksheets(i).Name <> "Menu" And wkA.Worksheets(i).Range("K1") = "ARCHIVE" Then
 
            chemin = "Z:\TRAVAUX COMPTABLES BNA\Controle de Gestion\" 'à adapter
            fichier = "RAPPORT JOURNALIER.xlsx" ' à adapter
            Workbooks.Open chemin & fichier
            Set wkB = ActiveWorkbook
            wkA.Worksheets(i).Move After:=wkB.Sheets(Sheets.Count)
        End If
    Next i
 
 
wkB.Close True
 Application.ScreenUpdating = True
End Sub