Discussion :

[cmako]

Bonjour,

J'aimerais savoir, d'abord, s'il est possible de faire un code VBA pour enregistrer un fichier au format .xls (créer ou écraser l'existant) qui va contenir une partie des données de la feuille 1, feuille 2 et feuille 3 ?

Si oui, pouvez-vous me donner un exemple?

Sinon, est-il possible d'enregistrer sous format CSV?

[mercatog]

Je ne comprends pas; mais tu peux toujours éliminer ou supprimer les infos inutiles et faire une SaveAs ou SaveCopyAs en vba

[cmako]

Oui, je veux supprimer les lignes 1 - 10 sur 3 onglets (les autres j'exporte pas) et faire SaveCopyAs. En faite, je veux que les données brutes sans l'entete.

[mercatog]

Si ton fichier ne comporte que 3 feuilles, essayes ceci

Code :

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

1
2
3
4
5
6
7
Dim ws As Worksheet
 
For Each ws In Worksheets
ws.Range("A1:A10").EntireRow.Delete
Next ws
 
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "Copie.xls"

[cmako]

Je viens d'essayer, c'est presque ça. Mon fichier a plus que 3 feuilles.
Le problème est que le script me supprime les lignes sur l'original. Si j'exécute le script 2 fois il va me supprimer 20 lignes. De plus, j'ai peur que les utilisateurs sauvegardent le fichier déjà tronqué.
Serait il possible de d'abord créer une copie et ensuite enlever les lignes?
Je dois encore forcer le type de certaines colonnes à texte.

J'ai également une question de pratique. Je n'arrive pas à trouver les caractéristiques de l'objet Sheets, toutes ces propriétés et ses méthodes. L'aide de VBA est vraiment pas complète. Déjà je n'arrive pas à trouver a quoi sert Range et je ne l'ai pas trouvé dans les propriétés de Sheets, ainsi que Cells.
J'aimerais bien trouver le toutes les possibilités qu'il est possible de faire avec l'objet Sheets sans utiliser l'espion. Existe-t-il une Doc bien faite avec toute sa structure ?



Merci.

[mercatog]

Code :

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

1
2
3
4
5
6
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Feuil1" Or ws.Name = "Feuil2" Or ws.Name = "Feuil3" Then
    ws.Range("A1:A10").EntireRow.Delete
End If
Next ws
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "Copie.xls"

e n'arrive pas à trouver les caractéristiques de l'objet Sheets, toutes ces propriétés et ses méthodes. L'aide de VBA est vraiment pas complète. Déjà je n'arrive pas à trouver a quoi sert Range et je ne l'ai pas trouvé dans les propriétés de Sheets, ainsi que Cells.

si dans vba tu sélectionne par exemple le mot Range et tu fais un F1, je crois que les infos ne manquent pas

[cmako]

Merci, pour le code.
Mais j'aimerais d'abord faire une copie puis ensuite effacer ou peut-être ouvrir un fichier vide puis le remplir.


Sinon, Je viens tout juste de percuter, pour trouver le lien entre Sheets et Range il faut bien chercher et remonter dans la hiérarchie

[mercatog]

Si tu exécute le code, il supprime les lignes et "Enregistre Sous"; sinon tu peux intervertir comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
Dim ws As Worksheet
 
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "Copie.xls"
 
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Feuil1" Or ws.Name = "Feuil2" Or ws.Name = "Feuil3" Then
    ws.Range("A1:A10").EntireRow.Delete
End If
Next ws

tu auras besoin de re enregistrer la copie de ton fichier
Pour le help, pas besoin de chercher, par exemple sur ce code, tu sélectionne Range et tu fais un F1

[cmako]

Pour le help, pas besoin de chercher, par exemple sur ce code, tu sélectionne Range et tu fais un F1

Oui, si tu sais que tu dois utiliser Range alors là oui tu fais F1, mais si tu ne sais pas et veux savoir toutes les méthodes et les propriétés qui existent ...

Par exemple je n'ai toujours pas trouvé la propriété qui permet de savoir quelle est la dernière colonne et la dernière ligne sur la feuille excel.

[mercatog]

http://www.developpez.net/forums/d45...gnees-feuille/