Discussion :

[ZeeKinio]

Bonsoir j'ai un problème d'incompatibilité type sur cette macro je ne comprend pas d'ou elle viens

Code :

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
17
18
19
20
21
22
23
24
Sub Generer_Fichier_Texte_PRINT1a()
   Dim i As Long, j As Long, ar
   Dim sRepertoire As String, sNomFichier As String
   Dim iFile As Integer
   Dim str As String
 
   sRepertoire = "C:\Users\thoms\Desktop\TEST PROJET TEXT\ '// doit terminer avec un " \ ""
   sNomFichier = "OutputPrint1a.txt"    '// nom du fichier
 
   On Error Resume Next
   Kill sRepertoire & sNomFichier  '// effacer le fichier existant
   iFile = FreeFile
   Open sRepertoire & sNomFichier For Output As #iFile   '// crée le fichier texte
   ar = Sheets(1).Cells(1).CurrentRegion.Value     '// valeurs dans un array (plus rapide)
   For i = 1 To UBound(ar, 1)       '// boucle sur les lignes
      str = ""
      For j = 1 To UBound(ar, 2)    '// boucle sur les colonnes
         str = str & ar(i, j) & vbTab  '// valeurs séparées par tabulations
      Next j
      Print #iFile, str             '// écrire dans le fichier
   Next i
   Close #iFile                     '// Fermer le fichier
   On Error GoTo 0
End Sub

Merci d'avance pour votre aide

[joe.levrai]

Bonjour,

quelle ligne est impactée par l'erreur ?

dans un premier temps, remonte le "on error goto 0" juste après a ligne où tu Kill le fichier afin de ne pas ignorer les erreurs de toute la procédure

[ZeeKinio]

Le problème c'est que j'ai aucune ligne qui ce met en gras quand j'ai l'erreur :/

[joe.levrai]

ah j'avais pas les yeux en face des trous !

ta ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sRepertoire = "C:\Users\thoms\Desktop\TEST PROJET TEXT\ '// doit terminer avec un " \ ""

est mal écrite, tu n'as pas fermé ta chaine de caractère

remplace par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sRepertoire = "C:\Users\thoms\Desktop\TEST PROJET TEXT\" '// doit terminer avec un \

[ZeeKinio]

Toujours la meme erreur je ne comprend pas :/

C'est bon je n'ai rien dit, le problème maintenant c'est que il n'y a rien d'écris dans mon TXT :/

J'ai encore le message d'erreur mais le fichier ce créer bien dans le dossier, malheureusement celui-ci est vide

De base le code était comme sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Kill sRepertoire & sNomFichier   '// effacer le fichier existant
   iFile = FreeFile
    Open sRepertoire & sNomFichier For Output As #iFile   '// crée le fichier texte

j'ai changer en sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Kill sRepertoire & sNomFichier  '// effacer le fichier existant
   On Error GoTo 0
   iFile = FreeFile
   Open sRepertoire & sNomFichier For Output As #iFile   '// crée le fichier texte
   ar = Sheets(1).Cells(1).CurrentRegion.Value     '// valeurs dans un array (plus rapide)

Mais rien ne fait la commande Kill et Open n'ai pas prit en compte

[Docmarti]

Bonjour.

Chez moi, le fichier se crée normalement ainsi :

Code :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Generer_Fichier_Texte_PRINT1a()
   Dim i As Long, j As Long, ar
   Dim sRepertoire As String, sNomFichier As String
   Dim iFile As Integer
   Dim str As String
 
   sRepertoire = "C:\Users\thoms\Desktop\TEST PROJET TEXT"   
   On Error Resume Next
   MkDir sRepertoire
   On Error GoTo 0
 
   sNomFichier = "\OutputPrint1a.txt"    '// nom du fichier
 
 iFile = FreeFile
   Open sRepertoire & sNomFichier For Output As #iFile
   Close #iFile
 
   Kill sRepertoire & sNomFichier  '// effacer le fichier existant
   iFile = FreeFile
   Open sRepertoire & sNomFichier For Output As #iFile   '// crée le fichier texte
   ar = Sheets(1).Cells(1).CurrentRegion.Value     '// valeurs dans un array (plus rapide)
   For i = 1 To UBound(ar, 1)       '// boucle sur les lignes
      str = ""
      For j = 1 To UBound(ar, 2)    '// boucle sur les colonnes
         str = str & ar(i, j) & vbTab  '// valeurs séparées par tabulations
      Next j
      Print #iFile, str             '// écrire dans le fichier
   Next i
   Close #iFile                     '// Fermer le fichier
 
End Sub