Discussion :

[david71]

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.

[Gorfael]

Salut david71 et le forum

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 :

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

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

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+

[david71]

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 ?

[Didier Gonard]

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)

.../... 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

[fring]

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 :

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

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
.

[david71]

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 :

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

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