Discussion :

[SUZYLEE]

Bonjour,

J'ai effectué une recherche avant de poster, mais rien ne semble correspondre précisément à ce que je recherche.

J'ai plusieurs classeurs .xls qui sont dans un dossier appelé "copie".
Je souhaiterais récupérer le premier onglet de chacun de ces classeurs, créer un nouveau classeur, et que tous les ongles récupérés soient des onglets distincts dans ce nouveau classeur créé (i.e. je ne veux pas une seule et même feuille).
Quelqu'un pourrait il m'aider ? je suis plus que débutante en macros et je n'y arrive pas...

Merci de votre aide !

[Daniel.C]

Bonjour,

Tu donnes seulement le dossier "Copie". On a besoin du chemin du dossier.modifie la ligne :

Code :

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

Const Chemin = "c:\Copie\"   ' à modifier

pour le mettre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub UnClasseur()
    Dim Fichier As String, Wbk As Workbook
    Const Chemin = "c:\Copie\"   ' à modifier
    Application.ScreenUpdating = False
    Set Wbk = Workbooks.Add
    Fichier = Dir(Chemin & "*.xls*")
    Do While Fichier <> ""
        Workbooks.Open Chemin & Fichier
        Sheets(1).Copy after:=Wbk.Sheets(Sheets.Count)
        ActiveWorkbook.Close False
        Fichier = Dir
    Loop
    Application.ScreenUpdating = False
End Sub

[SUZYLEE]

Bonjour

J'ai bien modifié le chemin d'accès qui est donc désormais
Const Chemin = "c:\Users\la33333er\Desktop\Copie "

l'instruction est donc comme suit

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
Sub regrouper()
'
' Sub UnClasseur()
    Dim Fichier As String, Wbk As Workbook
    Const Chemin = "c:\Users\la33333er\Desktop\Copie "   ' à modifier
    Application.ScreenUpdating = False
    Set Wbk = Workbooks.Add
    Fichier = Dir(Chemin & "*.xls*")
    Do While Fichier <> ""
        Workbooks.Open Chemin & Fichier
        Sheets(1).Copy after:=Wbk.Sheets(Sheets.Count)
        ActiveWorkbook.Close False
        Fichier = Dir
    Loop
    Application.ScreenUpdating = False
End Sub

mais j'obtiens ce message :
Erreur d'éxecution 76
chemin d'accès introuvable.

Pourriez vous me dire où je fais faux ??

Merci de votre aide,

[Daniel.C]

Bonsoir,

Il faut que tu écrives :

Code :

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

Const Chemin = "c:\Users\la33333er\Desktop\Copie\"

[Philippe Tulliez]

Bonjour,

mais j'obtiens ce message :
Erreur d'éxecution 76
chemin d'accès introuvable.
Pourriez vous me dire où je fais faux ??

Lorsqu'un programme se met en erreur, la ligne où se produit ce problème se met en surbrillance de couleur jaune.
A ce moment là commence le travail de débogage.
Il est important pour un développeur de bien connaître cet outil. Par exemple, placer le curseur de la souris sur une ou plusieurs variables qui interviennent dans cette ligne pour en connaître la valeur donne déjà une bonne indication.
Petit rappel de lecture du tutoriel Le débogage sous Visual Basic 6 (1ère partie) et de celui-ci Visual Basic Editor
Tutoriels traitant de VB mais 90% à 95% de ce qui est écrit est valable pour le VBA.