Aide pour mon code

Le 16/03/2021 à 15:22

Bonjour à tous,

je suis un novice extrême en VBA (autant dire que je n'y pige rien) autant j'arrive à le lire un peu, l'écrire c'est une cata. Donc je m'aide de l'enregistreur de macro.

Je voudrais ouvrir un fichier txt dans excel avec comme point de départ le contenu d'une cellule.

Ensuite copier le contenu du fichier txt ouvert sous excel et mis en forme pour l'envoyer dans mon fichier d'analyse.

Alors j'ai enregistré l'idée pour un cas et ensuite modifié le code pour qu'il prenne le nom de mon fichier en fonction du nom de ma cellule. Mais du coup la macro bug sur une ligne et je ne pige pas pourquoi.

Donc ça c'est le cas que j'ai enregistré :

Workbooks.OpenText Filename:="C:\Data\Wtsofbel_Cut\output\0254013997.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1)), TrailingMinusNumbers:=True

et ça c'est quand j'ai modifié le code, ça bug où c'est surligné. Histoire d'être complet la cells(1,8) c'est la cellule H1

Workbooks.Open "C:\Data\Wtsofbel_Cut\output\" & "0" & Cells(1, 8).Value & ".txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1)), TrailingMinusNumbers:=True

La seule info que j'aie trouvé concernant le startrow c'est :

StartRow : indique à partir de quelle ligne le tableau comence

Le message d'erreur est :

Erreur de compilation: Argument nommé introuvable

ce qui pour le coup ne m'aide pas lol

Auriez-vous une idée?

merci beaucoup

Le 16/03/2021 à 15:25

Mmmmh A premiere vue difficile d'identifier les problèmes.

(penses à mettre le code dans les balises </>)

Mais je sais que l'enregistreur de macro adore rajouter des lignes pour rien, as-tu esasyé de tout simplement supprimer StartRow = 1 ?

Workbooks.Open "C:\Data\Wtsofbel_Cut\output\" & "0" & Cells(1, 8).Value & ".txt", _
Origin:=xlMSDOS, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1)), TrailingMinusNumbers:=True

A tester

A+

Le 16/03/2021 à 15:27

ça bug après du coup :/

Le 16/03/2021 à 15:29

Zut,

Peux-tu envoyer le fichier txt en question ? et un exemple du format qu'il doit avoir une fois ouvert par Excel ?

Cela aiderais pas mal

Le 16/03/2021 à 15:35

90254013997.zip (9.97 Ko)

60254013997.xlsx (97.39 Ko)

Le 16/03/2021 à 15:53

j'ai trouvé je pense :p

j'avais modifié Workbooks.OpenText Filename: en Workbooks.Open

et à mon avis il n'identifiait pas le format d'ouverture du fichier (je m'exprime techniquement mal je pense)

Le 16/03/2021 à 15:58

Cela à résolu le problème ? Je suis surpris qu'un .Open ne fonctionne pas, peut être qu'il n'accepte pas les même arguments c'est pour cela.

Le 16/03/2021 à 17:48

Ben là maintenant ça tourne

sauf que j'ai ceci, et là c'est le big mystère. Car en gros la seule chose qui change c'est le nom du fichier source. J'ai bien tout qui est bon, j'ai réécrit la partie mai, copié celle d'avril...bref je l'ai faite dans tous les sens...ça ne veut rien savoir

Le 16/03/2021 à 18:07

je viens de trouver

en fait, je lui fais ouvrir des fichiers en fonction d'un même nom, ils ont du coup en effet le même nom mais j'oubliais de lui ordonner de fermer l'excel.

Du coup, j'avais deux fichiers qui s'ouvraient avec le même nom et ça buguait....

Par contre j'ai une autre question :

si pour avril je n'ai pas de fichier, ça crashe....comment puis-je lui dire, si c'est erreur ben va en mai?

Le 17/03/2021 à 08:49

Salut Monza 86.

Au début du code écrit: (cela prendra effet pour toutes le reste du code)

On Error Resume Next

Si erreur -> aller à la prochaine ligne

A+ :)

Le 18/03/2021 à 09:54

Voici ma macro.

La commande on error resume next fait que rien ne s'exécute (surtout l'enregistrement en fin de code)

L'idée c'est qu'il aille chercher un fichier dans le dossier janvier, février etc.... cependant, il n'y a pas toujours un dossier en janvier, février. Donc j'aimerais qu'il passe de la partie janvier vers février.

Il faut probablement nommer les parties alors...Comment puis-je faire?

Encore merci pour votre patience.

Sub Macro1()

' Macro1 Macro

' Touche de raccourci du clavier: Ctrl+i

'mettre le nom de l'organisme analysé

Range("H1").Select

Selection.Copy

Windows("Décl Finprof 2020.xlsx").Activate

Range("B2").Select

ActiveSheet.Paste

Range("B3:B4").Select

Application.CutCopyMode = False

Selection.Copy

Windows("BCE vierge.xlsm").Activate

Range("I1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

'copier les données finprof

Sheets("Comparaison").Select

Range("H1").Select

Selection.Copy

Windows("Décl Finprof 2020.xlsx").Activate

Sheets("Recherche").Select

Range("B2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("J3:J14").Select

Selection.Copy

Windows("BCE vierge.xlsm").Activate

Sheets("Comparaison").Select

Range("I3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

'copier les données softbel

Sheets("Comparaison").Select

Workbooks.OpenText Filename:="C:\Data\Wtsofbel_Cut\output\" & "0" & Range("H1").Value & ".txt", _

Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _

Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _

Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _

Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _

, 1), Array(16, 1)), TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("Sofbel").Select

Cells.Select

ActiveSheet.Paste

'copier valeur finprof détail janvier

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202001 output\"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202001 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _

Array(Array(0, 1), Array(10, 1), Array(15, 1), Array(28, 1), Array(38, 1), Array(48, 1), _

Array(58, 1), Array(68, 1)), TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202001P").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail février

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202002 output\"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202002 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _

Array(Array(0, 1), Array(10, 1), Array(15, 1), Array(28, 1), Array(38, 1), Array(48, 1), _

Array(58, 1), Array(68, 1)), TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202002P").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail mars

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202003 output\"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202003 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _

Array(Array(0, 1), Array(10, 1), Array(15, 1), Array(28, 1), Array(38, 1), Array(48, 1), _

Array(58, 1), Array(68, 1)), TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202003P").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail avril

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202004 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202004 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202004").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail mai

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202005 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202005 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202005").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail pécule

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202005-PEC output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202005-PEC output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202005Pec").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail juin

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202006 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202006 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202006").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail juillet

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202007 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202007 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202007").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail aout

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202008 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202008 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202008").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail septembre

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202009 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202009 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202009").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail octobre

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202010 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202010 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202010").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail novembre

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202011 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202011 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202011").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail décembre

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202012 output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202012 output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202012").Select

Range("A1").Select

ActiveSheet.Paste

'copier valeur finprof détail allocation de fin d'année

Sheets("Comparaison").Select

ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202012-AFA output"

Workbooks.OpenText Filename:= _

"C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202012-AFA output\" & "0" & Range("H1").Value & ".txt" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _

Array(0, 1), Array(12, 1), Array(22, 1), Array(32, 1), Array(42, 1), Array(52, 1)), _

TrailingMinusNumbers:=True

Cells.Select

Selection.Copy

ActiveWindow.Close

Windows("BCE vierge.xlsm").Activate

Sheets("202012AFA").Select

Range("A1").Select

ActiveSheet.Paste

'enregistrer le fichier avec le bon nom sur le data

Sheets("Comparaison").Select

Range("H1").Select

Selection.Copy

Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _

"C:\Data\2021\Réconciliation 2020\" & "0" & Range("H1").Value & ".xlsm", FileFormat:= _

xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Le 18/03/2021 à 10:55

Bonjour Monza,

Tout d'abord, penses à mettre le code sous balise grace à ce bouton stp: ca rend la lecture bcp plus facile !

Ensuite, je t'invites à lire ce sujet tu y trouveras quelques pistes intéressante je pense:

https://forum.excel-pratique.com/excel/macro-d-import-de-donnees-dans-d-autres-fichiers-excels-selon-la-semaine-151247

Enfin, lorsque tu as du mal à comprendre pourquoi ton code s'éxécute mal ou ne fait pas ce que tu souhaites, utilise la touche F8 pour éxecuter ligne par ligne ton code et ainsi trouver la ligne qui pose problème. De plus tu peux utiliser des STOP pour directement mettre en pause ton code là où tu le souhaite:

Un cas concret: je souhaite voir ce qu'il se passe sur cette ligne, et je ne veux pas passer 107 ans à éxecuter ma boucle en mode pas à pas j'utilise le stop pour m'arrêter sur la ligne rouge. (cliquer dans la marge pour mettre ou enelever un STOP)

Voila, j'espère t'avoir donné matière à reflexion pour dégrossir ton projet, je vais avoir peu de disponnibilités la semaine prochaine peut être qu'un autre membre du forum pourras prendre le relai pour répondres à tes questions.

A+

Le 18/03/2021 à 11:43

Bonjour tout le monde : juste une proposition et une remarque.
Proposition où la clé est dans le Trim(Str()) pour qu'il n'y ait pas d'espace perturbateur si 254013997 est un nombre.

Macro1()
    Dim fichier As String

    fichier = "C:\Data\Wtsofbel_Cut\output\" & "0" & Trim(Str(Cells(1, 8))) & ".txt"

    Workbooks.OpenText Filename:=fichier, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1)), TrailingMinusNumbers:=True
End Sub

Remarque : ce fichier texte rebaptisé 0254013997.csv est un fichier Excel qui s'ouvre comme un fichier Excel normal n'ayant qu'une seule feuille. Pourquoi ne pas le rebaptiser à l'aide d'une macro et l'importer normalement ?

Le 18/03/2021 à 11:56

Bonjour Gabin37,

merci pour ton lien, mais en fait ce n'est pas un vrai "calendrier". j'importe des données (fichier txt) pour ensuite exploiter les données.

Le code fonctionne nickel sauf quand le fichier n'existe pas dans le chemin que je lui donne. Exemple : je lui dis d'ouvrir le fichier 01552 dans le chemin

C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202001 output\

Mais dans ce dossier là, ce fichier est inexistant, donc du coup il va aller exécuter

Cells.Select
    Selection.Copy
    ActiveWindow.Close

Alors que j'aimerais qu'il passe directement à la ligne de février dans le code

'copier valeur finprof détail janvier
janvier:
    Resume Next
    On Error GoTo février
    Sheets("Comparaison").Select
 ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202001 output\"
    Workbooks.OpenText Filename:= _
        "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202001 output\" & "0" & Range("H1").Value & ".txt" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
        Array(Array(0, 1), Array(10, 1), Array(15, 1), Array(28, 1), Array(38, 1), Array(48, 1), _
        Array(58, 1), Array(68, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Selection.Copy
    ActiveWindow.Close
    Windows("BCE vierge.xlsm").Activate
    Sheets("202001P").Select
    Range("A1").Select
    ActiveSheet.Paste

'copier valeur finprof détail février
février:
    Resume Next
    On Error GoTo mars
    Sheets("Comparaison").Select
 ChDir "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202002 output\"
    Workbooks.OpenText Filename:= _
        "C:\Data\2021\Réconciliation 2020\2020\FINPR-P-202002 output\" & "0" & Range("H1").Value & ".txt" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
        Array(Array(0, 1), Array(10, 1), Array(15, 1), Array(28, 1), Array(38, 1), Array(48, 1), _
        Array(58, 1), Array(68, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Selection.Copy
    ActiveWindow.Close
    Windows("BCE vierge.xlsm").Activate
    Sheets("202002P").Select
    Range("A1").Select
    ActiveSheet.Paste

Le 18/03/2021 à 12:16

Merci pour lui et bon vent.

Le 18/03/2021 à 12:45

Bonjour Optimix,....

Dim Chemin As String
Dim Nom_Fichier as string

Chemin = "C:\Users\Public\Documents\truc_bidule\" & Nom_Fichier & "\" 'Ici, Nom_Fichier est une variable qui contient le nom de ton fichier à ouvrir

If (Chemin & Nom_Fichier & ".txt") <> "" And Len(Dir(Chemin & Nom_Fichier & ".txt")) > 0 Then 'Si le fichier cherché existe alors
   Workbooks.Open Filename:=Chemin & Dir(Chemin & Semaine & ".xlsx")  'On l'ouvre
   'Ici tes lignes de codes avec copier etc
End If

Je n'ai pas testé le code, peut être à adapter si besoin

Le 18/03/2021 à 12:47

Re Monza,

Dans le lien que j'ai partagé tu as matière à répondre à certaines de tes questions.

Voir Ma réponse précédente

Le 18/03/2021 à 13:35

Ok merci,

je vais essayer de trouver quelque chose là dedans.

Le 22/03/2021 à 09:50

Bonjour,

voilà, j'ai réussi avec un if then....j'ai trouvé un tuto qui me parlait :)

Merci pour votre aide :D

Rechercher des sujets similaires à "aide mon code"