Discussion :

[macmun]

Bonjour,

Je souhaite faire un petit programme en VBA sur excel qui irait récupérer plusieurs classeurs (qu'ils soient xls. xlsx ou xlsxm) situés dans un même dossier pour ne faire plus qu'un seul classeur (chaque ancien classeur serait une feuille, les feuilles vides seraient supprimées). Toutes les feuilles de tous les classeurs situés dans le dossier seraient prises en compte et on ne connaitrait pas leur nom à l'avance. Le mieux serait qu'il n'y ait pas de références à ajouter dans la bibliothèques pour qu'un novice puisse utiliser le programme sans faire de manipulation.

J'ai un peu fouillé sur le web mais n'ai pas réussi à adapter les codes trouvés avec ce que je veux faire précisément. Certains auraient des idées ?

Merci d'avance.

Macmun

[pasdechances]

Bonjour,
Pour connaitre le contenu de ton dossier tu peux effecteur un "DIR()"
Cette fonction de permet de savoir se qui se trouve dans le répertoire designer.
En suite il te reste juste a ouvrir le classeur checker les feuilles du classeur avec une for each.
Après il te reste plus qu' a tester une partie de la feuille.
Une fois que tu identifies ce que tu as ou pas tu peux copier ou supprimer la feuille, ect

[Yullll]

Salut, voici un petit code que tu peux adapter si tu le souhaites
Il y a une fenetre qui va te demander le chemin de ton fichier mais si tu connais le lien et qu'il ne va jamais changé mets le tout simplement, aprés Workbooks.Open Filename. Mets un fichier avec ton exemple si tu galère trop

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' Copier les sorties
' Ouvrir un fichier excel et copier une zone de cellules dans une autre
 
Workbooks.Open Filename:=InputBox("Entrez le chemin", "CHEMIN", "Le fichier que tu souhaites ouvrir.xlsx")
  Sheets("Feuil 1").Columns("D:E").Copy 'Mets le nom de ta Feuil et les colonnes que souhaite copier
 
 
Windows("Ton dossier principal.xls").Activate 'mets ton le nom de ton dossier
  Sheets("Sorties S").Select
  Columns("A:B").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False