Problème avec next

Version imprimable

Voir 40 message(s) de cette discussion en une page

Problème avec next

Bonjour,

J'ai une macro qui ouvre un fichier excel dans lequel il y a 5 onglets (Lundi à Vendredi) dans ces onglets il peut y avoir des informations. Si la cellule A10 de l'onglet est vide alors on passe au suivant sinon on copie toutes les lignes allant de A10 jusqu'à A30 pour lesquelles Ai est non vide.

Bon j'ai fait ce code mais il plante sur le 1er next onglet

Code:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub Importer_les_données()
 
Dim onglet As Worksheet
 
 
For Each onglet In Application.ActiveWorkbook.Worksheets
 
dossier = "C:\Bordereau de visites"
 
 
Sheets("Recherche").Select
 
date_visite = Range("E14")
Rep = Range("L1")
representant = Range("E1")
semaine_annee = "S" & Range("F1") & "_" & Range("G1")
 
monfichier = Dir(dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
fichier = (dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
 
 
 
Workbooks.OpenText Filename:=fichier
 
For i = 10 To 30
   If IsEmpty(Range("A10")) Then
        Next onglet
 
   Else
 
   Range("A10").Select
        ActiveCell.Offset(rowOffset:=0, columnOffset:=10).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlDown)).Select
 
        Selection.Copy
 
 
        Windows("Recherche_Bordereaux.xls").Activate
        Sheets("Bordereau de visites").Select
        ActiveSheet.Paste
 
        Copie_Date
   End If
 
Next i
Next onglet
 
 
 
 
End Sub

Qq1 peut-il m'aider ?

Merci par avance

Nini

09/04/2009, 09h53
wilfried_42
bonjour

à essayer : seulement une partie de ton code en retour
Code:

1 2 3 4 5 For i = 10 To 30 If IsEmpty(Range("A10")) Then Exit for Else
j'ai un doute sur : IsEmpty(Range("A10")), je verrai plutot IsEmpty(onglet.Range("A10"))

Merci Wilfried ca marche pour le "exit for"

par contre, je ne comprend pas car une fois qu'il a fait le 1er onglet, il ne passe pas au second ???

Code:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub Importer_les_données()
 
Dim onglet As Worksheet
 
 
 
dossier = "C:\Bordereau de visites"
 
 
Sheets("Recherche").Select
 
date_visite = Range("E14")
Rep = Range("L1")
representant = Range("E1")
semaine_annee = "S" & Range("F1") & "_" & Range("G1")
 
monfichier = Dir(dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
fichier = (dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
 
 
 
Workbooks.OpenText Filename:=fichier
 
For Each onglet In Application.ActiveWorkbook.Worksheets
   If IsEmpty(Range("A10")) Then
        Exit For
 
   Else
 
   Range("A10").Select
        ActiveCell.Offset(rowOffset:=0, columnOffset:=10).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlDown)).Select
 
        Selection.Copy
 
 
        Windows("Recherche_Bordereaux.xls").Activate
        Sheets("Bordereau de visites").Select
        ActiveSheet.Paste
 
        Copie_Date
   End If
 
Workbooks.OpenText Filename:=fichier
 
Next onglet
 
 
 
 
End Sub

A noter que la fonction copie_date est la suivante :

Code:

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
Sub Copie_Date()
 
'copie la date du bordereau de visites
dossier = "C:\Bordereau de visites"
 
 
Sheets("Recherche").Select
 
date_visite = Range("E14")
Rep = Range("L1")
representant = Range("E1")
semaine_annee = "S" & Range("F1") & "_" & Range("G1")
 
monfichier = Dir(dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
fichier = (dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
 
    Workbooks.OpenText Filename:=fichier
    Range("G5").Copy
 
    Windows("Recherche_Bordereaux.xls").Activate
    Sheets("Bordereau de visites").Select
 
    Range("C8").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, -1).Select
    ActiveSheet.Paste
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    valeur = ActiveCell.Value
 
    If IsEmpty(valeur) Then
        ActiveSheet.Paste
        Range(Selection, Selection.End(xlDown)).Select
        ActiveSheet.Paste
    Else
    End If
 
 
 
End Sub

My name is Mac Bidouille, Mac Bidouille :yaisse2:

Au niveau syntaxe , on ne peut pas avoir 2 next sur la même boucle FOR.

Dans ton exemple , tu dois implémenter comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 For Each onglet In Application.ActiveWorkbook.Worksheets If IsEmpty(Range("A10")) Then 'on ne fait rien , il n'y a pas besoin du next Else ' 'on fait notre traitement end if next

09/04/2009, 10h34
wilfried_42

re:

tu changes ton code et tu dis que ca ne marche pas, elle est devenue quoi la boucle for i ----> next i

tu utilises plein de select sur les cellule mais tu ne sélectionnes aucun onglet, ce qui veut dire que tu ne travailles que sur une feuille

je ne comprends pas ce que tu cherches à faire avec ta macro

mais sans la boucle For i ----Next i, le exit for ne peut plus fonctionner .... il faut prendre la solution de code facile

Ok voici les réponses :

Citation:

tu changes ton code et tu dis que ca ne marche pas

=> marche pas, c'est à dire qu'une fois le 1er onglet fait lorsqu'il pas sur Next onglet il ne se passe rien et le code continue sur End sub

Citation:

elle est devenue quoi la boucle for i ----> next i

=> je l'ai supprimée car je pense qu'elle ne me servait du fait de mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Range("A10").Select ActiveCell.Offset(rowOffset:=0, columnOffset:=10).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlDown)).Select
Citation:

tu utilises plein de select sur les cellule mais tu ne sélectionnes aucun onglet, ce qui veut dire que tu ne travailles que sur une feuille

=> je travaille la feuille et ensuite je veux faire la même chose sur l'onglet suivant (Lundi, mardi, ... et enfin Vendredi)
Par ailleurs, c'est paour cela que si A10 est vide alors il faut passer à l'onglet suivant car cela signifie qu'il n'y pas de données sur l'onglet

Citation:

je ne comprends pas ce que tu cherches à faire avec ta macro

=> les valeurs de l'onglet lundi (si elles existent) doivent être copiées dans une autre fichier excel, idem pour les onglets mardi, mercredi, jeudi et vendredi

Citation:

mais sans la boucle For i ----Next i, le exit for ne peut plus fonctionner ....

=> A bon :oops: mais je croyais qu'il était destiné à

Code:

For Each onglet In Application.ActiveWorkbook.Worksheets

re:

exit veut dire sortir, Exit for veut dire sortir de la boucle for next ce qu'il faisait quand il y avait la boucle for i --> Next i, il sortait de cette boucle pour continuer la boucle for each onglet. mais une fois la boucle for i retirée, il sort de la boucle for next

donc en fonction de ce que j'ai compris, en reprenant le code de CodeFacile, il te manque la selection de l'onglet
Code:

1 2 3 4 5 6 7 8 9 For Each onglet In Application.ActiveWorkbook.Worksheets onglet.select If IsEmpty(Range("A10")) Then 'on ne fait rien , il n'y a pas besoin du next Else ' 'on fait notre traitement end if next

Malheureuse lorsque le code passe sur le next (ou next onglet), il passe sans rien faire.
En fait, je ne change pas d'onglet ???

voici le code :

Code:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub Importer_les_données()
 
Dim onglet As Worksheet
 
 
'For Each onglet In Application.ActiveWorkbook.Worksheets
 
dossier = "C:\Bordereau de visites"
 
 
Sheets("Recherche").Select
 
date_visite = Range("E14")
Rep = Range("L1")
representant = Range("E1")
semaine_annee = "S" & Range("F1") & "_" & Range("G1")
 
monfichier = Dir(dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
fichier = (dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
 
 
 
Workbooks.OpenText Filename:=fichier
 
For Each onglet In Application.ActiveWorkbook.Worksheets
'For i = 10 To 30
onglet.Select
   If IsEmpty(Range("A10")) Then
 
 
   Else
 
   Range("A10").Select
        ActiveCell.Offset(rowOffset:=0, columnOffset:=10).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlDown)).Select
 
        Selection.Copy
 
 
        Windows("Recherche_Bordereaux.xls").Activate
        Sheets("Bordereau de visites").Select
        'mettre une fonction pour aller à la dernière ligne
        ActiveSheet.Paste
 
        Copie_Date
   End If
 
Workbooks.OpenText Filename:=fichier
'Next i
Next 'onglet
 
 
 
 
End Sub

Bonjour,
mes petits commentaires sur ton code :
1) Les

Code:

select

sont à éviter car ils ralentissent le code.

2) ton code peut être simplifié. utilise With pour ton onglet en court
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 dim Scell as string Scell = "A10" For Each onglet In sheets with onglet If IsEmpty(.Range(Scell)) Then Else .range("A10:A30").copy destination:=workbooks("Recherche_Bordereaux.xls").Worksheets("Bordereau de visites").range("A" & Sheets("Bordereau de visites").Range("a65536").End (xlUp).row + 1) Copie_Date End If End With Workbooks.OpenText Filename:=fichier 'Next i Next 'onglet

09/04/2009, 14h08
liop49

Merci Godzestla de t'être penché sur mon cas désespéré

On m'a déjà parlé de mes select mais à chaque fois que j'évite d'en mettre, il y a des bug qui se mettent donc j'ai le select facile ;)

Sinon ton code ne donne pas de meilleur résultat, je pense que c'est à cause du passage du fichier "Recherche_Bordereaux.xls" au fichier "(fichier)". En tout cas j'ai l'impression qu'il ne sait plus où il est et du coup le next fait un next dans le vide !!

Suis-je clair :roll: ? Pas sûr ?

Bonjour tous,
Si j'ai bien compris la question...
Mais l'endroit de destination des copies n'est pas spécifié !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Importer_les_données()
Dim Sh As Worksheet
Dim Copie As Worksheet
Dim ColCopie As Integer
    Application.DisplayAlerts = False
    On Error Resume Next
    Workbooks.Open "E:\ClasseurTest2.xls"
    On Error GoTo 0
    Set Copie = Workbooks("ClasseurTest2.xls").Sheets("Resultat")
    Workbooks("ClasseurTest1.xls").Activate
    For Each Sh In Sheets
        If Sh.Range("A10") <> "" Then
            ColCopie = ColCopie + 1
            'Pour avoir un point de repère, peut-être supprimer ensuite
            Copie.Cells(1, ColCopie) = Sh.Name
            Sh.Range("A10:A30").Copy Copie.Cells(2, ColCopie)
        End If
    Next Sh
    Application.DisplayAlerts = True
    Workbooks("ClasseurTest2.xls").Activate
End Sub

A+

09/04/2009, 14h58
Godzestla
Oui tu es clair.

Il y a un truc qui me chipotte dans ton code

Ceci, juste avant le next
Code:

1 2 Workbooks.OpenText Filename:=fichier
A quoi cela sert-il ? Aucune idée.

D'autre part, il faudrait modifier l'instruction for pour forcer la référence au bon classeur, comme ceci, en supposant que le code se trouve dans le classeur a balayer:

Code:

For Each Sh In Thisworkbook.Sheets

ou comme ceci si on suppose que le classeur à traiter est "C:\test.xls"

Code:

For Each Sh In Workbooks("test.xls").sheets

ou comme ceci si le nom du classeur sous format classeur.xls est dans la variable monclasseur

Code:

For Each Sh In Workbooks(monclasseur).sheets

J'espère que cela dépanne.

Je suis flatté que vous preniez le temps de m'aider mais je crois que je suis une gros nul car je n'y arrive pas :cry:

@LeForestier :
Sur ton code le fichier "ClasseurTest1.xls" est pour moi fonction des éléments indiqué par l'utilisateur via ce code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 dossier = "C:\Bordereau de visites" Sheets("Recherche").Select date_visite = Range("E14") Rep = Range("L1") representant = Range("E1") semaine_annee = "S" & Range("F1") & "_" & Range("G1") monfichier = Dir(dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls") fichier = (dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls")
Bilan je suis obligé d'écrire le code suivant à la fin et il buggue dessus :

Code:

Workbooks(fichier).Activate

Par contre je pense qu'il faut que je rexplique mieux le système.
1. J'ai un fichier excel sous le format : Bordereau_Representant_Semaine_Annee.xls
Dans ce fichier, le representant a indiqué pour ses visites pour tous les jours de la semaine. Le fichier est donc constitué de 5 onglets (Lundi à Vendredi) et chaque onglet a les mêmes colonnes.
A noter que le représentant peut avoir renseigné aucune ligne sur un onglet (par exemple si repos le mardi) et 1 sur un autre et 10 sur un autre.
Ok ?

2. L'objectif est d'aller chercher les lignes renseignées de ces 5 oglets et de les coller dans le fichier de centralisation qu'est "Recherche_Bordereau.xls".
Ce dernier est constitué de 2 onglets.
Le 1er onglet (Recherche) permettant de lancer l'importation d'un fichier du type Bordereau_representant_semaine_anne.xls via des données à renseigner par l'utilisateur du fichier
Le 2ième onglet (Bordereau de visites) permettant d'intégrer les données à copier dans les fichiers de type Bordereau_representant_semaine_anne.xls

Suis-je plus clair ?

Nini

09/04/2009, 15h11
liop49

@Godzestla : Merci

Désolé j'ai posté pendant le tiens donc j'y répond

Citation:

A quoi cela sert-il ? Aucune idée.

Cela me permet de revenir au fichier où il y a les 5 onglets afin que le next onglet se fasse sur ce fichier et ainsi passer à l'onglet suivant. Le truc c'est que c'est là que çà ne fonctionne pas !!!!

Citation:

en supposant que le code se trouve dans le classeur a balayer:

Non il n'y a pas de code sur le classeur à balayer et je n'en souhaite pas car ce sont les utilisateurs qui travaillent dessus.

?:roll::?
09/04/2009, 15h12
Godzestla

Mais non pas nul.

Dans quel fichier se trouve ton code VBA ?
09/04/2009, 15h22
liop49

le code est dans le fichier "Recherche_Bordereaux.xls"

Bon dans le désordre :

Code:

Workbooks.OpenText Filename:=fichier

n'est certainement pas une solution pour revenir au fichier ou se trouve le code ou dieu seul sait quoi.

On n'ouvre un fichier qu'une seule fois.

Ensuirte un fichier excel, comme fichier texte, voilà une idée singulière. :aie:

Donc, le code se trouve dans le fichier cible (résultat).
Ce fichier résultat est donc inévitablement ouvert.

A ce stade je suppose aussi que le fichier avec les 5 onglets est aussi ouvert. Tu diras si tu calles la dessus ou pas.

Voici alors ce que devient le code, uniquement la partie que j'avais proposée et que j'adapte au fait que le code est dans le fichier cible.
Code:

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 dim Scell as string dim source as string dim cible as string Workbooks.Open Filename:=fichier 'le fichier avec les 5 onglets '..... source = activeworkbook.name 'qui est le fichier source cible = thisworkbook.name 'fichier cible , contenant le code thisworkbook.activate 'rend le fichier du code actif, si nécessaire Scell = "A10" For Each onglet In workbooks(source).sheets with onglet If IsEmpty(.Range(Scell)) Then Else .range("A10:A30").copy destination:=workbooks(cible).Worksheets("Bordereau de visites").range("A" & Sheets("Bordereau de visites").Range("a65536").End (xlUp).row + 1) Copie_Date End If End With 'Next i Next 'onglet 'force le fichier source à status sauvé et puis le ferme sans sauver Workbooks(source).saved=True Workbooks(source).close

Bon ça coince !:evilred:

Citation:

n'est certainement pas une solution pour revenir au fichier ou se trouve le code ou dieu seul sait quoi

:oops:

Citation:

Ensuirte un fichier excel, comme fichier texte, voilà une idée singulière.

Certe mais j'intégre ensuite toutes les données des représentants dans une base excel avec laquelle je peux faire des synthèses

Bon pour ton code :

Code:

Workbooks.Open Filename:=fichier 'le fichier avec les 5 onglets

je suis obligé de mettre avant cette ligne le code suivant pour définir la variable fichier n'est ce pas ?
Dans l'affirmatif, j'ai donc mis avant ton code ce ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim Scell As String Dim source As String Dim cible As String dossier = "C:\Bordereau de visites" Sheets("Recherche").Select date_visite = Range("E14") Rep = Range("L1") representant = Range("E1") semaine_annee = "S" & Range("F1") & "_" & Range("G1") monfichier = Dir(dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls") fichier = (dossier & "\Bordereau_" & Rep & "_" & semaine_annee & ".xls") Workbooks.Open Filename:=fichier 'le fichier avec les 5 onglets
Pour cette ligne
Code:

1 2 Else '.Range("A10:A30").Copy Destination:=Workbooks(cible).Worksheets("Bordereau de visites").Range("A" & Sheets("Bordereau de visites").Range("a65536").End(xlUp).Row + 1)
Je suis désolé mais ce n'est pas ce que je veux en tt cas je pense

Il faut copier uniquement les lignes qui sont renseignées et pas obligatoirement celles allant de A10 à A30.

Sinon ça fonctionne a priori
:yaisse2:

Dis moi si c ok pour les petits changements, STP

10/04/2009, 09h25
Godzestla

Bonjour,

Citation:

Citation:
Ensuite un fichier excel, comme fichier texte, voilà une idée singulière.
Certe mais j'intégre ensuite toutes les données des représentants dans une base excel avec laquelle je peux faire des synthèses

Je reste sur ma position car je ne comprends pas ton argumentation. Il me semble que tu ouvres un fichier excel en le considérant comme texte, et je trouve cela étrange.

Pour le code que tu as ajouté pour définir le FILENAME, bien sûr. C'était sous-entendu pour moi. Ta modif me semble ok. (j'ai regardé très vite).

Pour la ligne copy, le mieux c'est que tu formules clairement ce que tu veux.
Au début j'avais compris de A10 à A31 si Ai pas vide et puis tu as abandonné ce desiderata et maintenant tu parles de lignes renseignées.

Merci de reformuler.
Avec une boucle, il y a moyen de le faire.

Re,
j'ai refait le code avec tes noms et quelque modif (en fonction des remarques pertinantes de Godzestla) pour mieux comprendre.

Code:

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
Sub Importer_les_données()
Dim Sh As Worksheet
Dim Copie As Worksheet
Dim Wko As Workbook
Dim ColCopie As Integer
    Application.DisplayAlerts = False
    On Error Resume Next 'si déja ouvert
    Workbooks.Open Chemin & "Bordereau_Representant_Semaine_Annee.xls"
    On Error GoTo 0
    Set Wko = Workbooks("Bordereau_Representant_Semaine_Annee.xls")
 
    Workbooks("Recherche_Bordereau.xls").Activate
    Set Copie = Sheets("Bordereau de visites")
    For Each Sh In Wko.Sheets
        If Sh.Range("A10") <> "" Then
            ColCopie = ColCopie + 1
            'Pour avoir un point de repère, peut-être supprimer ensuite
            Copie.Cells(1, ColCopie) = Sh.Name
            'içi j'ai toujours pas compris comment sont agencée
            'les lignes et colonnes, faut donc adapter la copie
            Sh.Range("A10:A30").Copy Copie.Cells(2, ColCopie)
        End If
    Next Sh
    Wko.Close
    Set Wko = Nothing
    Set Copie = Nothing
    Application.DisplayAlerts = True
    Workbooks("Recherche_Bordereau.xls").Activate
End Sub

les objets Wko et Copie c'est pour éviter des lignes qui sortent de l'écran ce qui façilite la lecture du code, mais surtout pour la rapidité du code, VBA pointe directement sur l'objet et il n'est pas nécessaire, à chaque itération, de repasser par tout les pointeurs.
Explique un peu mieux comment sont les données sur les feuille du classeur ...annee.xls
et où les copier sur la feuille "Bordereau de visites" (lignes/Colonnes)
A+

Voir 40 message(s) de cette discussion en une page