Discussion :

[Invité]

Bonjour,

Chaque semaine je reçois un fichier excel avec +/- 10 onglets :

Ce fichier est à éclater en autant de fichier que d'onglets. (si 10 feuilles alors 10 fichiers à générer).

A noter on dispose au départ d'un fichier XLS ou XLSX .

L'éclatement doit générer autant de fichiers CSV que de feuilles dans le fichier de départ.

Autre contrainte .

Le code VB doit être indépendant du fichier excel. C'est à dire un script en dehors du fichiers excel. En somme le code VB est à taper sur un bloc note et devra porter l'extension ".vb".

J'ai mis la main sur un code que j'avais , mais celui ci ne fait pas exactement ce que je veux :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_Click()
 
Dim nom_feuille_classeur As String
Dim nom_document As String
Dim trigramme_apv As String
Dim nouveau_fichier As String
Dim repertoire_de_sauvegarde As String
Dim lien_nouveau_fichier As String
 
 
 Dim Ws As Worksheet
 Dim Wb As Workbook
 
Set Ws = ActiveSheet
'nom_feuille_classeur = ActiveSheet.Name ' recuperation nom de la feuille dans le classeur de départ
Set Wb = Workbooks.Add
trigramme_apv = Range("D6").Value ' recuperation nom de AVP
 
Ws.Copy before:=Wb.Sheets(1)
 
repertoire_de_sauvegarde = "M:\" ' nom repertoire ou mettre le nouveau fichier
 
nouveau_fichier = Format(Date, "yyyymmdd") & " " & Ws.Range("D6") & " APV " & Ws.Name & " adherents .xlsm " ' nom du nouveau document
 
lien_nouveau_fichier = repertoire_de_sauvegarde & nouveau_fichier ' nouveau document
 
Wb.SaveAs Filename:=lien_nouveau_fichier ' lien nouveau fichier >> problème avec le ActiveSheet.SaveAs et le Filename:= , c est l erreur 1004
Wb.Close False
End Sub

Merci de m'aiguiller

[Marc-L]

Bonjour, bonjour !

Techniquement, quelle est la question, la difficulté rencontrée ?!

Un code effectue uniquement ce qu'on lui demande et rien d'autre !

Pour rappel, ici c'est un forum Excel VBA, pas VB ni VBScript ! …

[Invité]

A mince ,

Pourtant ici je cherche à faire du VB/VBscript

Le code VB est indépendant du fichier ,

Si vous pouviez déplacer

Merci

[kiki29]

Salut, effectivement ce n'était pas le bon forum, à tout hasard un xlsb qui fait cela en pj, à adapter éventuellement à ton contexte.

[Invité]

Bonsoir,

Merci de votre proposition mais en faite cela est bien plus compliquer à gérer.

Je m'explique :

- 1 fois par semaine un robot me déposé un fichier zip à une adresse donnée http/https donnée. Ce fichier est un zip au départ.
- une fois le fichier zip téléchargé , on extrait le fichier dedans qui est un fichier xls/xlsx.
- le code VB que cherche à faire exécuter doit automatique :
> ouvrir le fichier excel
> éclater le fichier excel en autant de fichier csv qu'il y a d'onglets

Par conséquent le clic bouton de l'utilisateur je doit m'en passé , le programme doit s’exécuter de nuit sur un serveur automatiquement.

En utilisant la solution proposé c'est comme ci que le fichier que je recevait avait du VB inclu , hors non justement. Je dois faire mon code VB à partir d'un VB indépendamment de mon fichier.

Je vais poster un code e vous me dirais ce que vous en pensez

Merci d'avance

[Invité]

Bonsoir

Voici un bout de code que j'ai commencé à faire mais je bloque :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
sub eclateur_de_fichier()
 
dim classeur1 ,  classeur2, classeur3, classeur4, classeur5 as Workbook
dim feuille1 ,   feuille2 , feuille3 , feuille4 , feuille5 as worksheet
dim chemin1, chemin2, chemin3 as string
dim requete1 , requete2 , requete3 as string
 
chemin1 = "D:\fichier_a_eclater.xls" ' nom du fichier de départ a éclater
 
chemin2= "D:\rep_test\fichier_de_fin.csv" ' nom du fichier de destination ou ranger les feuilles
 
Set classeur1 = CreateObject("Workbook") ' création du classeur1 avec un seul onglet
 
xlApp.SheetsInNewWorkbook = 1 ' on crée un seul onglet
 
'On créer l objet onglet dans le nouveau classeur créé
 
Set feuille1 = classeur1.Worksheets(1)
 
'On affecte un nom aux onglets
 
feuille1.Name = "DONNEES_TRANSIT"
 
end sub

Merci de m'aiguiller