j'ai un gros pb (c'est le cas de le dire...), j'ai créé une sorte de petite application pour mon travail, cependant je butte sur un pb...
mon aplication me permet de mettre en forme un tableau et de le sauvegarder.
mais lorsque j'enregistre le fichier avec ma macro, ça prend environ 2 min (120 secondes !!) pour avoir au final un fichier de 175 Mo !
ce qui n'est pas normal du tout !! si je n'utilise pas ma macro pour enregistrer le fichier en automatique et que je le fais manuellement via le menu fichier, enregistrer sous ça prends 10 à 15 secondes pour un fichier de moins de 100 Ko !!!!
De plus, n'etant qu'un simple debuttant en VB, je doute que mon code soit vraiment propre donc si il y a des ameliorations possibles, merci de me les indiquer..
j'ai du mettre le fichier ici car il est trop volumineux
Bonsoir Jean marcel assniok tous
pourquoi tu veux copier le tableau et pas copier simplement la feuille ou est le tableau?
enfin j'y sui peut-être pas?
Comme hier ou le titre du post c'est "comment fermer un fichier et que je réponds"
Thiswoorkbook.close !!!!!
Alors je pense que tu veux copier une feuille à un autre endroit sans macros, alors voilà:
c'est pas de moi mais de Kjin
a+
papou
Sub Copie_sans_macro()
Dim NewClas As String
Application.ScreenUpdating = False
NewClas = Sheets("Feuil2").Range("B1").Value & " " & Format(Date, "yymmdd") 'Nom du Nouveau Classeur
Fichdep = ActiveWorkbook.Name
FichDest = NewClas & ".xls"
Workbooks.Add
ActiveWorkbook.SaveAs ActiveWorkbook.Path & FichDest
Workbooks(Fichdep).Sheets("Feuil2").Cells.Copy
Workbooks(FichDest).Sheets("Feuil1").Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
Ha je viens de me rendre compte que j'ai également oublier de préciser qu'il fallait modifier le module 4 pour mettre un Path correct pour l'enregistrement du fichier... si non, et c'est ce qui as du se passer, ça enregistre le fichier et ça ferme les classeurs ouverts...
et comme je débute c'est sûrement très mal codé puisque que ne sachant pas faire certaines choses je shint des messages d'erreurs etc...
Et bien ce n'est pas facile a expliquer mais je me lance...
Je souhaite a partir d'un tableau donné (celui qui contient les données en colonne H et I) et un formulaire (qui est dans la USF) creer un fichier .dbf (tybe IV dbf 4)
ce fichier est une sorte de base de données.
Cette application doit etre simple et intuitive car utilisé par la suite par des personnes a handicap léger.
donc la personne doit suivre ce qui est indiqué dans la case instruction pour ouvrir un fichier via la liste d'un répertoire precis et remplir le formulaire pour générer le fichier final...
une autre solution serait de générer entièrement un nouveau fichier...
et il faut que tout se ferme tout seul a la fin, sauf excel, ou la je voudrais avoir un message demandant confirmation avant de fermer (des fois qu'un autre fichier perso par exemple soit ouvert avant l'utilisation de l'application)
Ca y est nous avons enfin l'explication de la vague de froid générale qui déferle sur la France... Jean Pierre est de bonne humeur, sortez les après ski
j'ai supprimé tout ce qui n'etait plus utile ainsi que la fermeture des fichiers...
j'ai egalement indiqué ce que je souhaitait sur la premiere page (index) mais je le repete ici : enregistrer l'onglet final en tant que fichier .dbf 4 a un endroit precis et avec un nom precis.
je rappel egalement que je suis novice et que je n'ai pas pu nettoyer le code a proprement dit... désolé... mais je veux bien de l'aide pour le faire (conseils, guide, tuto...)