Copie de cellules dans un fichier fermé

Re : Copie de cellules dans un fichier fermé

Bonjou,

fichier texte ==> écriture par fonction Open
classeur Excel ==> écriture par fonction ADO )

Le journal mensuel fermé nommé "Journal evenement" est t'il un fichier texte ou un classeur Excel ?

Robert

Re : Copie de cellules dans un fichier fermé

Oh désolé

Il s'agit au départ comme à l'arrivée d'un fichier excel basique en colonne avec entete

Re : Copie de cellules dans un fichier fermé

fox76 à dit:

Oh désolé

Il s'agit au départ comme à l'arrivée d'un fichier excel basique en colonne avec entete

Cliquez pour agrandir...

Bonjour,
Ci-jointe une procédure d'écriture dans un fichier fermé à l'aide des fonctions ADO, à adapter bien sûr car je n'ai pas ton fichier source ni les Userform avec les Combo.
Un fichier fermé est automatiquement enregistrer à la fermeture de la connexion ADO sans possibilité d'annulation alors attention à l'endroit où sont écrits les résultats.

Ca fonctionne mais je suis persuadé qu'il vaudrait mieux ouvrir le fichier Journal, écrire à la fin, l'enregistrer et le fermer.
En bloquant l'écran pendant l'écriture avec Application.ScreenUpdating=False puis = True à la fin, la mise à jour devrait être très rapide et bien plus simple qu'avec un fichier fermé à moins que celui-çi soit très imposant.

Cordialement
Robert

Re : Copie de cellules dans un fichier fermé

Merci j'essaye

Re : Copie de cellules dans un fichier fermé

Désolé, mais j'ai beau essayer, je ne suis pas doué

en pj mes fichiers

Re : Copie de cellules dans un fichier fermé

fox76 à dit:

Désolé, mais j'ai beau essayer, je ne suis pas doué

en pj mes fichiers

Cliquez pour agrandir...

Bonjour,
C'est ce que tous les Exceliens disent au début avant d'avoir quelques années de pratique.
Pas de découragement!
Ci-joints les fichiers modifiés mais non renommés.
Il vaut mieux dans ton cas adopter la solution la plus simple qui est : ouverture du journal, écriture, fermeture avec sauvegarde avec blocage de l'écran pendant l'écriture.
Ca s'exécute en 1 seconde, donc il n'y a aucun intérêt à compliquer les choses avec un fichier fermé.

A voir :
- dans les Propriétés des feuilles : j'ai modifié Name par Sh_donnees et Sh_registre
Ainsi les noms des onglets n'ont ainsi aucune incidence sur le VBA en utilisant Sh_registre.select et Sh_donnees.select
- dans le ThisWorbook Open : ' positionnement sur la feuille Registre à l'ouverture
- ajout d'une Sub Initalisation et en Public Const le nom du journal qui doit être dans le même répertoire que le programme
- procédure d'écriture dans le journal ajoutée dans la Sub CmbValider_Click
- ajout d'un bouton d'ouverture du journal
Si le Journal est déjà ouvert la Sub d'écriture le refermera après enregistrement

Cordialement
Robert

Re : Copie de cellules dans un fichier fermé

Merci beaucoup

Cela fonctionne a merveille