Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
bonjour,
Pour enregistrer je ne sais pas par contre, pour le créer en écrivant tout ce qui se trouvent dans la colonne A de ta feuille, c'est comme ça :
Code:
Sub Creation_fichier_ini()
'indication de la zone où sont les données
Dim nombreligne As Integer
nombreligne = Range("A65536").End(xlUp).Row
' indique le nom fichier
nomfichiercourt = "hello.ini"
'
'indique le repertoire et le nom du fichier
nomfichier = ThisWorkbook.Path & "\" & nomfichiercourt
'
'creation du fichier ini - nom du fichier
Set NouveauFichier = CreateObject("Scripting.FileSystemObject").createtextfile(nomfichier, ForWriting)
'boucle sur la zone
For i = 1 To nombreligne
'
'ecriture dans le fichier de ce qu'il y a dans la colonne A
NouveauFichier.writeline (Range("a" & i))
Next i
'
'fermeture du fichier
NouveauFichier.Close
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD