Enregistrer un classeur

[plasmadav]

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

 

[Pierrot93]

Re : Enregistrer un classeur

Bonjour,

comprends pas trop, mais essaye comme ceci, code qui fonctionne chez moi :

ActiveWorkbook.SaveAs "C:\toto.xls"

@+

 

[plasmadav]

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...

 

[Pierrot93]

Re : Enregistrer un classeur

Re

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

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

car dans ton code tu as une ligne :

Exit Sub

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

@+

 

[plasmadav]

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 ???

 

[Pierrot93]

Re : Enregistrer un classeur

Re

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

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

bon après midi
@+

 

[plasmadav]

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