Discussion :

[chamou88]

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

[Marc-L]

Bonjour !

Mais la fonction print ne marche pas dans la boucle.

L'instruction Print fonctionne forcément sinon il y aurait évidemment un message d'erreur …

Ce qui par contre ne fonctionne certainement pas c'est la logique dans le code,
notamment en ce qui concerne la condition pour effectuer cette instruction !

Suivre la progression du code en mode pas à pas via la touche F8 aiderait donc à trouver l'erreur de conception …

Au passage il est notable de constater la référence à une feuille de calculs dans l'instruction Print
et son absence remarquable dans la condition déclenchant pourtant cette instruction !

___________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[chamou88]

C'est bon trouvé, un = présent en trop qui empêche de rentrer dans la boucle ....
Merci pour la fonction F8 que je ne connaissais pas .

[unparia]

Bonjour
On peut s'interroger sur la nécessité et l'utilité de la variable k ... alors qu'il suffit d'alimenter une matrice (ou encore mieux : une plage) , puis de copier in fine cette plage à sa destination