Export en CSV_Erreur lors de l'enregistrement

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
a_loic
Membre habitué
Membre habitué
Messages : 99
Inscrit le : 16 janvier 2015
Version d'Excel : 2007

Message par a_loic » 2 mai 2018, 12:54

Bonjour

Je suis en train de créer un document permettant de sélectionner un fichier, copier son onglet, le transformer et exporter ces données dans un autre classeur au format CSV (demande du fournisseur)

Je suis quasi bon (c'est peut être pas très beau mais ca fonctionne :)), il me reste simplement l'enregistrement du mon classeur au format CSV qui ne se fait pas (erreur 1004).

Voici le process, j'ouvre le doc appelé "Pour PAUL_...", je clique sur "importer" de l'onglet 1
Je sélectionne le document "omniplanner..." et dans le userform, je sélectionne l'onglet "export"

Je mets en pièce jointe 2 fichiers exemples.

Un grand merci à tous par avance,

Excellente journée,
Loic

Voici le bout de code qui ne fonctionne pas :
chemin = Application.FileDialog(msoFileDialogFolderPicker) & "\"
nomfichier = "Planning_" & wbkc.Sheets(3).Range("B2") & ".csv"
Set Plage2 = wbkc.Sheets(3).Range("A1:AJ" & ActiveSheet.Range("A65000").End(3).Row)
        Set nouveau_classeur = Workbooks.Add(template:=xlWBATWorksheet)
         Plage2.Copy nouveau_classeur.Sheets(1).Range("A1")
         nouveau_classeur.SaveAs Filename:=chemin & nomfichier, FileFormat:=xlCSV, CreateBackup:=False, local:=True
         nouveau_classeur.Close SaveChanges:=True
End Sub
POUR PAUL_création csv_V3.xlsm
(76.45 Kio) Téléchargé 9 fois
omniplanner RC .xlsm
(144.02 Kio) Téléchargé 8 fois
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'368
Appréciations reçues : 490
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 2 mai 2018, 13:08

ajoute ceci
nomfichier = "Planning_" & wbkc.Sheets(3).Range("B2") & ".csv"
msgbox nomfichier
pour savoir ce que la zone contient ...
y a t'il des caractères interdits pour les noms de fichier ?

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'368
Appréciations reçues : 490
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 2 mai 2018, 13:14

forcément c'est une date avec des /
mets plutôt
nomfichier = "Planning_" & Format(wbkc.Sheets(3).Range("B2"), "yyy-mm-dd") & ".csv"
en plus de cela, chemin c'est n'importe quoi !!
nomfichier = "Planning_" & Format(wbkc.Sheets(3).Range("B2"), "yyy-mm-dd") & ".csv"
MsgBox chemin & nomfichier
Capture d’écran (151).png
Modifié en dernier par Steelson le 2 mai 2018, 13:15, modifié 1 fois.

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
a
a_loic
Membre habitué
Membre habitué
Messages : 99
Inscrit le : 16 janvier 2015
Version d'Excel : 2007

Message par a_loic » 2 mai 2018, 13:15

Hello

Merci pour le retour :)

Voilà ce que donne le msgbox :

Image

Bonne journée,
Loic
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'368
Appréciations reçues : 490
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 2 mai 2018, 14:13

on a du poster à moins d'une minute d'intervale

as-tu pris en compte le message précédent
à savoir, remplacer les / par des -
et revoir le nom du chemin

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
a
a_loic
Membre habitué
Membre habitué
Messages : 99
Inscrit le : 16 janvier 2015
Version d'Excel : 2007

Message par a_loic » 2 mai 2018, 14:16

Bonjour,

Oui j'étais justement en train de regarder et j'avance.

Il y a vait effectivement un vrai problème pour le chemin.
J'ai donc changé le code mais désormais il faut que je saisisse un nom alors que le nom est censé être prédéfini.
Et si je saisis un nom, l'enregistrement se fait bien mais avec "vrai" écrit devant...

Merci encore pour l'aide
Bonne journée,
Loic
a
a_loic
Membre habitué
Membre habitué
Messages : 99
Inscrit le : 16 janvier 2015
Version d'Excel : 2007

Message par a_loic » 2 mai 2018, 14:42

Re

j'ai trouvé :)
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  
  ' Titre de la boîte
  fd.Title = "Sélectionnez un dossier..."
  
  ' Afficher la boîte et traiter le résultat
  If fd.Show() Then
    chemin = fd.SelectedItems(1)
  End If
 
  Set fd = Nothing
Il me reste un autre problème.
Comme vous le voyez, je copie des données séparées par des ";" et je les convertie pour qu'elles se dispatchent sur plusieurs colonnes.

Malheureusement, la date est modifiée et donc, le titre du fichier créé est faux.

Puis je contourner cela?

Merci d'avance,
Bonne journée,
Loic
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'368
Appréciations reçues : 490
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 2 mai 2018, 15:13

a_loic a écrit :
2 mai 2018, 14:42
Malheureusement, la date est modifiée et donc, le titre du fichier créé est faux.
Je n'ai pas tout compris
La date est modifiée quand ? dans le fichier csv ? à l'import du fichier ?

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
a
a_loic
Membre habitué
Membre habitué
Messages : 99
Inscrit le : 16 janvier 2015
Version d'Excel : 2007

Message par a_loic » 2 mai 2018, 15:21

Hello

Je ne sais pas vraiment en fait.

Je le fais manuellement aucune erreur, alors qu’en utilisant la macro (qui est pourtant issue d’un enregistrement de l’action manuelle) ça ne fonctionne pas comme il faut...

Loic
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'368
Appréciations reçues : 490
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 2 mai 2018, 15:35

peux-tu me renvoyer les fichiers là où tu en es ?

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message