Macro enregister au format csv sans les dernières colonnes

  • Initiateur de la discussion Initiateur de la discussion iStarOSX
  • 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 !

iStarOSX

XLDnaute Junior
Bonjour a tous le pro d'Excel.

Voila j'ai une macro qui enregistre une feuille d'un classeur au format ".txt" formaté comme un fichier csv.

Cela fonctionne très bien sous XL2003, mais sous XL 2007 et 2010, Excel me rajoute plein de ";;;;;;" en fin de ligne.

Je ne sais pas comment modifier cela et de quoi cela peut bien venir.

Je cherche depuis toute la journée, mais la j'en perd mon latin.

Voici le bout de code qui me permet d'enregistrer en csv
Code:
Sheets("Projet").Select
    Sheets("Projet").Copy
'        Selection.AutoFilter
    Cells.Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
      
    Columns("A:BY").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Rows("2:4").Select
    Selection.Delete Shift:=xlUp
    Columns("AX").Select
    Selection.Delete Shift:=xlToLeft
    Columns("AZ:BC").Select
    Selection.Delete Shift:=xlToLeft
    Columns("BB:BB").Select
    Selection.Delete Shift:=xlToLeft
  
    
'Sauvegarde avec le même nom dans le même repertoires que le fichier XL d'origine
    Application.DisplayAlerts = False
    

If FileFolderExists(Chem & "\Projet") Then 'Vérifie si le répertoire existe avec l'instruction en début de module
Else
     MkDir Chem & "Projet"  'Si le répertoire existe pas, création de répertoire
End If

    ActiveWorkbook.SaveAs Filename:=Chem & "Projet\" & Nom & "_Donnees.txt", FileFormat:=xlCSV, CreateBackup:=False
    ActiveSheet.Range("A1").ClearContents
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    ActiveWindow.Close


J'ai essayé plein de trucs, (modifier le format des "nombres" des cellules, supprimer les dernières colonnes, effacer les données des colonnes), mais il ne veut rien savoir.


Si quelqu’un pouvait m'aider, je l'en remercie d'avance
 
Dernière édition:
- 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

Réponses
5
Affichages
477
Réponses
13
Affichages
2 K
Retour