Discussion :

[emelfr]

Bonjour,

J'aimerai crée une macros qui me selectionne un certain nombre de fichier excel dont les titres de mes colonnes sont tous identiques mis a part le contenu et qu'il me le rassemble dans un seul fichier.

Ex si j'ai trois fichiers excel qui vont de A à Z, et que :

fichier 1= 30 lignes de données
fichier 2= 40 lignes de données
fichier 3= 90 lignes de données

je veut que dans un fichier X, il me mette :

Fichier X de a à z avec un total de 160 données

Savez vous comment je peut faie cela ?

Merci d'avance,
emel

[Pierre845]

Regardes du côté des objets workbooks & worksheets ainsi que la fonction GetObject.

Ensuite c'est du copier/coller.

[emelfr]

Salut,

Je suis une debutante en macros.

J'ai pas vraiment compris ce que tu as essyé de me dire ...

A+
Emel

[astorix]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub CHERCHER_LA_COLONNE_DANS_LE_FICHIER()
' petit programme pour ouvrir un fichier B depuis un fichier A de base,copie de cellules de B puis collage dans A.
 
Dim derniereligne As Integer
derniereligne = Range("A2").End(xlDown).Row
 
Dim fileName As String
fileName = toto
 
    ChDir "C:\Users\Martin\Desktop\TESTEXCEL\ENTREE"
    Workbooks.Open fileName:="C:\Users\Martin\Desktop\TESTEXCEL\ENTREE\" & fileName
 
'maintenant tu est dans le fichier dont le nom est filename
 
Application.DisplayAlerts = False  '(pour supprimer les alertes indesirées)
    Range("O5:EK5").Select
    Selection.Cut
    ActiveWindow.Close SaveChanges:=False
'la ligne du dessus permet de fermer le fichier de nom filename
'a partir de maintenant tu est à nouveau dans le fichier courant
 
    Cells(derniereligne+1, 2).Select
    ActiveSheet.Paste
 
Application.DisplayAlerts = True  '(pour rétablir les alertes)
 
End Sub

Essaie de enregistrer une macro ou tu fais ce que tu veux.
J'ai fais comme ça et ca m'a bien servi je l'avoue.
Bonne chance.

[laetitia]

bonjour emelfr Pierre astorix le forum comme cela pas facile de voir
combien excatement de fichier. sont t il tous dans le meme repertoire il faut les mettre a la suite dans le fichier x a developper

salutations