Exporter une feuille dans un autre classeur selon le nom de la feuille

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Exporter une feuille dans un autre classeur selon le nom de la feuille

elodrim

Bonjour,

voila petit débutant dans le monde du VisualBasic, et pour ces débuts plus particulièrement du VBA, je me lance dans les macros afin d'optimiser et automatiser mes données/tableaux Excel de stage.

Jusque là j'arrive à me dépatouiller en farfouillant la toile, cependant je me trouve face à un mur que je n'arrive aps à franchir.

(rentrons dans le sujet)

Je dispose d'un classeur excel comprenant une feuille "data" dont j'extrait pour chaque ligne (produit) un certains nombres de variables que je référence dans une nouvelle feuille (par produit) sous un tableau. J'ai réussi à crééer une maccro pour automatiser tout ca et ca marche plutot bien (même si un "puriste" serait surement un peu dégouté de mon code" ).

Mon problème étant qu'à présent j'aimerais enregistrer(ou copier) chaque feuille dans un autre classeur, et ce selon une cellule de cette feuille (à savoir le type de produit). Pour se faire je me suis dis que j'allais nommer chaque feuille (lors de la création) selon leur type, ainsi j'obtiens un certains nombre de feuille selon ce schéma :
SPOT1, SPOT2, SPOT3...
WALL1, WALL2, WALL3...
ACC1, ACC2, ACC3...

Cependant je n'ai pas encore trouvé comment exporter une feuille d'un classeur à un autre, et je ne sais pas non plus comment sélectionner une partie du nom de la feuille afin de différencier les feuilles dans des classeurs différents... (ceci étant dis je m'y prend peut être mal dans ma méthode).

Si quelqu'un pouvais m'éclairer sur :
-l'exportation d'une feuille vers un autre classeur
-la sélection d'une feuille selon une partie de son nom

Merci beaucoup d'avoir pris connaissance de mon problème, et merci encore plus si une aide m'est proposé.

Peace.

Publicité

Arcbitre

J'aime ben ça moi, c'est bon!

Bonjour,

Un bout de solution, pour copier une feuille d'un classeur à l'autre. Les 2 classeurs sont ouverts dans Excel.

Code :

Sub test()
Dim objWbk As Workbook
Dim objSht1 As Worksheet, objSht2 As Worksheet
' Selection de la feuille source du classeur actif par son nom.
' (feuille à copier)
Set objSht1 = ThisWorkbook.Worksheets("Data1" )
' Classeur destination
Set objWbk = Application.Workbooks("Classeur2.xls" )
' Feuille destination
Set objSht2 = objWbk.Worksheets("Data2" )
' Copie de la feuille.
objSht1.Copy before:=objSht2
End Sub

Pour la sélection d'une feuille par une partie de son nom, voilà une ébauche de solution à adapter:

Code :

For Each objSht1 In Worksheets
If InStr(1, objSht1.Name, "SPOT", vbTextCompare) > 0 Then
' Je suis sur une feuille dont le nom commence par SPOT
......
End If
Next objSht1

Et moi, je suis en vacances pour une semaine. :bounce:

elodrim

Merci beaucoup, j'vais regarder ça =)

Bonne vacance, je t'envie... Rien pour moi avant le 26 juin xD

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Exporter une feuille dans un autre classeur selon le nom de la feuille

Sujets relatifs
Problème feuille de style CSS	macro permettant de créer un nombre de feuille suivant une cellule
Excel: Macro pour créer un TCD sur une autre feuille?	Exporter un tableau Excel 2007 vers Access
[Résolu] Perte de feuille de style sur changement de page	Transfert de données d'une feuille excel vers un tableau VBA
Petit problème à corriger sur feuille de style css	Application tardive feuille de style sous FF
Liaison cellules / classeur différent	Quelques petites modifications à appliquer sur ma feuille de style CSS
Plus de sujets relatifs à : Exporter une feuille dans un autre classeur selon le nom de la feuille

Page générée en 0.047 secondes