Discussion :

[ash_rmy]

Bonjour tout le monde,

voici mon souci : j'ai un dossier contenant des classeurs excel qui ont tous des lignes d'enregistrements sur leur première feuile - je voudrais créer un classeur excel qui me copie un à la suite des autre tout ces enregistrements de ces classeurs.

je n'y arrive pas du tout - merci de m'aider.

j'ai crée mon classeur :

Code :

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

1
2
3
4
5
6
Set classeur = Application.Workbooks.Add
 
With classeur
.SaveAs "Z:\Construction"
Windows("Construction.xls").Activate
End With

j'ai en fait besoin d'aide pour finir ce début de programme :

Code :

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

1
2
3
ChDir "Z:\IMPORT 1"
monfichier = Dir("*.*")
While monfichier <> ""

merci de votre aide.

ash.

[SilkyRoad]

bonjour

tu peux déja tester cette procédure pour boucler sur les classeurs d'un répertoire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Fichier As String, Repertoire As String
Dim Wb As Workbook
 
Repertoire = "Z:\IMPORT 1"
Fichier = Dir(Repertoire & "\*.xls")
 
Do While Len(Fichier) > 0
    Set Wb = Workbooks.Open(Repertoire & "\" & Fichier)
    '
    '...
    '
    Wb.Close False
    Fichier = Dir()
Loop

michel

[ash_rmy]

merci SilkyRoad ! grâce à ton bout code j'ai pu finir le programme.