Discussion :

[AboutBlank1]

Bonjour,

cela fait quelques jours que je cherche à programmer un module sur Excel mais étant novice en VBA, j'ai trouvé la forme générale du programme et la pluparts des fonctions a utiliser mais je galère sur la syntaxe exact.

J'ai besoin de créer un programme qui ferait ceci:
( De base j'ai un ClasseurSource avec 3 feuilles ( F1, F2, F3))

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
POUR chaque ligne (compteur i) FAIRE 
 
     SI ClasseurSource.F1.ColonneF contient la chaine de caractère "aspv"
          && ColonneAD contient NULL ALORS
 
          Créer un classeur au format CSV avec le nom ( ClasseurSource.F1.Lignei.ColonneG & ClasseurSource.F1.Lignei.ColonneJ & ClasseurSource.F1.Lignei.ColonneF".CSV")
 
          Copier la ligne du ClasseurSource dans le nouveau Classeur créé. (sauf dernière ligne)
          Enregistrer le classeur créé à un endroit précis ( exemple chemin: C:\Intel\Logs\) 
 
     end if
     i=i+1 
 
end FOR

J'ai ajouté en pièce jointe l'algorithme correctement indenté, ce sera plus simple à lire.
Ca ne me paressait pas très compliqué de premier abord mais la syntaxe Excel n'est pas mon fort.
Merci d'avance à celui ou ceux qui voudront bien m'aider à avancer. ^^

[Menhir]

j'ai trouvé la forme générale du programme et la pluparts des fonctions a utiliser mais je galère sur la syntaxe exact.

Peut-être pourrais-tu partager ce que tu as déjà fait pour que nous t'indiquions où se trouvent les erreurs de ton code.

[AboutBlank1]

Pour le moment, je n'ai pas grand chose en VBA, j'ai testé plusieurs trucs pour tenter de me familiariser avec le language.

Code :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub AddNewWorkbook()
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim i As Integer
'
'Création d'un nouveau classeur.csv
'
    'On créer l'objet Excel
    Set xlApp = CreateObject("Excel.Application")
    'On défini le nombre d'onglets (ici 5)
    'xlApp.SheetsInNewWorkbook = 5
    'On ajoute un classeur
    Set xlbook = xlApp.Workbooks.Add
    'On donne un nom au classeur
    xlbook.SaveAs "S:\MonClasseur", FileFormat:=xlCSV
    'On rend le classeur visible
    xlApp.Visible = True
    'On ferme l'application
    'xlApp.Quit
 
 
'
'Copie d'une ligne dans le classeur csv créé précédement
'
 
 
'cherche la ligne vide dans le classeur de destination
'i = xlBook.Worksheets(1).Range("A65536").End(xlUp).Row + 1
 
'Copie la 2eme ligne de la premiere feuille dans le classeur source.
'Colle la ligne à la suite de la derniere ligne non vide dans le classeur de
'destination.
'WBSource.Worksheets(1).Rows(2).Copy Destination:=xlBook.Worksheets(1).Cells(i, 1)
 
'Modifier colonne Traité/Non-Traité avec la valeur T
    j = 1
    For i = 1 To ActiveSheet.Rows.Count
 
        If ActiveSheet.Range("A" & i).Value = "" Then
            xlbook.Range("A" & j & ":E" & j).Value = ActiveSheet.Range("A" & i & ":E" & i).Value
            j = j + 1
        End If
    Next i
 
 
 
End Sub

C'était plus un brouillon qu'autre chose, pour voir comment ça fonctionnait.

[Menhir]

C'était plus un brouillon qu'autre chose, pour voir comment ça fonctionnait.

C'est déjà un bon début.

Comme tu es dans Excel, ceci est inutile.

Code :

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

Dim xlApp As Excel.Application

Et, pour la même raison, ceci

Code :

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

Dim xlbook As Excel.Workbook

S'écrit plus simplement :

Code :

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

Dim xlbook As Workbook

Un conseil au sujet de cette ligne : évite de commencer le nom de tes variable pas "xl". C'est le préfixe utiliser par les constantes Excel en VBA donc il peut y avoir parfois des coïncidences malheureuses.


Le nombre de lignes dans Excel pouvant dépasser 32000, il est préférable d'utiliser le type Long quand une variable va faire référence à des lignes.
Donc, au lieu de :

Code :

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

Dim i As Integer

écrire :

Code :

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

Dim i As Long

Ce que tu as fait ici est redondant :

Code :

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

1
2
3
4
5
6
    'On créer l'objet Excel
    Set xlApp = CreateObject("Excel.Application")
    'On défini le nombre d'onglets (ici 5)
    'xlApp.SheetsInNewWorkbook = 5
    'On ajoute un classeur
    Set xlbook = xlApp.Workbooks.Add

L'instruction Workbooks.Add va créé le classeur sans qu'il soit nécessaire d'utiliser CreateObjet. Cette instruction est plutôt réservés aux cas où on veut créer un élément d'une autre application comme un document Word.
Et, à nouveau, le xlApp n'est pas utile.


Attention, ceci ferme Excel. Je ne pense pas que c'est ce que tu voulais faire dans ton code.

Code :

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

1
2
    'On ferme l'application
    'xlApp.Quit

Pour le reste, je ne comprends pas trop ton algorithme (celui qui est dans ton premier message.
Est-ce que tu veux créer un fichier CSV pour chaque ligne correspondant à ta condition avec, dans chaque, une seule ligne ?

Quand tu écris :

Copier la ligne du ClasseurSource dans le nouveau Classeur créé. (sauf dernière ligne)

"sauf dernière ligne", est-ce que ça veut dire que tu copies plusieurs ligne dans le fichier destination ou est-ce que ça veut dire que tu ne scrutes pas la dernière ligne de ton fichier source ?

[AboutBlank1]

Salut,

déjà merci pour ton aide. ^^

Pour le reste, je ne comprends pas trop ton algorithme (celui qui est dans ton premier message.
Est-ce que tu veux créer un fichier CSV pour chaque ligne correspondant à ta condition avec, dans chaque, une seule ligne ?

Quand tu écris :

Copier la ligne du ClasseurSource dans le nouveau Classeur créé. (sauf dernière ligne) "sauf dernière ligne", est-ce que ça veut dire que tu copies plusieurs ligne dans le fichier destination ou est-ce que ça veut dire que tu ne scrutes pas la dernière ligne de ton fichier source ?

Oui, je veux créer un fichier CSV (avec un nom généré en fonction des cellules de la ligne que je vais copier) dans lequel je copie une ligne si elle respecte les conditions. Donc 1 ligne dans 1 fichier csv unique.
Mais je ne veux pas copier la colonneAD. ( Je me suis tromper en écrivant "ligne" sur mon algorithme désolé. La colonne AD contient "T" si elle a déjà était traitée et rien si jamais traitée.)

[MarcelG]

Bonjour Aboutblank et Menhir, Bonjour au forum,

Si je peux me permettre

Lorsque tu écris

Code :

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

For i = 1 To ActiveSheet.Rows.Count

Alors tu pourrais être plus restrictif

Code :

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

1
2
3
4
5
6
7
Dim derlign as Long
 
With Worksheets("Données")
    derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
For i = 1 to derlign

Pour la méthode,

Le plus efficace, à mon avis, serait d'alimenter, avec conditions, une variable Tableau et de transposer celui-ci dans le classeur CSV créé à cet effet.