Scinder un fichier en deux

[NICOALBERT]

Bonjour le forum,

Je me retourne vers vous car j'ai un fichier que je voudrait scinder en deux d'un coté un fichier Recherche et de l'autre un fichier Base_Turf ou sera stocker mes données à rechercher (2009R1 , 2009R2 ect...)

Le code est de efgé et fonctionne très bien mais je voudrait scinder mon fichier en deux car a la fin il fera plus de 22 onglets d'environ 45000 lignes par 58 colonnes ( rien que pour les données) et va être très lourd.

Je voudrait ouvrir les deux fichiers et recherche mes chevaux et ensuite fermer le fichier Base_Turf pour travailler sur le fichier RECHERCHE qui sera beaucoup plus léger et donc plus maniable.

Est ce que quelqu'un peu m'aider.

Cordialement.

 

[Compte Supprimé 979]

Re : Scinder un fichier en deux

Salut NicoAlbert,

Tu trouveras ci-joint ton fichier scindé en 2, avec le code modifié dans le classeur "Recherche"

A+

 

[NICOALBERT]

Re : Scinder un fichier en deux

Bonjour BrunoM45 , Bonjour efgé , Bonjour le forum.

Sa fonctionne vraiment très bien je te remercie , Je vient de le modifier avec les choses que je veut mettre en plus dedans mais j'ai un autre soucis j'avais créer des petites macro pour initialiser la base , mais la quand je la lance elle ne fonctionne plus sa peu venir de quoi ? je pense que c'est le faite que le fichier soit scinder en deux , et je n'ai plus non plus l'userform2 qui s'ouvre automatiquement à l'ouverture du fichier.

Cordialement.

 

[NICOALBERT]

Re : Scinder un fichier en deux

Re bonjour,

Désoler je n'ai pas mis le bon fichier "recherche" puisque j'ai rajouter des colonnes.

Cordialement.

 

[Compte Supprimé 979]

Re : Scinder un fichier en deux

Re,

Dans ThisWorkbook, tu n'as aucun code !?

Tu devrais avoir un truc du style

Private Sub Workbook_Open()
UserForm2.Show
End Sub

Voici donc ton fichier "Recherche" de 10h15 sur lequel j'ai bossé à toi de rajouter tes colonnes et d'adapter le code si nécessaire

Il est IMPORTANT de ne pas aller trop vite dans tes démarches
Car tu vois :
1) après réflexion tu as voulu scinder ton fichier en deux
ça demande du temps de développement
2) Tu donnes un fichier qui n'est pas le bon 10h15 <-> 10h22

A+

 

[NICOALBERT]

Re : Scinder un fichier en deux

Re,

Je te remercie pour le temps que tu as pris et perdu de ma faute pour résoudre mon problème .

Tout se passe bien lorsque je click sur INITIALISATION jusqu'au moment de fermer la base , la j'ai un message d'erreur.

"Erreur d'exécution '91': Variable objet ou variable de block With non définie"

Cordialement.

 

[NICOALBERT]

Re : Scinder un fichier en deux

Re,

Lorsque je click sur RECHERCHE pardon pas INITIALISATION.

Cordialement

 

[Compte Supprimé 979]

Re : Scinder un fichier en deux

Re,

Dans le module, change le code de la Sub FermerBase

Sub FermerBase()
  ' Fermer la base se vider la variable objet
  On Error Resume Next
  WbkB.Close SaveChanges:=False
  Set WbkB = Nothing
  On Error GoTo 0
End Sub

Mais je ne sais pas pourquoi cette erreur !?

Vérifie que cela fonctionne correctement et tiens nous au courant 😉

A+