Création de fichiers dépendants de la valeur d'une cellule

[Thierry_ZT]

Bonjour,

J'ai de nouveau besoin de votre aide.
J'ai une base tarifaire avec environ 90.000 lignes et X fabricants (Colonne A). Je souhaite créer un fichier différent pour chaque fabricant au format excel par VBA.
Je dois générer ces fichiers tous les mois et actuellement cela est fait manuellement.

Dans chaque fichier doit se trouver la première ligne avec les noms des colonnes et le nom du fichier doit être la valeur du fabricant lui même.
En sachant que toutes les colonnes ne serons pas exportées, il me faudrait un code pour pouvoir exporter les colonnes voulues.

Merci pour votre aide.

 

[thebenoit59]

Re : Création de fichiers dépendants de la valeur d'une cellule

Bonjour Thierry_ZT.

Je te joins ton fichier.
Dans le code, à toi d'activer la suppression des colonnes que tu ne souhaites pas voir à la ligne :

'Range("XXX:XXX").Delete

Avec par exemple :

'Range("c:c,e:e").Delete

Ensuite les fichiers s'enregistrent automatiquement dans le même dossier que le fichier source avec la date - le nom du fournisseur.

 

[thebenoit59]

Re : Création de fichiers dépendants de la valeur d'une cellule

Je n'ai pas fais attention au nombre de lignes.
Si tu as en plus de 65000, remplace

lLigne = [a65000].End(xlUp).Row

Par

lLigne = [a1].End(xlDown).Row

 

[Thierry_ZT]

Re : Création de fichiers dépendants de la valeur d'une cellule

Bonjour Thierry_ZT.

Je te joins ton fichier.
Dans le code, à toi d'activer la suppression des colonnes que tu ne souhaites pas voir à la ligne :

'Range("XXX:XXX").Delete

Avec par exemple :

'Range("c:c,e:e").Delete

Ensuite les fichiers s'enregistrent automatiquement dans le même dossier que le fichier source avec la date - le nom du fournisseur.

Bonjour et merci thebenoit59 pour ta réponse rapide.
Ton code fonctionne parfaitement avec mon fichier exemple mais avec un fichier un peu plus conséquent (moins de 65000 lignes) cela ne fonctionne plus. Je ne peux pas transférer mon fichier il est trop volumineux (8Mo).
De plus, j'ai des noms de fabricants avec des caractères impossibles à mettre en nom de fichier, ex: ATLANTIC CHAUFFAGE/CHAUFFE-EAU, il faudrait remplacer ces caractères par _ par exemple.

Merci pour ton retour et de ton aide

 

[Thierry_ZT]

Re : Création de fichiers dépendants de la valeur d'une cellule

Bonjour,

En fin de compte tout fonctionne correctement (merci encore à thebenoit59). J'avais fait une faute de frappe.
Pour remplacer le caractère pour le nom de fichier, je le fais manuellement avec rechercher/remplacer.

Bravo pour ce forum et de votre réactivité.