Explication code

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 22 mai 2017, 11:12

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
Avatar du membre
Patrice33740
Membre fidèle
Membre fidèle
Messages : 328
Appréciations reçues : 24
Inscrit le : 27 juillet 2014
Version d'Excel : FR, 2007, 2003, 2013, 2016

Message par Patrice33740 » 22 mai 2017, 12:11

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 ?
Cordialement
Patrice
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 22 mai 2017, 12:18

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
Avatar du membre
ThauThème
Membre impliqué
Membre impliqué
Messages : 2'967
Appréciations reçues : 53
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 22 mai 2017, 14:33

Bonjour Aude, partrice, bonjour le forum,

Regarde l'aide sur OpenText...
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 22 mai 2017, 14:41

bonjour

ou je peut trouver OpenText...

merci
Avatar du membre
ThauThème
Membre impliqué
Membre impliqué
Messages : 2'967
Appréciations reçues : 53
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 22 mai 2017, 14:52

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 ?...
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 22 mai 2017, 14:57

oui mercii
Avatar du membre
Patrice33740
Membre fidèle
Membre fidèle
Messages : 328
Appréciations reçues : 24
Inscrit le : 27 juillet 2014
Version d'Excel : FR, 2007, 2003, 2013, 2016

Message par Patrice33740 » 22 mai 2017, 16:10

Est-ce que F1 te donne l'aide maintenant ?
Cordialement
Patrice
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 22 mai 2017, 16:30

non toujours pas mais merci quand même
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • explication code
    par JeremyW » 28 novembre 2013, 17:30 » dans Excel - VBA
    5 Réponses
    260 Vues
    Dernier message par JeremyW
    29 novembre 2013, 11:35
  • Explication code
    par Dehbi » 3 janvier 2018, 09:35 » dans Excel - VBA
    3 Réponses
    74 Vues
    Dernier message par gmb
    3 janvier 2018, 10:03
  • Explication code
    par emma_38 » 29 septembre 2015, 11:19 » dans Excel - VBA
    1 Réponses
    184 Vues
    Dernier message par frangy
    29 septembre 2015, 11:44
  • Explication de code VBA
    par ZAGAZAGA » 15 octobre 2013, 11:04 » dans Excel - VBA
    1 Réponses
    87 Vues
    Dernier message par Banzai64
    15 octobre 2013, 11:50
  • Explication de Code VBA
    par ZAGAZAGA » 15 octobre 2013, 10:35 » dans Excel - VBA
    2 Réponses
    214 Vues
    Dernier message par ZAGAZAGA
    15 octobre 2013, 11:17
  • Explication code SVP...
    par atlonia » 5 mars 2019, 23:40 » dans Excel - VBA
    2 Réponses
    43 Vues
    Dernier message par atlonia
    6 mars 2019, 01:04