XL 2013 Aide sur sauvegarde en TXT par VBA

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Fave
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Fave

Fave

XLDnaute Junior
Bonjour à toutes et tous,

J'ai un souci avec un code VBA.

Je veux sauvegarder tout le contenu d'une feuille dans un fichier txt, jusqu'à la dernière ligne contenant des valeurs. Le souci c'est que cela me créer des espaces après la dernière valeur alors que je souhaite que mon curseur n'aille pas plus loin de la dernière valeur trouvée.
J'espère me faire bien comprendre... lol

Voici le code qui, j'en suis sur, peut être amélioré !!! 😀

Code: 
Sub Ecrire()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Set f = ActiveSheet
With Sheets("Feuil1")
    DerniereLigne = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerniereColonne = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
    End With
    chemin = "G:\xxxxxx\xxxxxx\"
    Open chemin & "Report.txt" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To DerniereColonne - 1
            Print #1, f.Cells(i, j).Formula;
        Next j
        Print #1, f.Cells(i, j + 1).Value
    Next i
    Close #1
    'commande ouverture notepad
    Shell "C:\Windows\System32\notepad.exe " & chemin & "Report.txt"
End Sub

En pj, 2 fichiers :
report.txt = celui généré par la macro
final = résultat souhaité (avec le curseur après la dernière valeur et sans espace vers le bas)...
 
Trier par date Trier par votes
Re : Aide sur sauvegarde en TXT par VBA

Bonjour Lone-wolf,
Fave, je crois qu'il faut trouer la dernierecolonne de chaque ligne
Voici
Code: 
Sub Ecrire()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Set f = ActiveSheet
With Sheets("Feuil1")
    DerniereLigne = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
    'DerniereColonne = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
    End With
    chemin = "G:\xxxxxx\xxxxxx\"
    Open chemin & "Report.txt" For Output As #1
    For i = 1 To DerniereLigne
'.Cells(i, 256).End(1).Column renvoie la dercol de la ligne i
        For j = 1 To .Cells(i, 256).End(1).Column 'DerniereColonne - 1
            Print #1, f.Cells(i, j).Formula;
        Next j
        Print #1, f.Cells(i, j + 1).Value
    Next i
    Close #1
    'commande ouverture notepad
    Shell "C:\Windows\System32\notepad.exe " & chemin & "Report.txt"
End Sub
Bruno
 
Vote positif 0 Vote négatif
Re : Aide sur sauvegarde en TXT par VBA

Bonjour Lone-wolf,

Oui, il s'agit bien de 2 fichiers différents.

La différence étant ce fameux curseur que je peux descendre dans le fichier "report" alors que je souhaite qu'il ne puisse aller que jusquà la dernière valeur voir la ligne immédiate en dessous comme dans le fichier "final".

C'est d'ailleurs pour ça que j'ai besoin de toutes vos lumières car ce fichier texte est utilisé dans un autre programme qui ne tolère pas les espaces après la dernière valeur... 😉
 
Vote positif 0 Vote négatif
Re : Aide sur sauvegarde en TXT par VBA

Bonjour à tous,

Désolé pour la réponse tardive.

youky(BJ), merci pour l'intérêt que tu portes à mon souci et pour ton aide.
Je viens de tester ta solution mais j'ai une erreur de compilation (Référence incorrecte ou non qualifiée).

A quoi est-ce que cela pourrait être du ?

Bonne journée,
 
Vote positif 0 Vote négatif
Re : Aide sur sauvegarde en TXT par VBA

Re bonjour,
J'ai peut être été un peu vite, il y avait des bugs dés le départ
J'ai rectifié mais n'ai pas testé.
Pense à modifier le chemin
Bruno
Code: 
Sub Ecrire()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
With Sheets("Feuil1")
    DerniereLigne = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
    chemin = "G:\xxxxxx\xxxxxx\"
    Open chemin & "Report.txt" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To .Cells(i, 256).End(1).Column 'To DerniereColonne de la ligne
            Print #1, .Cells(i, j)
        Next j
        Print #1, .Cells(i, j + 1)
    Next i
    Close #1
End With
    'commande ouverture notepad
    Shell "C:\Windows\System32\notepad.exe " & chemin & "Report.txt"
End Sub
 
Vote positif 0 Vote négatif
Re : Aide sur sauvegarde en TXT par VBA

Bonjour à tous,
Bonjour youky(BJ),

Je viens de tester ton code et je suis désolé mais cela ne fonctionne pas. Je peux toujours descendre mon curseur bien plus bas que la dernière valeur... 🙁
De plus, cela me génère une ligne entre chaque valeur (voir ici)... 😕

En tout cas, merci pour tes efforts !!! 😱

Bonne journée,
 
Vote positif 0 Vote négatif
Re : Aide sur sauvegarde en TXT par VBA

Bon cette fois c'est la bonne .
J'avais pas testé.
Maintenant c'est bon remets le chemin
Bruno
Code: 
Sub Ecrire()
Dim i, j, DernièreLigne, DernièreColonne, tx, f As Worksheet

With Sheets("Feuil1")
    DerniereLigne = .[A65000].End(3).Row
    chemin = ThisWorkbook.Path & "\"  '"G:\xxxxxx\xxxxxx\"
    Open chemin & "Report.txt" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To .Cells(i, 256).End(1).Column 'To DerniereColonne de la ligne
           tx = tx & .Cells(i, j) & ";"
        Next j
        tx = Left(tx, Len(tx) - 1)
        Print #1, tx
        tx = ""
    Next i
    Close #1
End With
    'commande ouverture notepad
    Shell "C:\Windows\System32\notepad.exe " & chemin & "Report.txt"
End Sub
 
Vote positif 0 Vote négatif
Re : Aide sur sauvegarde en TXT par VBA

Non faut rien enlever !
Le ; se mets car il y a une donnée invisible dans la cellule
J'ai ajouté un For Next pour supprimer les valeurs avec 1 seul caractère en début de procédure
Bruno
Code: 
Sub Ecrire()
Dim i, j, DernièreLigne, DernièreColonne, tx, f As Worksheet
With Sheets("Feuil1")
For i = 1 To.range("A" & rows.count).end(3).row
If Len(.Cells(i, 1)) < 2 Then Exit For
Next
    DerniereLigne = i
    chemin = ThisWorkbook.Path & "\"  '"G:\xxxxxx\xxxxxx\"
    Open chemin & "Report.txt" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To .Cells(i, 256).End(1).Column
        tx = tx & .Cells(i, j) & ";"
        Next j
        tx = Left(tx, Len(tx) - 1)
        Print #1, tx
        tx = ""
    Next i
    Close #1
End With
    'commande ouverture notepad
    Shell "C:\Windows\System32\notepad.exe " & chemin & "Report.txt"
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
85
piga25
piga25
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
396
snoopy07
S
B
  • Résolu(e)
Microsoft 365 VBA tabulation
Réponses
2
Affichages
669
BOILEAU
B
Nadou69
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
387
Nadou69
Nadou69
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
381
souhaib ad
S
M
  • Question Question
Microsoft 365 Création fichier texte
2
Réponses
15
Affichages
708
patricktoulon
patricktoulon
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
672
salma_hayek
S
A
  • Résolu(e)
XL 2016 Boucle
Réponses
12
Affichages
855
Aldonanou
A
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
1 K
GClaire
G
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
880
heart clean
H
G
  • Question Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
500
GClaire
G
A
  • Question Question
XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint
Réponses
0
Affichages
871
Aldonanou
A
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
852
eCHO
E
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
449
Oneida
Oneida
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
549
crazy
C
L
  • Question Question
XL 2019 Excel - utilisation des unbound pour grande base de donnees
Réponses
11
Affichages
858
Lordpeter
L
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
F
  • Question Question
Microsoft 365 Répéter en boucle plusieurs actions VBA
Réponses
7
Affichages
948
Deadpool_CC
Deadpool_CC
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
Hasco
Retour