changer de feuille excel lorsqu'elle est pleine

Question

Bonjour à tous,

J'ai créé un programme permettant de communiquer avec mon port parallèle puis de stocker les infos dans une feuille excel, mon problème est que j'ai beaucoup d'info qui arrive et je remplis les 32000 lignes maxi d'excel par feuille rapidement alors je voudrais continuer à stocker mes infos sur une seconde feuille qui se créerait automatiquement puis ainsi de suite lorsque la précédante est pleine, seulement je ne vois pas comment faire si quelqu'un aurait une idée...

Merci.

Kristof_Koder · Answer

C'est pas 65536 le nb maxi de ligne dans excel ?
Enfin de toute façon, quel que soit la limite en nb de ligne, pour passer à une feuille suivante, dans ton code, tu dois bien gérer un N° de ligne courante dans une variable, non ? Testes donc la valeur de cette variable, et lorsqu'elle arrive à dépasser la limite, tu crées ta nouvelle feuille puis tu remet la variable "N° de ligne courante" à 1

Renfield · Answer

t'aurais un bout de code, Loic34000 ?

cs_Loic34000 · Answer

Bonjour ,

Effectivement je me suis trompé y a bien 65536 lignes maxi.

Voici mon morceaux de code qui gére l'écriture dans le fichier excel :

Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True         'Affiche l'application excel.
Workbooks.Open App.Path & "\MonClasseur.xls" 'Ouvre le fichier Excel "MonClasseur"
Set oWk = ActiveWorkbook
LigneVide = oWk.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row + 1  'recherche une case vide dans la colonne A
oWk.Sheets(1).Range("A" & LigneVide) = Text2  'Ecrit la date et l'heure du transfert dans la case vide trouvée
                                'Sauve le classeur.
oExcel.DisplayAlerts = False    'Pour éviter des questions si classeur déjà existant.
oWk.SaveAs App.Path & "\MonClasseur.xls"
oWk.Close False                 'Ferme le classeur.
oExcel.Quit                     'quitte excel.
Set oWk = Nothing
Set oExcel = Nothing            'libération mémoire.

Mon problème est de traduire en code le fait que la LigneVide = 65536 puis de faire ouvrir un nouveau fichier du genre MonClasseur+1 mais comment faire

Merci d'avance.

cs_MPi · Answer

Tu dois utiliser une variable pour tes noms de feuilles plutôt qu'un chiffre ~~Sheets(1)~~ Sheets(VariableCompteur) VariableCompteur = VariableCompteur + 1 .... ou Sheets("Feuil" & Variable) si tu veux utiliser son nom par défaut plutôt que son Index ou Sheets("Feuil" & Sheets.Count) pour te servir du nombre de feuilles existantes If LigneVide > 65534 Then 'la feuille est pleine et il faut créer une nouvelle feuille Avant de créer une nouvelle feuille, il te faut vérifier si elle existe déjà ou non. Tout dépend comment tu procèdes... MPi² Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_Loic34000 · Answer

Bonjour MPI,

En fait j'aimerais que mon prog crée une feuille sans quelle existe déjà lorsque la première feuille est complète. Mon problème est que je ne connais pas la fonction à utiliser pour créer une nouvelle feuille dans mon prog pour le moment je ne fais qu'ouvrir un fichier existant.
Est-ce-que quelqu'un connaitrait la solution ?

Merci d'avance.

Kristof_Koder · Answer

Un truc du genre :
    Sheets.Add
... sans doute ?

cs_MPi · Answer

Loic34000, 
n'oublie pas qu'il y a l'enregistreur de macro qui est utile quand on ne sait trop comment s'y prendre... et ensuite l'aide en ligne sur les mots-clés générés qu'on ne comprend pas bien...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Changer de feuille excel lorsqu'elle est pleine

7 réponses

Votre réponse

Discussions similaires