Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Eclater un fichier Excel

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sander59

XLDnaute Nouveau
Bonsoir ,

Je souhaite éclater un fichier Excel en VBS , voici ce que j'ai tapé :

Code: 
Sub eclateur_fichier_excel ()

' ce programme doit eclater un fichier excel en plusieurs via un VBScript exterieur
' le fichier xls de depart est zippé et ne peut pas contenir l'eclateur VBA

dim feuille1, feuille2 , feuille3 , feuille4 'as worksheet 4 feuilles au depart
dim classeur1, classeur2 , classeur3 'as workbook  3 classeurs excel au depart
dim chemin1 , chemin2 , chemin3 'as string  3 chemins pour 3 classeurs excel au depart

chemin1 = "D:\test.xls" ' chemin fichier 1
chemin2 = "D:\test2.xls" ' chemin fichier 2
chemin3 = "D:\test3.xls" ' chemin fichier 3

Workbook(array(feuille1,feuille2,feuille3,feuille4))=classeur1 ' contenu classeur 1
Workbook.copy(array(feuille1))=classeur2 ' copie de la feuille 1 du classeur 1 dans le classeur 2
Workbook(array(feuille1))=classeur2 ' nouveau contenu de classeur 2
Workbook.copy(array(feuille2))=classeur3 ' copie de la feuille 2 du classeur 1 dans le classeur 3
Workbook.copy(array(feuille3))=classeur3 ' copie de la feuille 3 du classeur 1 dans le classeur 3
Workbook(array(feuille2,feuille3))=classeur3 ' nouveau contenu de classeur 3

end sud

Je n'arrive pas à faire fonctionner ce code , merci de m'aiguiller 🙂
 
Trier par date Trier par votes
Re : Eclater un fichier Excel

Bonsoir à tous

sander59
Le code qu'on lit dans ton message s'apparente à du VBA (avec des erreurs de syntaxe) pas un script VBS.

Voici ci-dessous un exemple de script VBS
VB: 
'Exemple Script VBS pilotant EXCEL
Set objXLS = CreateObject("Excel.Application")
objXLS.Visible = True
objXLS.Workbooks.Add
objXLS.Sheets(1).Cells(1, 1).Value = "TEST"

(à tester en le copiant dans le bloc-notes et en engistrant sous (sur le Bureau par exemple) en testXL.vbs puis en double-cliquant sur ce fichier)
 
Vote positif 0 Vote négatif
Re : Eclater un fichier Excel

Bonsoir ,

Voici ce que je viens de testé 😀 :

Code: 
Set objXLS = ExistObject("Excel.Application")
objXLS.Workbooks = "C:\mondossier\Fichier_A"
objXLS.Sheets(1).Cells(A1:AZ12000)
objXLS.Sheets(2).Cells(A1:AZ12000)
objXLS.Sheets(3).Cells(A1:AZ12000)
objXLS.Sheets(4).Cells(A1:AZ12000)

Set objXLS = CREATEObject("Excel.Application")
objXLS.Workbooks = "C:\mondossier\Fichier_B"
objXLS.Workbooks.Add
objXLS.Sheets(1).Cells(A1:AZ12000)

Set objXLS = CREATEObject("Excel.Application")
objXLS.Workbooks = "C:\mondossier\Fichier_C"
objXLS.Workbooks.Add
objXLS.Sheets(2).Cells(A1:AZ12000)

Set objXLS = CREATEObject("Excel.Application")
objXLS.Workbooks = "C:\mondossier\Fichier_D"
objXLS.Workbooks.Add
objXLS.Sheets(3).Cells(A1:AZ12000)
objXLS.Sheets(4).Cells(A1:AZ12000)

Problème ceci ne fonctionne qu'à moitier . J'ai une erreur à la ligne 26 😕

Merci de m'aiguiller
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Eclater un fichier Excel

Re

sander59
Je vois pas pas ce que tu cherches à faire, ni pourquoi tu veux le faire en VBS.
Pour mémoire, Excel utilise le VBA.
(Visual Basic for Application)

NB: La fin d'une procédure, c'est End Sub pas End Sud (voir le code dans ton premier message)
 
Vote positif 0 Vote négatif
Re : Eclater un fichier Excel

Bonjour sander59, JM,

Classiquement en VBA on aurait ceci :

Code: 
Sub eclateur_fichier_excel()
Dim chemin1$, chemin2$, chemin3$, wb As Workbook
chemin1 = "D:\test.xls" ' chemin fichier 1
chemin2 = "D:\test2.xls" ' chemin fichier 2
chemin3 = "D:\test3.xls" ' chemin fichier 3
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Set wb = Workbooks.Open(chemin1)
If wb Is Nothing Then MsgBox "'" & chemin1 & "' introuvable...": Exit Sub
On Error GoTo 0
wb.Sheets(1).Copy
ActiveWorkbook.SaveAs chemin2
ActiveWorkbook.Close False
If wb.Sheets.Count > 2 Then
  wb.Sheets(Array(2, 3)).Copy
  ActiveWorkbook.SaveAs chemin3
  ActiveWorkbook.Close False
End If
wb.Close False
End Sub
J'ai pris soin de mettre des tests de sécurité...

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Eclater un fichier Excel

Re,

Si la macro peut être utilisée sur Excel 2007 et versions ultérieures, il faut préciser le format du fichier :

Code: 
Sub eclateur_fichier_excel()
Dim chemin1$, chemin2$, chemin3$, wb As Workbook, v
chemin1 = "D:\test.xls" ' chemin fichier 1
chemin2 = "D:\test2.xls" ' chemin fichier 2
chemin3 = "D:\test3.xls" ' chemin fichier 3
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Set wb = Workbooks.Open(chemin1)
If wb Is Nothing Then MsgBox "'" & chemin1 & "' introuvable...": Exit Sub
On Error GoTo 0
v = Val(Application.Version)
wb.Sheets(1).Copy
ActiveWorkbook.SaveAs chemin2, IIf(v < 12, xlNormal, 56)
ActiveWorkbook.Close False
If wb.Sheets.Count > 2 Then
  wb.Sheets(Array(2, 3)).Copy
  ActiveWorkbook.SaveAs chemin3, IIf(v < 12, xlNormal, 56)
  ActiveWorkbook.Close False
End If
wb.Close False
End Sub
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
379
CDALE
C
C
  • Résolu(e)
XL 2021 Duplication d'onglets dans un nouveau fichier et enregistrement selon une cellule donnée
Réponses
7
Affichages
537
wDog66
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
768
guiyom
G
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
573
JJ69
J
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
396
oguruma
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
466
patricktoulon
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
886
marie3107
M
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
671
Lu76Fer
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
586
Franc58
F
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
691
Oneida
R
  • Question Question
XL 2019 injecter fichier excel avec nom variable
Réponses
4
Affichages
693
job75
  • Résolu(e)
XL 2013 un dossier qui ne veut pas etre supprimer avant la fermeture du fichier
2
Réponses
18
Affichages
1 K
patricktoulon
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
838
lesoldat9
L
R
  • Résolu(e)
XL 2016 Fusionner 3 classeurs Excel en un seul.
Réponses
10
Affichages
1 K
ReneDav14000
R
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
664
job75
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
A
  • Question Question
Microsoft 365 Copier/coller un plusieurs lignes
Réponses
5
Affichages
868
LeSaintKebab
L
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
1 K
ChristianJ
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…