VBA nom de fichier et selection intervalle Résolu

Question

Bonjour,   

Je me permet de venir poser une question, plutot deux concernant une macro sous excel 2003  

Après plusieurs recherche et plein de test et tentative d'adaptation,   


Ce que j'essaye de faire : (cf code plus bas)  

- copier les 200 premieres lignes d'un fichier (ligne 1 à 200 colone A)  
- coller ces ligne dans un fichier dont le nom est : OFFRE5402_141  
- enregistrer en csv  ce nouveau fichier, le fermer  
- copier les 200 lignes suivante du premier fichier (201 à 300)   
- coller ces 200 lignes dans un fichier dont le nom est OFFRE5402_142  (OFFRE5402_n+1)  
- enregistrer en csv ce nouveau fichier, le fermer  

et ainsi de suite  

en sachant que je ne connais pas le nombre de ligne par avance ( qui peut varier d'une à 40 000 lignes)  



Sub Separation()  
'  
'  
    Range("A1:A200").Select  
    Selection.Copy  
    Workbooks.Add  
    ActiveSheet.Paste  
    ActiveWorkbook.SaveAs Filename:= _  
        "C:\Documents and Settings\JSEBBAN\Bureau\2\OFFRE5402_.csv", FileFormat:=xlCSV, CreateBackup:=False  
    ActiveWindow.Close  
End Sub  

Après plusieurs recherche et plein de test et tentative d'adaptation,  j'ai bien compris qu'il fallait que j'utilise des variable type i = n + 199 pour la selection  

que je fasse une boucle pour ne pas avoir a taper mille ligne de code  



Pourquoi ?  

Parce qu'il s'agit de fichier qui sont intégrés par un autre prog à nos base de données et qui extrait ensuite plein de résultat par comparaison, le problème et qu'a cause d'un bug dont personne ne sait d'ou il vient qui fait que plus on ajoute de ligne moins le prog traite de ligne à la sec; ainsi ici le prog traite 200 lignes par sec en passant au dessus le prog traite 1 ligne par min... allez savoir  

Merci

Configuration: Windows XP / Opera 9.80

pijaku · Answer

Bonjour,
Une proposition :
Adapter à la macro ci dessous les noms de classeur et de feuille... A Eclater.xls = votre classeur de 40000 lignes.
Sheets("Feuil1") = la feuille contenant les données

Option Explicit

Sub EclaterFichier()
Dim Lign As Long, DrLig As Long
Dim Cpt As Integer
Dim Chemin As String, NomFich As String

Application.DisplayAlerts = False
Cpt = 0
Chemin = "C:\Documents and Settings\JSEBBAN\Bureau\2\"
With Workbooks("A Eclater.xls").Sheets("Feuil1")
    DrLig = .Range("A" & Rows.Count).End(xlUp).Row
    For Lign = 1 To DrLig Step 200
        NomFich = "OFFRE5402_" & 141 + Cpt & ".csv"
        Workbooks.Add
        .Range("A" & Lign & ":A" & Lign + 199).Copy Range("A1")
        ActiveWorkbook.SaveAs Filename:=Chemin & NomFich, FileFormat:=xlCSV, CreateBackup:=False
        ActiveWindow.Close
        Cpt = Cpt + 1
    Next
End With
Application.DisplayAlerts = True
End Sub

manautop · Answer

Merci Franck P  

Vous etes mon sauveur, j'etais trés loin  
Grace à vous j'ai compris l'utilisation de "" et du &  

je me permet quelques questions :  

 DrLig = .Range("A" & Rows.Count).End(xlUp).Row  ==> permet de selectioner les lignes tant qu'elles ne sont pas vide ?  

Cpt ==> je ne comprend pas , pourriez vous m'expliquer, je comprend que cela à un rapport avec l'augmentation du nom d'un à chaque fois mais je ne comprend pas comment   

For Lign = 1 To DrLig Step 200 =+> permet de selectionner des plages de 200 ce que je ne comprend pas c'est comment vous faites pour que la macro commence ensuite à 201 jusqu'a 300 puis de 301 à 400 etc ???  

Dernière question pour étendre la selection à deux colonnes par exp  

je dois passer par ça  

ption Explicit 

Sub EclaterFichier() 
Dim Lign As Long, DrLig As Long 
Dim Cpt As Integer 
Dim Chemin As String, NomFich As String 
Dim rRange 
Set rRange = Range(Columns(1), Columns(2)) 


Application.DisplayAlerts = False 
Cpt = 0 
Chemin = "C:\Documents and Settings\JSEBBAN\Bureau\2\" 
With Workbooks("A.xlsx").Sheets("Feuil1") 
    DrLig = .Range("rRange" & Rows.Count).End(xlUp).Row 
    For Lign = 1 To DrLig Step 200 
        NomFich = "OFFRE5402_" & 141 + Cpt & ".csv" 
        Workbooks.Add 
        .Range("A:" & Lign & ":A" & Lign + 199).Copy Range("A1") 
        ActiveWorkbook.SaveAs Filename:=Chemin & NomFich, FileFormat:=xlCSV, CreateBackup:=False 
        ActiveWindow.Close 
        Cpt = Cpt + 1 

    Next 

End With 

Application.DisplayAlerts = True 

End Sub 


dsl de ces questions mais ce serait bete de copier coller cette macro sans la comprendre  

Cordialement  

John

manautop · Answer

ah ben j'ai trouvé plus simple


Option Explicit

Sub EclaterFichier()
Dim Lign As Long, DrLig As Long
Dim Cpt As Integer
Dim Chemin As String, NomFich As String

Application.DisplayAlerts = False
Cpt = 0
Chemin = "C:\Documents and Settings\JSEBBAN\Bureau\2\"
With Workbooks("A.xlsx").Sheets("Feuil1")
    DrLig = .Range("A" & Rows.Count).End(xlUp).Row
    DrLig = .Range("B" & Rows.Count).End(xlUp).Row
    For Lign = 1 To DrLig Step 200
        NomFich = "OFFRE5402_" & 141 + Cpt & ".csv"
        Workbooks.Add
        .Range("A" & Lign & ":A" & Lign + 199).Copy Range("A1")
        .Range("B" & Lign & ":B" & Lign + 199).Copy Range("B1")
        ActiveWorkbook.SaveAs Filename:=Chemin & NomFich, FileFormat:=xlCSV, CreateBackup:=False
        ActiveWindow.Close
        Cpt = Cpt + 1
    Next
End With
Application.DisplayAlerts = True
End Sub


Merci lol

manautop · Answer

dsl je n'avais pas vu ta réponses quand j'ai mis ma solution,

Un grand merci à toi pour ton aide, tes explications et le temps passé

Merci

VBA nom de fichier et selection intervalle

4 réponses

Discussions similaires

Newsletters