Création de fichiers .AGN de 0Ko à partir d'une colonne Excel

Bonjour,

Je suis novice et j'ai un excel en anglais. J'aimerais créer un script pour générer des fichiers "xxxxxxxxx.agn" , ne contenant rien (0Ko)

et dont les noms viendraient de la colonne "a" de mon fichier excel soit 318 fichiers vides .AGN .

Merci de votre aide.

Bonjour FHem et

Normalement que ton Excel soit Anglais ou Français, ça ne change rien, VBA reste anglais

Voici le code qui devrait convenir

Sub Création()
  Dim dLig As Long, Lig As Long
  Dim NumFic As Long, sPath As String, NomFic As String
  ' Chemin d'enregistrement
  sPath = ThisWorkbook.Path & "\"
  ' Numéro de fichier
  NumFic = FreeFile
  ' Avec la feuille
  With Sheets(1)
    ' Dernière ligne remplie
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Pour chaque ligne
    For Lig = 1 To dLig
      ' Récupérer le nom du fichier à créer
      NomFic = .Range("A" & Lig)
      ' Créer le fichier
      Open sPath & NomFic For Output As #NumFic
      Close #NumFic
    Next Lig
  End With
End Sub

@+

Bonjour Bruno et Bravo,

Ca a été tellement furtif et rapide que je pensais que cela ne fonctionnait pas. Puis j'ai retrouvé tous mes fichiers sur mon bureau en un clin d'oeil. Impeccable !

Mille mercis de Guadeloupe, d'où le décalage dans ma réponse.

Cordialement.