Bonjour à tous,
Je suis un petit nouveau dans la communauté, je viens demander de l'aide pour un projet en cours.
Tout est dans l'intitulé.
J'ai trouvé, à force de chiner, un bout de code qui me rend partiellement ce service :
Sub ConvertirFichiersEnFeuilles()
On Error GoTo gesterreur
Dim VarListeFichiers As Variant, VarFichier As Variant, WkClasseur As Workbook, WkFinal As Workbook, WsFeuille As Worksheet
VarListeFichiers = Application.GetOpenFilename(filefilter:="Classeurs eXceL,*.xlsx", Title:="Choisissez les Classeurs à récupérer", MultiSelect:=True)
If VarType(VarListeFichiers) = vbBoolean Then MsgBox "Abandon !": Exit Sub 'pour identifier le bouton annuler
Set WkFinal = Workbooks.Add 'générer le classeur final
For Ctr = 1 To UBound(VarListeFichiers)
MsgBox VarListeFichiers(Ctr)
Set WkClasseur = Workbooks.Open(Filename:=VarListeFichiers(Ctr))
Set WsFeuille = WkClasseur.Worksheets(1)
WsFeuille.Move before:=WkFinal.Worksheets(1)
WkClasseur.Close savechanges:=False
Next
'For Each VarFichier In VarListeFichiers
'Next VarFichier
Exit Sub
gesterreur:
'classeur vide
If Err.Number = -2147221080 Then
Resume Next
End If
End Sub
Cependant cette macro me fait faire une operation manuelle de selection des fichiers, puis de validation pour chaque fichier ...
Ce que je souhaiterai, c'est renseigner dans le code directement les noms de fichiers/feuilles Excel afin d'automatiser le processus avec ensuite un ctrl+"X" puis trouver "tout cuit" un fichier unique Excel avec tous les onglets issus des autres fichiers.
Merci pour votre aide...
Je suis un petit nouveau dans la communauté, je viens demander de l'aide pour un projet en cours.
Tout est dans l'intitulé.
J'ai trouvé, à force de chiner, un bout de code qui me rend partiellement ce service :
Sub ConvertirFichiersEnFeuilles()
On Error GoTo gesterreur
Dim VarListeFichiers As Variant, VarFichier As Variant, WkClasseur As Workbook, WkFinal As Workbook, WsFeuille As Worksheet
VarListeFichiers = Application.GetOpenFilename(filefilter:="Classeurs eXceL,*.xlsx", Title:="Choisissez les Classeurs à récupérer", MultiSelect:=True)
If VarType(VarListeFichiers) = vbBoolean Then MsgBox "Abandon !": Exit Sub 'pour identifier le bouton annuler
Set WkFinal = Workbooks.Add 'générer le classeur final
For Ctr = 1 To UBound(VarListeFichiers)
MsgBox VarListeFichiers(Ctr)
Set WkClasseur = Workbooks.Open(Filename:=VarListeFichiers(Ctr))
Set WsFeuille = WkClasseur.Worksheets(1)
WsFeuille.Move before:=WkFinal.Worksheets(1)
WkClasseur.Close savechanges:=False
Next
'For Each VarFichier In VarListeFichiers
'Next VarFichier
Exit Sub
gesterreur:
'classeur vide
If Err.Number = -2147221080 Then
Resume Next
End If
End Sub
Cependant cette macro me fait faire une operation manuelle de selection des fichiers, puis de validation pour chaque fichier ...
Ce que je souhaiterai, c'est renseigner dans le code directement les noms de fichiers/feuilles Excel afin d'automatiser le processus avec ensuite un ctrl+"X" puis trouver "tout cuit" un fichier unique Excel avec tous les onglets issus des autres fichiers.
Merci pour votre aide...