P
plasmadav
Guest
Bonjour le forum,
Me revoila et encore un grand merci pour l'aide precedemment fournis.
Je reviens avec un clou sous le pied, je m'explique.
Je dois compiler plusieurs feuilles de plusieurs classeur vers un seul classeur !!!
Le code a toujours bien fonctionné jusque là, mais aujourd'hui non 😕
Voici le code :
Problematique :
Toutes les feuilles ne se copient pas vers le classeurs finals
a savoir chaques classeurs comportent au minimum 150 feuilles.
Il y a t'il un nombre limite de feuilles a avoir dans un classeur😕 ????
Je ne peux vous fournir le fichier pour les fuzions trop lourd
Si quelqu'un peux m'aider la dessus
merci d'avance
Me revoila et encore un grand merci pour l'aide precedemment fournis.
Je reviens avec un clou sous le pied, je m'explique.
Je dois compiler plusieurs feuilles de plusieurs classeur vers un seul classeur !!!
Le code a toujours bien fonctionné jusque là, mais aujourd'hui non 😕
Voici le code :
PHP:
Sub ConvertirFichiersEnFeuilles()
On Error GoTo gesterreur
Dim VarListeFichiers As Variant, VarFichier As Variant, WkClasseur As Workbook, WkFinal As Workbook, WsFeuille As Worksheet
'Ouverture de plusieurs fichier au choix
Application.ScreenUpdating = False
VarListeFichiers = Application.GetOpenFilename(filefilter:="Classeurs eXceL,*.xls", Title:="Selectionner le dossier Stat Prestataire", 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
'Transfert des fichiers vers le classeurs final
For Each VarFichier In VarListeFichiers
Set WkClasseur = Workbooks.Open(Filename:=VarFichier)
For Each WsFeuille In WkClasseur.Worksheets
WsFeuille.Move before:=WkFinal.Worksheets(1)
Next WsFeuille
WkClasseur.Close savechanges:=False
Next VarFichier
gesterreur:
'classeur vide
If Err.Number = -2147221080 Then
Resume Next
End If
Exit Sub
Application.ScreenUpdating = True
End SubProblematique :
Toutes les feuilles ne se copient pas vers le classeurs finals
a savoir chaques classeurs comportent au minimum 150 feuilles.
Il y a t'il un nombre limite de feuilles a avoir dans un classeur😕 ????
Je ne peux vous fournir le fichier pour les fuzions trop lourd
Si quelqu'un peux m'aider la dessus
merci d'avance
Dernière modification par un modérateur: