Export en CSV_Erreur lors de l'enregistrement

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
10omniplanner-rc.xlsm (144.02 Ko)

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 ?

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 ecran 151

Hello

Merci pour le retour

Voilà ce que donne le msgbox :

Bonne journée,

Loic

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

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

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

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 ?

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

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

Désolé de répondre si tard, j'ai du faire un long trajet en voiture

Je joins le document à ce message. (J'ai encore réalisé quelques modifications mais toujours ce problème de date )

Encore un grand merci,

Bonne soirée,

Loic

Bonjour,

ton fichier csv n'est pas un fichier csv ... ouvre le avec notepad, wordpad ... cela devrait être du texte pur

Bonjour

Mon fournisseur va donc râler ...

Bon ben je suis officiellement perdu

Faut que je rajoute un bout de code pour transformer le texte en « texte »? C’est suffisant ? Ça existe ?

Merci encore

Bonne journée

Loic

je pense qu'il faut reprendre à zéro le projet ! car toujours ajouter des bouts de code n'est pas la solution

commence en effet par un code propre d'enregistrement en csv, il en existe des tonnes : googlise !

Rechercher des sujets similaires à "export csv erreur lors enregistrement"