Discussion :

[Rob's]

Bonjour à tous,

Je cherche à copier les données de la feuille "Saisie" de 2 classeurs ("MC_Expédition" et "MC_Plastique") en .xlsm dans un nouveau classeur nommé Archive en .xls

J'ai essayé pleins de méthodes mais, sans aboutir...
Je fais donc appel à vous pour m'aider dans ma démarche!!

En pièce jointe, les documents concernés et voici les lignes de programme qui nous intéresse:

Code :

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

1
2
3
4
5
6
Sub CopySaisieVersClasseur()
  Sheets("Saisie").Copy
  chemin = "\\Gpao\commun\30_QUALITE\\307_Gestion_de_service"
  ClasseurCible = "Archive.xls"
  ActiveWorkbook.SaveAs chemin & ClasseurCible
End Sub

Merci pour votre aide!

[Philippe Tulliez]

Bonjour,
Le plus simple est d'utiliser l'enregistreur de macros qui va te générer le code qu'il te suffira ensuite d'adapter
Après avoir sélectionné les deux feuilles à copier, tu enclenches l'enregistreur de macros.
Puis clic droit, Copier ou déplacer..., cocher Créer une copie et sélectionner Nouveau classeur dans la liste déroulante.
Le code généré pour deux feuilles nommées [Ex 5 - Texte] et [D - Date]

Code :

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

1
2
3
4
5
Sub Macro1()
    Sheets(Array("Ex 5 - Texte", "D - Date")).Select
    Sheets("Ex 5 - Texte").Activate
    Sheets(Array("Ex 5 - Texte", "D - Date")).Copy
End Sub

Le code à garder

Code :

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

1
2
3
Sub Macro1()
   Sheets(Array("Ex 5 - Texte", "D - Date")).Copy
End Sub

[Rob's]

Bonjour Philippe Tulliez,

Je n'arrive pas à faire ton application...
Peux-tu, grace aux documents en pièce jointe du message précédent, me faire l'application stp.

Merci, par avance pour ton aide.

[Philippe Tulliez]

Bonjour,
Lire le message complètement

Le plus simple est d'utiliser l'enregistreur de macros qui va te générer le code qu'il te suffira ensuite d'adapter

As-tu utilisé l'enregistreur de macros ?

[Rob's]

Oui et c'est justement ça que je n'arrive pas à faire:

Après avoir sélectionné les deux feuilles à copier, tu enclenches l'enregistreur de macros.

==> C'est bon

Puis clic droit, Copier ou déplacer..., cocher Créer une copie et sélectionner Nouveau classeur dans la liste déroulante.

=> Je ne trouve pas sa! Quand j'appuis sur "Enregistrer une macro", je n'ai pas ces options. Juste l'encadré ou tu rentres le nom de la macro, le raccourci et la description...

Je fais qqch de mal mais je ne sais pas quoi...

Eclaire moi car, je débute et suis vraiment perdu!

[Philippe Tulliez]

Bonjour,

Puis clic droit, Copier ou déplacer..., cocher Créer une copie et sélectionner Nouveau classeur dans la liste déroulante. => Je ne trouve pas sa! Quand j'appuis sur "Enregistrer une macro", je n'ai pas ces options. Juste l'encadré ou tu rentres le nom de la macro, le raccourci et la description...

Désolé, j'ai oublié de préciser qu'une fois l'enregistreur enclenché, le clic droit se fait sur l'onglet de la feuille (Pour obtenir le menu contextuel permettant de sélectionner les différentes actions possibles sur la ou les feuilles et entre autres Copier et déplacer...)

[Rob's]

Bonjour,

Merci pour cette précision.
Je viens de tester mais, quand je modifie mes fichiers sources, les modifications n'apparaissent pas dans mon fichier "Archive".

Je t'ai mis en pièce jointe mes documents, si tu peux regarder et me dire ou est mon erreur se serai sympas!

Merci, par avance, pour ton aide

[Invité]

tu veux faire une macro que copie colle tes onglet dans le fichier archive.
ou tu veux que le fichier archive soit lier avec la source.

car bien sur si c'est la première solution, les modifications effectuées après l'exécution de la macro, ne seront pas prise en compte

[Rob's]

Bonjour rdurupt,

Je veux une macro qui copie colle mes onglets "Synthese" de mes 4 fichiers source dans un autre fichier excel nommé "Archive".
De plus, à chaque changement apporté à mes fichiers sources, je veux que ces modif apparaissent dans "Archive".

Si la méthode testée n'est pas appropriée, comment faut il procéder?

Merci, par avance, pour l'aide que tu m'apporteras.