Dans le code suivant j’écris dans la colonne B les fichiers d'un
répertoire, ce que je comprends par c'est que le premier fichier n'est
pas listé cela commence au deuxièmefichier
Sub Boucle_Fichier()
Dim Nom_Fichier As String
Dim Cpt As Integer
Cpt = 1
Nom_Fichier = Dir("D:\Mes
Documents\BlackBerry\BLACKBERRY-A7E0\*.vcf")
While Nom_Fichier <> ""
Nom_Fichier = Dir
Range("B" & Cpt).Value = Nom_Fichier
Cpt = Cpt + 1
Wend
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()   Dim Nom_Fichier As String   Dim Cpt As Integer   Cpt = 1   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")   While Nom_Fichier <> ""       Nom_Fichier = Dir       Range("B" & Cpt).Value = Nom_Fichier       Cpt = Cpt + 1   Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 1 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Cpt = Cpt + 1 Wend End Sub '------------------------------------------- MichD
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour,
Dans le code suivant j’écris dans la colonne B les fichiers d'un
répertoire, ce que je comprends par c'est que le premier fichier n'est
pas listé cela commence au deuxièmefichier
Sub Boucle_Fichier()
  Dim Nom_Fichier As String
  Dim Cpt As Integer
  Cpt = 1
  Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")
  While Nom_Fichier <> ""
      Nom_Fichier = Dir
      Range("B" & Cpt).Value = Nom_Fichier
      Cpt = Cpt + 1
  Wend
End Sub
Merci
Bonjour,
Essaie comme ceci :
'-------------------------------------------
Sub Boucle_Fichier()
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()   Dim Nom_Fichier As String   Dim Cpt As Integer   Cpt = 1   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")   While Nom_Fichier <> ""       Nom_Fichier = Dir       Range("B" & Cpt).Value = Nom_Fichier       Cpt = Cpt + 1   Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 1 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Cpt = Cpt + 1 Wend End Sub '------------------------------------------- MichD
MichD
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()   Dim Nom_Fichier As String   Dim Cpt As Integer   Cpt = 1   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")   While Nom_Fichier <> ""       Nom_Fichier = Dir       Range("B" & Cpt).Value = Nom_Fichier       Cpt = Cpt + 1   Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 1 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Cpt = Cpt + 1 Wend End Sub '------------------------------------------- MichD
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour,
Dans le code suivant j’écris dans la colonne B les fichiers d'un
répertoire, ce que je comprends par c'est que le premier fichier n'est
pas listé cela commence au deuxièmefichier
Sub Boucle_Fichier()
  Dim Nom_Fichier As String
  Dim Cpt As Integer
  Cpt = 1
  Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")
  While Nom_Fichier <> ""
      Nom_Fichier = Dir
      Range("B" & Cpt).Value = Nom_Fichier
      Cpt = Cpt + 1
  Wend
End Sub
Merci
Bonjour,
Essaie comme ceci :
'-------------------------------------------
Sub Boucle_Fichier()
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()   Dim Nom_Fichier As String   Dim Cpt As Integer   Cpt = 1   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")   While Nom_Fichier <> ""       Nom_Fichier = Dir       Range("B" & Cpt).Value = Nom_Fichier       Cpt = Cpt + 1   Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 1 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Cpt = Cpt + 1 Wend End Sub '------------------------------------------- MichD
Brat'ac
Dans son message précédent, MichD a écrit :
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()   Dim Nom_Fichier As String   Dim Cpt As Integer   Cpt = 1   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")   While Nom_Fichier <> ""       Nom_Fichier = Dir       Range("B" & Cpt).Value = Nom_Fichier       Cpt = Cpt + 1   Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 1 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Cpt = Cpt + 1 Wend End Sub '------------------------------------------- MichD
Merci c'est OK
Dans son message précédent, MichD a écrit :
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour,
Dans le code suivant j’écris dans la colonne B les fichiers d'un
répertoire, ce que je comprends par c'est que le premier fichier n'est pas
listé cela commence au deuxièmefichier
Sub Boucle_Fichier()
  Dim Nom_Fichier As String
  Dim Cpt As Integer
  Cpt = 1
  Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")
  While Nom_Fichier <> ""
      Nom_Fichier = Dir
      Range("B" & Cpt).Value = Nom_Fichier
      Cpt = Cpt + 1
  Wend
End Sub
Merci
Bonjour,
Essaie comme ceci :
'-------------------------------------------
Sub Boucle_Fichier()
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()   Dim Nom_Fichier As String   Dim Cpt As Integer   Cpt = 1   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")   While Nom_Fichier <> ""       Nom_Fichier = Dir       Range("B" & Cpt).Value = Nom_Fichier       Cpt = Cpt + 1   Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 1 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Cpt = Cpt + 1 Wend End Sub '------------------------------------------- MichD
Merci c'est OK
Michel__D
Le 05/08/2021 Í 12:33, Brat'ac a écrit :
Dans son message précédent, MichD a écrit :
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()    Dim Nom_Fichier As String    Dim Cpt As Integer    Cpt = 1    Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")    While Nom_Fichier <> ""        Nom_Fichier = Dir        Range("B" & Cpt).Value = Nom_Fichier        Cpt = Cpt + 1    Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier()    Dim Nom_Fichier As String    Dim Cpt As Integer    Cpt = 1    Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")    While Nom_Fichier <> ""        Range("B" & Cpt).Value = Nom_Fichier        Nom_Fichier = Dir        Cpt = Cpt + 1    Wend End Sub '------------------------------------------- MichD
Merci c'est OK
Perso j'utiliserais plutÍ´t ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 0 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Cpt = Cpt + 1 Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Wend End Sub '-------------------------------------------
Le 05/08/2021 Í 12:33, Brat'ac a écrit :
Dans son message précédent, MichD a écrit :
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour,
Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire,
ce que je comprends par c'est que le premier fichier n'est pas listé cela
commence au deuxièmefichier
Sub Boucle_Fichier()
   Dim Nom_Fichier As String
   Dim Cpt As Integer
   Cpt = 1
   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")
   While Nom_Fichier <> ""
       Nom_Fichier = Dir
       Range("B" & Cpt).Value = Nom_Fichier
       Cpt = Cpt + 1
   Wend
End Sub
Merci
Bonjour,
Essaie comme ceci :
'-------------------------------------------
Sub Boucle_Fichier()
   Dim Nom_Fichier As String
   Dim Cpt As Integer
   Cpt = 1
   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")
   While Nom_Fichier <> ""
       Range("B" & Cpt).Value = Nom_Fichier
       Nom_Fichier = Dir
       Cpt = Cpt + 1
   Wend
End Sub
'-------------------------------------------
MichD
Merci c'est OK
Perso j'utiliserais plutÍ´t ceci :
'-------------------------------------------
Sub Boucle_Fichier()
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()    Dim Nom_Fichier As String    Dim Cpt As Integer    Cpt = 1    Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")    While Nom_Fichier <> ""        Nom_Fichier = Dir        Range("B" & Cpt).Value = Nom_Fichier        Cpt = Cpt + 1    Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier()    Dim Nom_Fichier As String    Dim Cpt As Integer    Cpt = 1    Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")    While Nom_Fichier <> ""        Range("B" & Cpt).Value = Nom_Fichier        Nom_Fichier = Dir        Cpt = Cpt + 1    Wend End Sub '------------------------------------------- MichD
Merci c'est OK
Perso j'utiliserais plutÍ´t ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 0 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Cpt = Cpt + 1 Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Wend End Sub '-------------------------------------------
Brat'ac
Michel__D a écrit :
Le 05/08/2021 Í 12:33, Brat'ac a écrit :
Dans son message précédent, MichD a écrit :
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()    Dim Nom_Fichier As String    Dim Cpt As Integer    Cpt = 1    Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")    While Nom_Fichier <> ""        Nom_Fichier = Dir        Range("B" & Cpt).Value = Nom_Fichier        Cpt = Cpt + 1    Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier()    Dim Nom_Fichier As String    Dim Cpt As Integer    Cpt = 1    Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")    While Nom_Fichier <> ""        Range("B" & Cpt).Value = Nom_Fichier        Nom_Fichier = Dir        Cpt = Cpt + 1    Wend End Sub '------------------------------------------- MichD
Merci c'est OK
Perso j'utiliserais plutÍ´t ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 0 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Cpt = Cpt + 1 Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Wend End Sub '-------------------------------------------
J'essaie Merci
Michel__D a écrit :
Le 05/08/2021 Í 12:33, Brat'ac a écrit :
Dans son message précédent, MichD a écrit :
Le 05/08/21 Í 05:10, Brat'ac a écrit :
Bonjour,
Dans le code suivant j’écris dans la colonne B les fichiers d'un
répertoire, ce que je comprends par c'est que le premier fichier n'est
pas listé cela commence au deuxièmefichier
Sub Boucle_Fichier()
   Dim Nom_Fichier As String
   Dim Cpt As Integer
   Cpt = 1
   Nom_Fichier = Dir("D:Mes
DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")
   While Nom_Fichier <> ""
       Nom_Fichier = Dir
       Range("B" & Cpt).Value = Nom_Fichier
       Cpt = Cpt + 1
   Wend
End Sub
Merci
Bonjour,
Essaie comme ceci :
'-------------------------------------------
Sub Boucle_Fichier()
   Dim Nom_Fichier As String
   Dim Cpt As Integer
   Cpt = 1
   Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")
   While Nom_Fichier <> ""
       Range("B" & Cpt).Value = Nom_Fichier
       Nom_Fichier = Dir
       Cpt = Cpt + 1
   Wend
End Sub
'-------------------------------------------
MichD
Merci c'est OK
Perso j'utiliserais plutÍ´t ceci :
'-------------------------------------------
Sub Boucle_Fichier()
Bonjour, Dans le code suivant j’écris dans la colonne B les fichiers d'un répertoire, ce que je comprends par c'est que le premier fichier n'est pas listé cela commence au deuxièmefichier Sub Boucle_Fichier()    Dim Nom_Fichier As String    Dim Cpt As Integer    Cpt = 1    Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")    While Nom_Fichier <> ""        Nom_Fichier = Dir        Range("B" & Cpt).Value = Nom_Fichier        Cpt = Cpt + 1    Wend End Sub Merci
Bonjour, Essaie comme ceci : '------------------------------------------- Sub Boucle_Fichier()    Dim Nom_Fichier As String    Dim Cpt As Integer    Cpt = 1    Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf")    While Nom_Fichier <> ""        Range("B" & Cpt).Value = Nom_Fichier        Nom_Fichier = Dir        Cpt = Cpt + 1    Wend End Sub '------------------------------------------- MichD
Merci c'est OK
Perso j'utiliserais plutÍ´t ceci : '------------------------------------------- Sub Boucle_Fichier() Dim Nom_Fichier As String Dim Cpt As Integer Cpt = 0 Nom_Fichier = Dir("D:Mes DocumentsBlackBerryBLACKBERRY-A7E0*.vcf") While Nom_Fichier <> "" Cpt = Cpt + 1 Range("B" & Cpt).Value = Nom_Fichier Nom_Fichier = Dir Wend End Sub '-------------------------------------------
