Reprise du message précédent :
Si tu nous disais la ligne où il plante déjà...

Si j'ai compris ca remarque il nous dit que  

FileCopy SourceFichier, NomFichier

ne marche pas...
Ca fait à peu près 2 jours que je lui demande s'il a testé avant de faire ça    
Donc si j'ai bien compris et ben t'es parti pour une vrai copie
tu ouvres ton fichier texte tu lis le contenu et tu l'écris dans l'excel
bonne chance

ligne 58  alors que tout marchait bien avant ...les calls

xme je voulais te dire que le programme fonctionné nickel pour 1 ex ....... et je voulais qui marche pour plusieurs ( avec les calls )  donc si il marchait... logiquement FileCopy SourceFichier, NomFichier marchait à la perfectionnement ( j'en suis sur même ) .... !!!

Tiens c'est pas bête ça    
donc ligne 58

Columns("A:A" ).Select

erreur 1004, c'est quoi le message associé?
car bon j'ai un doute que ça ça puisse planté...
Est ce que tu nous donnes correspond à ce que tu fait tourner?
Car tu sais il existe un débuggeur sous excel qui permet de voir sur quel ligne ca plante

erreur définie par l'application ou par l'objet

whaou on ne peut moins claire    
bon peux-tu avec le dbuggeur excel vérifié sur quel ligne ca plante merci

ligne 58  deja dit

ou c'est  , avec f8 , c'est au moment du passage vers With Selection.Font que ca plante

J'ai l'impression que ton With ActiveSheet ne sert à rien ou du moins qu'il n'est pas utilisé. Essaye de mettre un . devant Columns ligne 58 mais ça m'étonnerait que ce soit ça.

Bon vraiment bizarre, je vois aucun bug apparent
à part ça, qui me dérange  

Workbooks.Open Filename:=NomFichier
Workbooks(i & ".xls" ).Worksheets(1).Activate

mais vu que tu disais que ca marchait pour un...
c'est du VBA donc je m'y connais pas trop mais en VBS
on aurait plutôt fait:

Set objExcel = CreateObject("Excel.Application" )
objExcel.Workbooks.Open(NomFichier) 
Set feuille = objExcel.Workbooks(1).Worksheets(1)

donc en VBA je veux bien que la déclaration de l'objet excel soit inutil mais c'est le coup du Workbook (i & ".xls" ) qui me dérange ..
 
Après en regardant comme ça je vois rien de plus qui me choque
Si tu n'as pas d'autre élément, (genre en fait le code à changé)
Esssaye d'afficher le contenu de tes variables et essaye de voir si tu arrives bien à te connecter au fichier.
Si malgrès tout tu ne trouves pas, faudra passer tes sources car là je vois pas....

pourquoi le Workbook (i & ".xls" )  te choque ?

Bonjour,
ne manquerait-il pas un .  devant le columns   , ligne 58 ??
Cordialement

Bonjour tout dabord merci de votre aide  
 
Non il ne manque pas de . devant le columns sinon error ...  
Je viens d'effectuer la macro en dure , avec i des valeur fixe du style ""P37796"" , en enlevant les call et ..ca marche ... le probleme viendrait des call ...

J'ai aussi changer le function en sub ...  à mon avis le probleme vient de la ...

T'as testé ça marche ? Ou bien tu supposes (et auquel cas tu ferais mieux d'essayer au lieu de poster) ?

ben oui j'ai testé

quand je remet comme avant avec pas de call , des sub , des noms en dur .. ca marche , sinon ca bloque pour des raison différence à différence étape ... il faudrait remplacer les call par un autre truc en gardant les sub ...

A mon avis ça vient pas directement des CALL.
 
Ca plante au 2eme CALL ou dès le premier ?

Je ne sais pas comment ca marche en VBA, mais ne faut-il pas déclarer la fonction avant de l'appeler avec un call?
-> donc teste de mettre les call après la déclaration pour voir

au premier ... au niveau de la conversion du document .. mais le début se passe bien ( alors que la conversion marche bien en dur ..)

merci xme .. mais même si le place apres , je suis obliger de lancer le call  en premier, j'arrive pas à lancer function...( car on ne pas lancer directement des functions apparement )

Non pas besoin. Même depuis un module différent tu n'as rien besoin de déclarer en VBA.
 

   
Pour lancer une fonction c'est justement avec CALL.

RE,
SI ton code correspond à ce que tu as mis dans ton post: je ne vois pas de point devant columns ligne 58!!!! sur tes post's 1913561 et 1913889 peux-tu remettre ton code actuel??  
j'ai testé ta séquence en entier avec tes trois appels: Il manque une fermeture sytématique de tes .xls, tu plantes sur le saveas ...parce que tu veux recouvrir un classeur qui est ouvert. Un save pourrait passer.
 
Cordialement

Merci papou mais le code dixit marche bien en dur ... sans les call avec des sub .... il y aurait pas un autre moyen pour palier au call en gardant des sub ...
 
voici le code  
 

Sub toto()
 
Call lolo("P37786" )
Call lolo("P37792" )
Call lolo("P37796" )
 
End Sub
 
Function lolo(i As String)
 
'L'utilisateur vient sélectionner le répertoire
 
Dim xlApp As New Excel.Application
Dim xlBook As Workbook
Dim NomFichier As String
 
Dim Repertoire As FileDialog
Dim nom As String
Dim SourceFichier
 
h = "D:\Documents and Settings\x7001\Bureau\Laurent inventaires prévoyance"
 
 
'Ouverture des fichiers TXT envoyés par le SI (le nom reste invariable)
 
nom = h & "\"
 
 
'création fichier cible (vide) dans le fichier que l'utilisateur à créer pour mettre les fichiers du SI txt
 
Set xlApp = CreateObject("Excel.Application" )
Set xlBook = xlApp.Workbooks.Add
 
 
NomFichier = nom & i & ".xls"
xlBook.SaveAs NomFichier
xlBook.Close
xlApp.Quit
 
Set xlBook = Nothing
Set xlApp = Nothing
 
SourceFichier = nom & i & ".txt"
FileCopy SourceFichier, NomFichier
 
 
Workbooks.Open Filename:=NomFichier
 
Workbooks(i & ".xls" ).Worksheets(1).Activate
 
With ActiveSheet
 
 
    Columns("A:A" ).Select
    With Selection.Font
        .Name = "Courier New"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.TextToColumns Destination:=Range("A1" ), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    ChDir "D:\Documents and Settings\x7001\Bureau"
    
    
    'On enregistre le nouveau document au format xls créer
    
    ActiveWorkbook.SaveAs Filename:= _
        NomFichier, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
 
 End With
 
 
End Function

Comme a dit seniorpapou il faut que tu fermes à la fin les classeurs que tu ouvres. Ce n'est pas un problème de CALL mais juste que ta fonction est appelée plusieurs fois de suite.

Et remplace function par sub c'est plus propre.

je les ferme quel workbooks  à quelles lignes ..?

Celui que t'as ouvert quand t'as fini de l'utiliser.

ligne 39 mais ca plante encore + tot ...
 
' fermeture fichier
Workbooks(nom & i & ".xls" ).Close savechanges:=False

Le fermer avant de l'ouvrir c'est fort.

loool je croyais quel était ouverte j'aime bien la photo avec laporte , jeu de mot avec le nom et tout bravo  
 
ben je les mis en derniere ligne alors mais .. l'erreur persiste