Bonjour,

qu'attends-tu pour mettre ton code et un peu de tes données !!

à première vue, ça n'a pas l'air très sorcier.

tu devrais même pouvoir t'en tirer seul en enregistrant une macro lorsque tu fais l'opération manuellement.

à te lire

Bonsoir,

je pense que le fait de rajouter Local:=True à la fin de la méthode OpenText de ta 1ère procédure (importation()) devrait solutionner tes problèmes.

Si ça ne suffit pas, mettre Array(0, 4) comme premier argument du Fieldinfo de l'OpenText

en regardant cette procédure, je me suis dit qu'il serait possible de la simplifier à 2 niveaux :
1) la méthode opentext permet de sauter des colonnes et de formater les colonnes
2) plutôt que de marquer les lignes sans date par des X pour ensuite les supprimer, pourquoi ne pas le faire tout de suite.
ça donnerait alors :

Sub Importation_bis()
' Importation Macro
' Macro enregistrée le 27/06/2006 par SERMA
' modif ODVJ le 15/10/2006
Dim MonFichier As Variant

MonFichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If MonFichier <> False Then
    'le 2ème argument de chaque array du fieldinfo a pour signification :
    '==== 9 : colonne non distribuée
    '==== 3 : date au format J/M/A
    '==== 1 : format standard
    'local=:True permet d'utiliser les paramètres internationaux du système
    'c'est ce qui doit régler ton pb
    
    Workbooks.OpenText Filename:=MonFichier, Origin:=xlWindows, _
    StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 4), Array(17 _
    , 9), Array(20, 9), Array(25, 9), Array(29, 1), Array(34, 1), Array(48, 9), Array(83, 9), _
    Array(89, 1), Array(124, 1), Array(141, 1), Array(158, 1), Array(179, 9)), _
    TrailingMinusNumbers:=True, local:=True
        
    'ActiveSheet.Move Before:=Workbooks("Traitement global.xls").Sheets(1)
    
    'recupere le n° de la ligne courante
    Nblig = ActiveCell.SpecialCells(xlLastCell).Row
    Range("A1").Select
    'suppression des lignes différentes d'une date
    i = 1
    While i <= Nblig
        If Not (IsDate(Cells(i, 1))) Then
            Cells(i, 13).EntireRow.Delete
            Nblig = Nblig - 1
        Else
            i = i + 1
        End If
    Wend
    Range("A1").Select
    'lancer la macro de fusion des comptes
    FusionneCompte
    'lancer Ajout en tête
    AjoutEntete
End If
End Sub

Bonjour,

Je ne sais pas si je vais pouvoir tester la modif aujourd'hui, je me suis envoyé du bureau chez moi par mail le fichier txt et le fichier xls contenant la macro. Lorsque je lance la procédure chez moi, j'ai le message suivant :

TrailingMinusNumbers:= (Tout cela en surbrillance)
Message : Erreur de compilation - Argument nommé introuvable

Cet argument en clair c'est ?

Je pense que je n'ai pas déterminé le bon chemin de mes données sur C:

D'autre part, je voudrais bien t'envoyer mes données mais je ne peux pas mettre mon fichier txt sur le forum.

Un grand merci, je te t'informe de la suite dès que possible

Cordialement
Catherine

Bonjour,

curieux, ça passe chez moi sans problème.

tu peux utiliser Cjoint pour monter tes données et ton classeur.
si c'est la confidentialité qui te gêne, change les infos tout en gardant la structure du txt bien sûr.

le trailing minusmachin c'est pour le positionnement du signe négatif à droite des nombres. en fait ça ne doit pas te servir et tu peux le virer.

au fait, tu as bien un caractère _ en fin de ligne précédente !

A+

Autre question, le dernier paramètre, le local:=true, tu l'as bien mis avec := et non pas = simplement
A+

Bonsoir,

Je voudrais bien envoyer un extrait de mon fichier txt ainsi que mon fichier xls mais je ne sais pas où le joindre.

J'ai bien le caractère _ en fin de ligne précédente et j'ai bien mis local:=true

A +

Cordialement
Catherine

Bonsoir,

tu peux utiliser http://cjoint.com/

A+

http://cjoint.com/?kptFISgdpE
http://cjoint.com/?kptKDHPA61

Je tente d'envoyer mes fichiers, dont le fichier txt épuré. J'espère que ça va marcher.

J'ai enlevé les 3 premières lignes comportant le nom de la société et la source du fichier.

J'ai modifieé les noms des tiers Je crois que par erreur j'ai également supprimé la dernière colonne du fichier.

J'espère que ces deux fichiers seront exploitable pour toi

Merci encore

Cordialement
Catherine

Bonsoir,

à première vue, il manque un s à number

je continue à regarder

A+

Bonsoir,

ensuite, le Workbooks("Traitement global.xls").Sheets(1) doit planter car le fichier concerné n'a pas d'espace : Traitementglobal.xls.

A+

Bonjour,

J'ai testé en arrivant au bureau, CA MARCHE !!!

Chez moi, j'avais reconstitué les dossiers et fichiers de mémoire et j'ai du faire erreur quelque part.

Effectivement, ça marche sans le local:=True, j'ai seulement modifié le 1er Array(0,4)

Un grand coup de chapeau, un grand merci et certainement à une autre fois car je crois que je vais me lancer, je pense que ça ne sera pas sans mal. Si tu as un conseil à me donner pour démarrer, il sera le bienvenu.

Cordialement
Catherine

Bonour,

Je croyais mon affaire résolue et je viens de me rendre compte que j'ai encore un pb sur le n° de pièce (le 12ème array) car j'ai des cellules qui comportent des chiffres et des lettres, le tout en format texte.

Quel code faut-il utilisé en 2ème argument sur "l'array n° 12" pour solutionner le pb ?

Désolée, j'étais tellement contente que je me suis focalisée sur les dates et j'ai oublié de vérifier le reste. J'ai 3500 lignes dans mon fichier !!!

A +

Cordialement
Catherine

Bonjour,

quel problème as-tu?

A+

Bonsoir,

En fait la procédure mise en place par le formateur est un peu complexe.

Les fichiers générés par la procédure que tu viens de m'aider à corriger, ou plutôt que tu viens de corriger, sont transférés en tables attachées dans Access. Le problème est que dans excel, les données de la colonne "PIECE" sont en format standard avec des cellules composées uniquement de chiffres et d'autres avec des chiffres et des lettres. Dans Access, le format déterminé automatiquement est numérique, donc toutes les cellules contenant des lettres sont en erreur et comme la table est attachée, je ne peux pas modifier le format de champ, les champs étant définis dans la base de données externes.

Je pense qu'il faudrait compléter la macro excel afin que les lettres contenues dans la colonne "PIECE" soient exclues.

Tu vois mon problème, mais j'ai l'impression d'abuser un peu.

Mon gros problème est surtout que je n'ai pas trop le temps d'attendre de me former, de surcroît seule, pour résoudre cela, j'ai un très gros travail de consolidation comptable à faire sur 5 sociétés.

D'avance merci
Cordialement
Catherine

Bonsoir,

tu vois, ce que tu dis n'est pas assez précis :

veux-tu que simplement le champs pièces soit effacé uniquement s'il contient de l'alphanumérique?

ou veux-tu que l'enregistrement complet soit supprimé si le champs pièces contient de l'alphanumérique?

le dernier cas est très simple vu qu'il ressemble à l'exclusion des enregistrements dont la première colonne n'est pas une date :

For i = 1 To Nblig
    If IsDate(Cells(i, 1)) And IsNumeric(Cells(i, 12)) Then
        Cells(i, 13).Value = "X"
      Else
        Cells(i, 13).Value = Empty
    End If
Next i

For i = 1 To Nblig
    If IsDate(Cells(i, 1)) Then
        Cells(i, 13).Value = "X"
        If Not (IsNumeric(Cells(i, 12))) Then Cells(i, 12) = Empty
      Else
        Cells(i, 13).Value = Empty
    End If
Next i

Bonjour,

Effectivement, je n'ai pas été claire, je veux qu'un champ alphanumérique devienne un champ numérique.

ex : 966B devient 966

Du style : RECHERCHER : un caractère alpha
REMPLACER PAR : (rien)

Il ne faut surtout pas supprimer un champ ou un enregistrement.

Merci

A +
Catherine