Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Le contenu ne suit pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion L_S
  • 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
L

L_S

Guest
Bonjour,

Voici une macro qui me permets de modifier l'extension des classeur en .xls

Sub Convertir_csv_xls()
'Converti *.csv en *.xls

ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"

End Sub

Si vous avez un classeur "Toto.csv", la macro vous ouvrira un deuxième classeur "Toto.csv.xls"

Mon problème est que le contenu ne suit pas.

Comment puis-je faire pour que le contenu suive avec l'apparition du second classeur ?

Merci d'avance.
 
Trier par date Trier par votes
Re : Le contenu ne suit pas

Bonjour,

Il ne suffit pas de changer l'extension d'un fichier pour en changer le type. Essaie plutôt:
Code: 
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".xls", FileFormat:=xlWorkbookNormal

La fonction Split est là pour ne garder que le nom du fichier sans son extension ".csv"

A+
 
Vote positif 0 Vote négatif
Re : Le contenu ne suit pas

Merci beaucoup.

Je vous envoie un fichier sous .xls car ce site ne prend pas en charge l'extension .csv

Le but est que ce fichier en .csv se modifie en .xls et surtout que le contenu suive avec cette transformation, chose que je n'arrive pas à faire.

Merci d'avance.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Le contenu ne suit pas

Bonjour,

Ton fichier est un xls il ne peut donc servir.

Charge et dé-zippe le fichier .csv joint, ouvre le dans excel. (Les données sont factices)

Alt+F11 -> Editeur de macro Sélectionne le projet qui correspond au fichier dans la liste des projets.
Menu insertion/Module

Dans le module créé colle la macro suivante
Code: 
Sub TranformeEnExcel()
Dim Nom As String
Nom = Replace(ActiveWorkbook.Name, ".csv", ".xls")
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Nom, FileFormat:=xlWorkbookNormal
End Sub

Lance la et ton fichier se transforme en .xls avec ses données

Mais de toute façon je n'en vois pas l'intérêt puisque cette macro ne servira qu'une fois.
Autant le faire par Enregistrer sous.

A moins que ton projet soit autre?

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2021 Ne pas enregistrer la 2 ème feuille dans le pdf
Réponses
1
Affichages
498
Claudinedu13
C
POWERQUERY :: Récupérer les attributs d'un fichier, Parcourir un dossier, Récupérer le contenu d'un fichier texte, Vérifier la présence d'un fichier
Réponses
0
Affichages
985
oguruma
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
942
Liner77
L
C
  • Question Question
Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien
Réponses
3
Affichages
2 K
Chapichapo
C
E
  • Résolu(e)
XL 2013 Rechercher et modifier la valeur d'une cellule dans tout un classeur
2
Réponses
21
Affichages
3 K
EXCJPH
E
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
2 K
Dranreb
POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004
Réponses
1
Affichages
808
oguruma
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
A
  • Résolu(e)
XL 2019 Fichier = Fichier
Réponses
4
Affichages
892
patricktoulon
  • Question Question
Microsoft 365 Code qui ne fonctionne pas sur Excel 365
Réponses
13
Affichages
1 K
Staple1600
  • Résolu(e)
XL 2016 Un "call" de macro ne fonctionne pas
Réponses
11
Affichages
2 K
R1-
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
R
  • Question Question
XL 2019 Objet : Copier/coller des valeurs d'une plage de cellules colorées avec MFC dans une deuxième feuille
2
Réponses
15
Affichages
3 K
Rom1-51
R
A
  • Résolu(e)
XL 2019 Inversion date avec macro import
Réponses
14
Affichages
1 K
Arnaud59000
A
P
  • Question Question
XL 2010 Macro et fichier .csv
2
Réponses
20
Affichages
4 K
papypog
P
E
  • Résolu(e)
XL 2013 [VBA] Check contenu d'une cellule dans une autre feuille avec un retour via MsgBox
Réponses
10
Affichages
1 K
Eawyne
E
N
  • Question Question
Microsoft 365 donner a ma feuille le nom de l'onglet avant envoi par mails
Réponses
2
Affichages
1 K
Nabster
N
J
  • Résolu(e)
XL 2013 Ouvrir une fenetre d'ouverture de fichier avec le chemin du classeur courant
Réponses
13
Affichages
2 K
juicelink
J
F
  • Résolu(e)
XL 2013 Problème récupération contenu Textbox
Réponses
9
Affichages
1 K
flolac
F
K
  • Question Question
Microsoft 365 VBA - Bouton ne marche pas uniquement la première fois
Réponses
12
Affichages
2 K
mapomme
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…