Lecture de fichier par onglets spécifiques

Bonjour,

J'ai besoin de réaliser les actions suivantes avec des macros EXCEL mais je me pose quelques questions, notamment :

1. Comment lire uniquement toutes les feuilles d'un fichier EXCEL qui ne commence que par un nom donné, exemple : RECAP_.
2. Comment exporter automatiquement le contenu d'une nouvelle feuille qui contiendrait les données regroupées de toutes les feuilles RECAP_ dans un fichier EXCEL ?

Merci d'avance pour toute information complémentaire.

Salut david71 et le forum

Citation:

---

1. Comment lire uniquement toutes les feuilles d'un fichier EXCEL qui ne commence que par un nom donné, exemple : RECAP_.

---

une idée du bout de code

Code:

---

1 2 3 4 5

For each F in Sheets If F.Name like "RECAP_*" then 'le traitement des feuilles F commençant par RECAP_   Endif Next F

---

Citation:

---

2. Comment exporter automatiquement le contenu d'une nouvelle feuille qui contiendrait les données regroupées de toutes les feuilles RECAP_ dans un fichier EXCEL ?

---

Ne comprenant pas la question, je suis bien en peine d'y répondre
A+

Salut Gorfael,

Merci pour la première réponse.

Disons que j'ai 5 feuilles Excel dans le même fichier et que j'en crée une nouvelle (soit à la main soit via macro).

Dans la sixième feuille je vais m'arranger pour regrouper toutes les données des 5 autres feuilles. Une fois cela fait : je voudrais créer un nouveau fichier EXCEL qui ne contienne que la dernière feuille rajoutée, ceci via macro.
Est-ce faisable ?

Bonsoir,
Tu as donc en final un classeur qui contient 6 feuilles et tu veux ne retenir que la dernière qui est une consolidation des 5 autres.
une piste :

Une fois ta feuille 6 construite, par macro, tu sauvegardes le classeur entier sous le nouveau nom qu'il aura avec sa feuille unique (sans le fermer)
tu delete les 5 feuilles inutiles (cf aide vba à Delete justement)

Citation:

---

.../... Cet exemple montre comment supprimer la feuille de calcul Sheet3 du classeur actif sans afficher la boîte de dialogue de confirmation.

Application.DisplayAlerts = False
Worksheets("Sheet3").Delete
Application.DisplayAlerts = True

.../...

---

tu sauvergades ton classeur en le fermant (toujours en vba).

cordialement,

Didier

Bonjour tlm,

Il existe aussi une solution pour créer un classeur qu'avec une seule feuille (dans ce cas ci la dernière feuille) sans devoir supprimer, dans ce nouveau classeur, les autre feuilles inutiles par la suite

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Application.ScreenUpdating = False   Sheets(Sheets.Count).Copy With ActiveWorkbook .SaveAs "C:\toto.xls" .Close End With   Application.ScreenUpdating = True End Sub

---

yapluka aller voir sur le disque C ;)
.

Pour reprendre étape par étape ce que je fais.

J'essaie de copier une plage de cellule d'une feuille vers une autre.
Or il se trouve que j'ai le problème suivant :

* La copie ne met pas les données sur la feuille cible à l'endroit où je veux
* Cette sélection ne sélectionne pas la plage souhaitée (je souhaite une sélection des cellules C7 à C17)
* Je perds le contenu de mes cellules à la copie (en effet les cellules sources contiennent déjà des formules)

Voilà le code utilisé :

Code:

---

1 2 3 4 5 6 7 8

Sub Macro3() ActiveCell.Range("C7:C17").Select Selection.Copy Sheets("TEMP").Select ActiveCell.Select ActiveSheet.Paste End Sub

---

Bon ça avance, j'arrive à copier d'une feuille vers une autre mais le contenu copié sur l'autre feuille ne contient pas les bonnes valeurs, ci-dessous le code :

Code:

---

1 2 3 4 5 6 7

Sheets("RECAP ESTIMATION CA 2007").Select Range("C7:C17").Select Selection.Copy Sheets("TEMP").Select Range("B2").Select ActiveSheet.Paste

---

Les valeurs copiées dans la cellule B2 ne sont pas bonnes.
Merci pour toute information complémentaire.

Bonjour,

Si les cellules copiées contiennent des formules, tu dois faire un collage spécial valeur

Code:

---

1 2 3

Sheets("RECAP ESTIMATION CA 2007").Range("C7:C17").Copy Sheets("TEMP").Range("B2").PasteSpecial Paste:=xlValues Application.CutCopyMode = False

---

et...on peut se passer des multiples "Select"
.