copie 4 onglets via vba

[VINCEGR]

bonjour le forum,😀

j'ai un fichier excel contenant plusieurs onglets avec des calculs dont :

1) saisie données
2)facture
3)révisions
4)tableau révisions
5)devis
6)données devis
7)....


actuellement, je copie mon fichier à chaque nouvelle facture ce qui alourdit mes fichiers l'onglet données devis et tableau révision étant "lourd".
je souhaite faire une copie dans un nouveau fichier des 4 onglets (1 - 2 - 3 - 5) via une procédure vba pour ne conserver que les infos nécessaire aux factures établies

si je fait une copie des onglets dans un nouveau dossier il existe toujours le lien qui modifie les calculs à chaque ouverture et modifie mes factures (donc pas fiables et dangereux)😕

merci d'avance
VinceGR 🙂

 

[sousou]

Re : copie 4 onglets via vba

Bonjour Vincegr
Si je comprends bien,
Ta procédure doit faire une copie de tes onglest sans les formules.
Tu utilise dans ce cas la méthose colage spécial , des valeurs, puis des formats
Tua uras ainsi un nouveau calsseur sans lien ni formule.

 

[VINCEGR]

Re : copie 4 onglets via vba

BONJOUR SOUSOU,

je souhaite une macro pour en un seul clic copie dans nouveau fichier ce qui serait plus simple pour une utilisation à plusieurs.

@+
VinceGR

 

[sousou]

Re : copie 4 onglets via vba

RE

Bien sur un seul click
Copy et collage spécial de chaque feuille sur un nouveau calsseur.
Mais ou en es-tu?
envoi un exemple si possible pour voir

 

[VINCEGR]

Re : copie 4 onglets via vba

re
oui je suis d'accord mais je souhaite automatiser une fonction pour rendre plus accessible classeur model.
et mon idée était de créer une macro qui copierai les onglets souhaités dans un nouveau classeur sans passer par collage spécial (si oubli modification des données).
VinceGR

 

[sousou]

Re : copie 4 onglets via vba

Re
j'avoue ne pas bien te suivre.

Si tu n'utilises pas le collage spécial tu conserves les formules et liens, et c'est ce que tu ne veux pas

 

[VINCEGR]

Re : copie 4 onglets via vba

justement en créant une macro qui copie les feuilles sans les formules j'obtient le résultat escomptés.🙂
mais voila je ne sais pas créer cette macro😕

 

[sousou]

Re : copie 4 onglets via vba

re
Sans exemple difficile de t'expliquer!

 

[VINCEGR]

Re : copie 4 onglets via vba

Bonjour le forum,🙂

j'ai trouvé comment effectué une copie des onglets via macro :

Public Sub copieonglet()
Sheets(Array("Rapports", "Donnees")).Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\Mes documents\Copie.xls"

End Sub

mais je souhaiterais qu'il me demande le nom du fichier pour nom.

que dois-je rajouter à ma macro comme indication😕
merci d'avance
VinceGR

 

[VINCEGR]

Re : copie 4 onglets via vba

bonjour le forum,
comment rajouter dans un code vba la demande du fichier à créer par rapport au code ci-dessus ?
merci d'avance
VinceGR

 

[camarchepas]

Re : copie 4 onglets via vba

Public Sub copieonglet()
dim NomFichier as string
NomFichier = InputBox("Nom de la copie de sauvegarde", "ATTENTE APPLICATION", "Sauvegarde du " & Replace(Date, "/", "_")) & ".xls"
Sheets(Array("Rapports", "Donnees")).Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\Mes documents\" & NomFichier

End Sub

 

[VINCEGR]

Re : copie 4 onglets via vba

bonjour nono,
merci,
merci,
et encore merci
c'est top😀
@+
VinceGR