Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrer un classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion plasmadav
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

plasmadav

Guest
Bonjour,

Voila un petit bout de code permettant de fusionner tout les classeurs de votre choix vers un seul classeur crée.

je voudrais que le fichier crée s'enregistre a la fin sous "C:\" sous le nom "toto"

j'ai rajouté un activeworkbook.saveas filename sans succes voir a la fin du code en souligné

voici le code

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,*.xls", 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 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
Exit Sub
gesterreur:
'classeur vide
If Err.Number = -2147221080 Then
Resume Next
End If
ActiveWorkbook.SaveAs Filename:= _
"C:\toto.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Merci pour vos lumieres
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Enregistrer un classeur

je viens de refaire un test et ca n'enregistre pas !!!!😕

il garde toujours le nom de classeur 5 puis 6 evolue chaque fois que je lance la macro...
 
Vote positif 0 Vote négatif
Re : Enregistrer un classeur

Re

tu as exécuté le code pas à pas (touche F8), et tu passes bien sur la ligne :

Code: 
ActiveWorkbook.SaveAs Filename:= _
"C:\toto.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

car dans ton code tu as une ligne :

Code: 
Exit Sub

qui te fait sortir de la procédure !!!

@+
 
Vote positif 0 Vote négatif
Re : Enregistrer un classeur

Pas à pas je ne passe la ligne ou il faut enregistrer.

en effet le exit sub me fait repartir a zero. sans enregistrer le claseur.

je l'ai placer a la fin et now ca marche....

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,*.xls", 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 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
ActiveWorkbook.SaveAs Filename:= _
"C:\toto.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Exit Sub

End Sub

comment faire pour eviter qu'il demande d'ecraser le fichier si il existe déja ???
 
Vote positif 0 Vote négatif
Re : Enregistrer un classeur

Re

il faut utiliser la propriété "DisplayAlerts", comme ci dessous :

Code: 
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\toto.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Enregistrer un classeur

Merci pierrot

Avec un peu de recherche g trouvé !!!

un immense merci pour ton aide 😀 😀 😀

je vais pouvoir arreter de faire un travail a la main !!!!! Ce forum est une perle !!!

D'ailleur je me suis inscrit a des cours de VBA, un fois hyper callé je pourrais moi aussi donner des tuyaux
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
481
youguybass
Y
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
181
treza88
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
410
KTM
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
609
safranien
S
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
423
Dranreb
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
432
CDALE
C
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
499
oguruma
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
640
Phil69970
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
780
arnoldbrice19
A
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
951
jeff1494
S
  • Question Question
Microsoft 365 Enregistrer les images dans un dossier
Réponses
5
Affichages
627
Jouxte
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
662
Phil69970
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
903
Panda79360
P
  • Question Question
XL 2021 Exportation module, erreur après déprotection
2
Réponses
20
Affichages
1 K
Dranreb
Z
  • Question Question
XL 2010 Utilisation variable dans code
Réponses
5
Affichages
648
patricktoulon
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
718
vgendron
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
851
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…