Problème de fonction PRINT dans une boucle
Bonjour à tous,
je cherche, à l'aide d'une MACRO VBA, à exporter dans un fichier .txt les données d'une feuille excel.
La colonne B représente le début d'activité et la colonne C la fin d'activité, sachant que plusieurs activités peuvent débuter en même temps mais se terminent toutes au même moment (je peux avoir plusieurs lignes consécutives avec la colonne B remplie et la colonne C vide).
Je souhaite voir apparaître dans mon fichier .txt le début de créneau et la fin de créneau mais sans les débuts intermédiaires.
J'utilise une boucle avec condition pour cela. Mais la fonction print ne marche pas dans la boucle.
Je dois avoir un problème sur la condition mais je ne trouve pas.
Si une bonne âme peut me venir en aide :D.
Voici le code que j'ai élaboré :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Sub Export()
Dim i As Long, j As Long, k As Long
j = Worksheets("ACT").[A1].Value
'récupère le nombre de ligne remplie sur la journée (nombre stocké dans la case A1
k = 2
nom = "Archives\" & Format(Date, "yyyymmdd") & Worksheets("Accueil").[G11].Value & ["_"] & Worksheets("Accueil").[A11].Value & ".txt"
Open nom For Output As #1
For i = 2 To i = j
If Not IsEmpty(Range("C" & i)) Then
Print #1, Worksheets("ACT").Range("B" & k).Value & " " & Worksheets("ACT").Range("C" & i).Value
k = i + 1
End If
Next
Close #1
End Sub |
