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 .

Voici le code que j'ai élaboré :

Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
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