erreur 1004 mise en forme tableau

[ptifanou]

Bonjour,
j'ai un problème sur un classeur avec 2 feuilles, 1 macro pour chaques feuilles qui importe les données d'un fichier texte et les met en forme:feuil1 macro prev et feuil 2 macro realiser.
J'ai rajouter une macro "miseenformedetableau" pour mettre en forme tableau les données extraites, et malheureusement je tombe sur une erreur 1004 :

je ne comprends pas pourquoi!!!

 

[laurent3372]

On ne peut pas reproduire le bug pour l'analyser, car les fichiers txt sont absents.

 

[goube]

Bonjour,

Quel version d'excel possèdes tu ?
Si tu as accès à Power Query, je pense qu'il est possible de travailler directement à partir de ton fichier texte.
Peux tu le mettre sur le site ?
Cordialement.

 

[ptifanou]

merci de prendre le temps de me répondre, je vous joints le fichier.txt
oui j'ai powerquery mais ne je ne comprends pas l'avantage à l'utiliser.
cdlt,

 

[goube]

Re,

oui effectivement le fichier texte n'a pas l'air très compatible avec power query.
Désolé.

Macro à tester.

Sub MFC_Tableau()

    Feuil2.Activate
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveSheet.QueryTables("GASE-SELE_59147212").Delete
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$25"), , xlYes).Name = _
        "Tableau2"
    Range("Tableau2[#All]").Select
    ActiveSheet.ListObjects("Tableau2").TableStyle = "TableStyleLight1"
End Sub

Le message vient du fait qu'il y a une requête active dans la plage de données.
d'ou le : ActiveSheet.QueryTables("GASE-SELE_59147212").Delete
Cordialement.

 

[laurent3372]

Les cellules de la colonne A pouvant contenir des blancs, on les supprime.
La création de table dans miseenformede tableau échouait parce que la Querytable créée dans la sub PREV n'était pas détruite. Le message d'erreur était assez explicite.
Sub PREV corrigée:

Sub PREV()
    ActiveSheet.UsedRange.Clear
'convertir et extraire .txt
With ActiveSheet.QueryTables.Add(Connection:= _
       "TEXT;C:\Users\MVVD2765\Desktop\EXCEL 2\ATTACHEMENTS\REALISER\GASE-SELE_59147212.TXT" _
        , Destination:=Range("$A$1"))
        .Name = "OEIE.AMS_900210.txt"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "|"
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        .Delete     'On supprime la Querytable
    End With
    'supprimer colonnes
    
    Columns("A:B").Delete Shift:=xlToLeft
    
    'supprimer ligne au dessus de asp
    Dim p As Range
    On Error Resume Next
    Set p = Columns(1).Cells.Find("asp")
    Rows("1:" & p.Row - 1).EntireRow.Delete
    'supprime tout en dessous de f/mat
    On Error Resume Next
    Range(Cells(Rows.Count, 1), Columns(1).Cells.Find("F/Mat").Offset(1)).EntireRow.Delete
    ' On supprime les espaces blancs dans la colonne A
    Range("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    'supprime ligne vides
    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delet
End Sub

Cordialement,
--
LR

 

[ptifanou]

Bonjour merci a vous,
serait il possible remplacer
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\MVVD2765\Desktop\EXCEL 2\ATTACHEMENTS\REALISER\GASE-SELE_59147212.TXT"
par
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;listbox1.value"
pour créér un bouton dans un userform afin de lancer cette macro selon le nom d'un fichier présent dans une listbox?
cdlt

 

[laurent3372]

Pas besoin d'Userform, j'utilise GetOpenFileName

 

[ptifanou]

merci laurent,
mais en fait je te joints un fichier avec un userform, je voudrais que la macro PREV soit activer en cliquant sur un bouton de ce userform et ouvre le fichier selectionner dans une listbox.

 

[laurent3372]

Avec quoi dois-je remplir les différentes ListBox de ton formulaire ?
A quels traitements correspondent les différents boutons ?

 

[ptifanou]

Les listes box contiennent des noms de fichiers indexé depuis un dossier windows, par exemple oeie. Ams900210. Txt
Le bouton en dessous de listbox me servirait à lancer la macro prev, c à d insérer dans une feuille ce fichier en le mettant en forme.
Et je voudrais que cette macro récupère le nom du fichier sur le lequel je suis positionner dans ma listbox pour ouvrir ce fichier.

 

[laurent3372]

Ou est-ce que je trouve le nom du répertoire dont je dois lister les fichiers ?
C'est une constante ?

 

[laurent3372]

Sans réponse, j'ai considéré que c'était une constante que j'ai introduite dans la procédure UserForm_Initialize.
Tu me diras si tu veux que j'étende le procédé à la macro REAL.

 

[ptifanou]

Merci beaucoup laurent de passer sur mon cas!!!
le userform fonctionne, par contre lorsque j'essaye de copier ton code sur une 2eme list box(lbfiles2) dans le même userform qui pointe sur un autre dossier cela ne marche pas.
amicalement

 

[laurent3372]

C'est normal que ça ne marche pas : il n'y a pas de bouton pour lancer la macro sur le fichier sélectionné dans lbFiles2

Je suppose que c'est la macro REAL que tu veux lancer dans ces cas-là.