Explication code

bonjour

voila est ce que vous pouvais m'expliquer ce code

je comprend qu'il importe des fichiers mais pour être plus précis

Sub ImportTxtAdhe()
Dim MainWbk As String
Dim lngCount As Long

  MainWbk = ActiveWorkbook.Name

  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Show
    Application.ScreenUpdating = False
    For lngCount = 1 To .SelectedItems.Count

      Workbooks.OpenText Filename:=.SelectedItems(lngCount), _
                        Origin:=65001 _
                            , 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, 4), _
                        Array(7, 4), Array(8, 4), Array(9, 1), Array(10, 4), Array(11, 1), Array(12, 1), Array(13, 1), _
                        Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 4), _
                        Array(21, 4), Array(22, 4), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), _
                        Array(28, 1), Array(29, 1), Array(30, 1)), _
                        TrailingMinusNumbers:=True
      Sheets(1).Move After:=Workbooks(MainWbk).Sheets(Workbooks(MainWbk).Sheets.Count)
      Next lngCount
  End With

End Sub

merci de vos réponse

bonne journée

Bonjour aude21,

Ce code importe, dans le fichier qui contient cette macro, tous les fichiers textes sélectionnés dans la boite de dialogue ouvrir, à raison d'une page par fichier.

As-tu consulté l'aide VBA pour savoir ce que signifie chaque instruction ?

Pour cela, places le curseur sur le mot pour lequel tu veux de l'aide et appuies sur la touche F1.

Pour être plus précis, quelle partie du code ne comprends-tu pas ?

merci de ta reponse :

je ne comprend pas cette parti

 With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Show
    Application.ScreenUpdating = False
    For lngCount = 1 To .SelectedItems.Count

      Workbooks.OpenText Filename:=.SelectedItems(lngCount), _
                        Origin:=65001 _
                            , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                           ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
                            , Space:=False, Other:=False _

quand j appuie sur F1 sa ne me sort pas l'aide VBA

Bonjour Aude, partrice, bonjour le forum,

Regarde l'aide sur OpenText...

bonjour

ou je peut trouver OpenText...

merci

Re,

Sélectionne ce mot dans le code est appui sur la touche [F1]. L'aide VBA fonctionne sur tous les mots clé.

Ou tape VBA OpenText dans internet... Tu sais ce que c'est internet ?...

oui mercii

Est-ce que F1 te donne l'aide maintenant ?

non toujours pas mais merci quand même

Rechercher des sujets similaires à "explication code"