VBA Excel - Impression d'un fichier Texte
99TILA
Messages postés
1
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
23 mai 2005
-
23 mai 2005 à 00:48
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 23 mai 2005 à 01:12
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 23 mai 2005 à 01:12
A voir également:
- VBA Excel - Impression d'un fichier Texte
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Vba convertir nombre en texte ✓ - Forum VBA Office (Excel, Word ...)
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Excel vba modulo ✓ - Forum Visual Basic 6
- [VBA] Conversion nombre stocké texte en chiffre ✓ - Forum Visual Basic 6
1 réponse
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
23 mai 2005 à 01:12
23 mai 2005 à 01:12
Bonsoir,
Tu dois importer le fichier et l'imprimer.Ce code importe le fichier
texte "MonFichier.txt" qui se trouve dans répertoire C:\Mes
documents et l' imprime. Le code se place dans un module et tu le lance
soit par Outils/Macro ou tu le places dans un bouton de commande sur la
feuille et tu mets dans la procédure Call ImporterFichier.
Sub ImporterFichier()
Dim r, Data
Range("A1").Select
Open "C:\Mes documents\MonFichier.txt" For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
ActiveCell.Offset(r, 0) = Data
r = r + 1
Loop
Close #1
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
jpleroisse
Tu dois importer le fichier et l'imprimer.Ce code importe le fichier
texte "MonFichier.txt" qui se trouve dans répertoire C:\Mes
documents et l' imprime. Le code se place dans un module et tu le lance
soit par Outils/Macro ou tu le places dans un bouton de commande sur la
feuille et tu mets dans la procédure Call ImporterFichier.
Sub ImporterFichier()
Dim r, Data
Range("A1").Select
Open "C:\Mes documents\MonFichier.txt" For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
ActiveCell.Offset(r, 0) = Data
r = r + 1
Loop
Close #1
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
jpleroisse
