Discussion :

[Enguerrand.P]

Bonjour,
Je cherche a faire un programme d'archivage de commande pour cela il faut que je copie une feuille excel du classeur "Commandes " vers le classeur "Fs" correspondant au fournisseur sélectionner.
mon problème c'est que je ne sais pas comment fonctionne la fonction move qui permet de déplacer une feuille d'un classeur a un autre et qu'avec la fonction copy sa crée un nouveau classeur "Fs" en suppriment l'ancien.

[_C14_]

Sauf erreur de ma part Move permet de déplacer une feuille dans le classeur et donc de modifier "la chronologie" des feuilles dans le fichier.
Avec un fichier source nommé Origine et un fichier de destination PourTest, il est possible d'utiliser :

Code :

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

1
2
3
4
 
    Sheets("origine").Select
    Sheets("origine").Copy Before:=Workbooks("PourTEST.xlsx").Sheets(1)
    ActiveWorkbook.Save

Ce code rudimentaire ne prend pas en charge l'existence du fichier de destination, ni s'il est ouvert etc, à vous de le prendre en considération, bien cordialement.

[Enguerrand.P]

Re bonjour je vient de faire un essai mais il n'est pas concluant .

Voila le code utiliser

Code :

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

1
2
3
4
5
6
7
8
             If Dir("C:\Historique\" & Année & "\" & Fs & ".xls") <> "" Then
             ' Sinon on y rajoute une feuille
                MsgBox "Ajout d'une feuille de commande au classeur du fournisseur"
                ActiveWorkbook.Sheets("Archive").Copy
                ActiveSheet.Name = "Archive" & "_" & Date_C
                ActiveWorkbook.Sheets("Archive" & "_" & Date_C).Move Before:=Workbooks(Fs & ".xls").Sheets(1)
                ActiveWorkbook.Save
              End If

merci d'avoir pris le temps de me lire

Re bonjour ,
J'ai essayer de le faire avec lenregistreur de macro .

Voila le code obtenu

Code :

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

1
2
3
4
5
6
7
8
 
         If Dir("C:\Historique\" & Année & "\" & Fs & ".xls") <> "" Then
             ' Sinon on y rajoute une feuille
                MsgBox "Ajout d'une feuille de commande au classeur du fournisseur"
                Sheets("Archive").Select
                Sheets("Archive").Copy After:=Workbooks("Accent bio.xls").Sheets(1)
                Sheets("Archive").Select
                Sheets("Archive").Name = "Archive_10_05_2013"              End If

mon soucis c'est qu'il me dit toujour que sa n'appartient pas a la sélection.

[SfJ5Rpw8]

Bonjour,

R..
mon soucis c'est qu'il me dit toujour que sa n'appartient pas a la sélection.

sur qu'elle ligne ?



sinon le but c'est souhaité c'est quoi Déplacer ? copier ? renommer ? la feuille "Archive" ?

[Enguerrand.P]

Bonjour
le message apparait pour la ligne 6

Code :

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

Sheets("Archive").Copy After:=Workbooks("Accent bio.xls").Sheets

Le but et de copier une page de commande avec toute c'est information du classeur"commande" vers le classeur "Fournisseur"

[SfJ5Rpw8]

j'ai encore du mal avec de détail , tu parle d'une feuille "commande" ? et d'un classeur "Fournisseur" et je ne les vois pas dans ton code ?

en considérant que la feuille commande à copier est la feuille "Archive" du classeur contenant ta macro

et tu veux copier celle-ci dans le classeur "Accent bio.xls" déjà ouvert manuellement ..

Code :

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

1
2
3
Dim wkDest As Workbook 'Classeur destinaire
   Set wkDest = Workbooks("Accent bio.xl")
   ThisWorkbook.Worksheets("Archive").Copy After:=wkDest.Sheets(wkDest.Sheets.Count)

[Enguerrand.P]

Bonjour ,
J'ai un classeur "Commande" qui contient mes donnée fournisseur mes fiche de commandes est le systé qui envoi ou imprime une fiche commandes.

maintenant je cherche a crée un systéme d'archivage de ses fiche commandes dans :
C\Historique\Année(en cour)\Fs(fournisseur sélectionner.xlsx)

si le répertoire est vide il crée bien le classeur Fs.xlsx
mais si le classeur éxiste il ne veut pas copier la fiche de commande (ici "Archive") dans le classeur Fs.xlsx

j'ai cherche a le faire avec l'enregistreur de macro mais je n'ai pas eu de succée.