Propriété ou méthode non gérée par cet objet

Bonjour,

Je fais une tranformation de fichier .txt à .xlsx (dans une macro).
Par la suite j'ajoute un code pour que certaines colonnes arrivent au bon endroit, tout est correct à ce moment.

Pour celui qui utilisera cette macro, j'ajoute un bouton pour qu'il puisse cliquer pour faire fonctionner la macro (comme les autres macros que j'ai créées d'ailleurs).
C'est à ce moment que je reçois ce message d'erreur. La macro arrête après la transformation du fichier.

Quelqu'un peut m'aider ?

Merci à l'avance.

Triplejay

Citation:

Envoyé par Triplejay

Bonjour,

Si du code doit résider dans votre nouveau fichier, il faut qu'il soit du type .xlsm et non .xlsx.

Citation:

Envoyé par Triplejay

C'est à ce moment que je reçois ce message d'erreur. La macro arrête après la transformation du fichier.

Sans voir le code, sans connaitre le message d'erreur et sans savoir quelle ligne de code le déclenche, je ne vois pas comment il pourrait être possible d'apporter une réponse exploitable.

Voici mon code,
Ce code est dand un fichier .xlsm, je vais chercher un .txt que je sauvegarde en .xlsx. Si c'est tel fichier Photo_C3P1.txt, il est transformé de telle manière et plus bas, je dois lui faire une dernière transformation pour que tout soit correct. Tout fonctionne très bien
Par contre, quand je place ce code sous un bouton clic, il ne fait pas la dernière transformation

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
Sub IMPORT()
 
    Dim nomfichier As String
    Dim fichier As String
 
    nomfichier = RechercheFichier()
    If nomfichier = "" Then
        MsgBox "Vous n'avez sélectionné aucun fichier"
    ElseIf nomfichier = "C:\Users\b0086773\Documents\TABLEAU_DE_BORD\Photo_C3P1.txt" Then
        Workbooks.OpenText nomfichier _
        , Origin:=xlwinDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True, _
        FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    ElseIf nomfichier = "C:\Users\b0086773\Documents\TABLEAU_DE_BORD\ShelfLife.txt" Then
        Workbooks.OpenText nomfichier _
        , Origin:=xlwinDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=True, otherchar:="|", FieldInfo:=Array(Array(1, 1), _
        Array(2, 1)), TrailingMinusNumbers:=True
    End If
 
Dim extension As String
Dim style As Integer
extension = ".xlsx"
Application.ScreenUpdating = False
'MsgBox ThisWorkbook.Path
With ActiveWorkbook
    '.SaveAs Filename:=nomfichier '& extension    donne fichier.txt.xlsx
    '.SaveAs Filename:=nomfichier, FileFormat:=xlOpenXMLWorkbook 'erreur 1004
    .SaveAs Filename:=Left(.FullName, InStrRev(.FullName, ".")) & "xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    On Error GoTo exterieur
    '.Close
End With
exterieur:
 
a = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row  ' vérifie colonne d'inventaire
 
If ActiveWorkbook.Name = "Photo_C3P1.xlsx" Then
For i = 2 To a
    If IsNumeric(Cells(i, 5)) = False Then
        Cells(i, 6) = Cells(i, 5)
        Cells(i, 5).ClearContents
    End If
Next i
End If
 
End Sub