Discussion :

[licpegpon]

Il faut que je prépare un court extrait du fichier de données, mais pas possible aujourd'hui, débordé. Je ferais cela début de semaine prochaine. Merci encore.

Cdlt.
Jérôme.

[patricktoulon]

re
j'ai pas testé mais ca doit être cela

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
Sub macro()
'
    Dim derniere_ligne&, dial, fichier, Wbk As Workbook
    Set dial = Application.FileDialog(msoFileDialogFilePicker)
    With dial
        .Filters.Add "All files", "*.*"    'déterminer une extension de fichier ici (OU PAS!!!!)
        .InitialFileName = "P:\EXPORT\"    'déterminer la racine ici(OU PAS!!!)
        If .Show = -1 Then
            fichier = .SelectedItems(1)
        Else
            MsgBox "Selection de fichier Annulé"    'si click sur Annuler
            Exit Sub    'on sort de la sub
        End If
    End With
    Set Wbk = Workbooks.Open(Filename:=fichier)
    With Wbk.Sheets("nomDuSheetsAscruter")    'mettre le bon nom du sheets ICI!!!!!!
        derniere_ligne = .Range("A1").End(xlDown).Row    '!!!!!.Range("A"& rows.count).End(xlup).Row!!!!!!!!!!!!!!!!!
        .Range("U1:U" & derniere_ligne).AutoFilter Field:=1, Criteria1:="=*report*"    'filtre sur la colonne "U" la 21
        .SpecialCells(xlVisible).EntireRow.Copy
    End With
    Wbk.Close False
 
    'peut être activer le sheets de destination ici!!!!!!!
    ' et donc on colle le tout
    With Range("A1")
        .Select
        .Paste
    End With
    '
    MsgBox ("et voila c'est fini")
    '
End Sub

Attention!!!! XLDOWN ET XLUP si il y a des cellules vides en colonne "U" celles qui suivent ne seront pas prises en compte avec xldown

[licpegpon]

Bonjour Anasecu,

J'ai créé une version anonymisée du fichier "schema.xml_temporary". Pour cela j'ai effectué des remplacements dans toutes les colonnes.
Alors qu'auparavant j'avais un message d'erreur 13 (incompatibilité de type) maintenant je n'ai plus de message. Ce qui semble confirmer ce que tu dis....Comment puis-je tester une formule en erreur dans mon fichier ? Il n'y a pourtant aucune formule dans les colonnes ??
J'ai malgré tout joint le fichier "schema ...."

Cdlt.
Jérôme.

[licpegpon]

Réponse à Patrick Toulon,

A l'exécution j'ai le message :

[licpegpon]

Une petite précision. Lorsque je télécharge le fichier "schema ......" celui-ci a une taille d'environ 254 Mo. Ce fichier est au format CSV. En faisant enregistrer/sous je le convertit au format xlsx. C'est à partir de ce fichier (.xlsx) que j'exécute la procédure....