Discussion :

[EddyBertey]

Bonjour à tous,

J'ai encore un petit soucis avec mon outil de gestion ^^'

Voilà donc dans le principe j'ai un userform qui met à jour un fichier excel "base" et qui après doit l'enregistrer sous un nom particulier dans un dossier particulier.

Je me suis inspiré du message : https://www.developpez.net/forums/d9...pere-variable/ pour mon code, sauf que j'ai un hic le fichier ne veut pas s'enregistrer car d'après Excel, ce dernier ne peut pas accéder au fichier :



Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
'Enregistrement fichier devis
 
    Dim Chemin As String, NomFichier As String
    Chemin = "C:\Users\lberthet\Desktop\Outil de gestion\DEVIS\DEVIS CREE"
    NomFichier = "Devis N° " & Num_Devis & ".xlsm"
    MsgBox NomFichier
    ActiveWorkbook.SaveAs Chemin & NomFichier, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Je pense que c'est un problème tout bête de syntaxe, parce ce que je ne comprend pas c'est comment fonctionne la fonction SaveAs

Pour moi ça sauvegarde le fichier à l'emplacement et au nom : C:\Users\lberthet\Desktop\Outil de gestion\DEVIS\DEVIS CREE\Devis N° Num_Devis.xlsm

Sauf que d'après le message d'erreur j'ai l'impression qu'Excel essaye de l'enregistrer dans un dossier qui s’appel : C:\Users\lberthet\Desktop\Outil de gestion\DEVIS\DEVIS CREEDevis N° Num_Devis.xlsm

PS : j'ai essayé de rajouter un "\" dans le save as en mettant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  ActiveWorkbook.SaveAs Chemin & "\" & NomFichier, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Mais j'ai exactement la même erreur

Voilà si quelqu'un peut m'aider ce serait cool merci

[Thautheme]

Bonjour Eddy, bonjour le forum,

Déja c'est sûr il faut le denier anti slash au chemin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Chemin = "C:\Users\lberthet\Desktop\Outil de gestion\DEVIS\DEVIS CREE\"

Mais il semblerait que tu en aies un aussi dans le nom et ça c'est interdit. Il te faut modifier la variable Num_Devis et remplacer l'anti slash par un underscore (par exemple)...

[EddyBertey]

Bonjour Thautheme,

En effet il y a avait un "\" dans le Num_Devis

J'ai corrigé en mettant un "_", par contre maintenant j'ai un nouveau message d'erreur



Décidément >_<


EDIT : C'est bon ça marche !! j'avais laissé le "/" dans le SaveAs

Donc le bon code qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
'Enregistrement fichier devis
 
    Dim Chemin As String, NomFichier As String
    Chemin = "C:\Users\lberthet\Desktop\Outil de gestion\DEVIS\DEVIS CREE\"
    NomFichier = "Devis N° " & Num_Devis & ".xlsm"
    MsgBox NomFichier
    ActiveWorkbook.SaveAs Chemin & NomFichier, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Merci pour l'aide

[Lsoma]

Bonjour à tous,

Je me permet de vous contacter afin de solliciter votre aide sur un problème similaire à celui de EddyBertey.
En effet, j'ai une macro en Excel 2010 qui a pour but de sélectionner un dossier avec une dialogbox afin d'y sauvegarder des fichiers issus d'une extraction d'un fichier mère. L'extraction se passe très bien, elle se fait selon une colonne pays mais le problème vient au niveau de la sauvegarde de ceux-ci.

Vous trouverez ci-dessous mon code :



ici vous avez ma fonction qui appelle toute les autres et qui me permet de split le fichier mère en fonction des pays puis de sauvegarder les fichiers créés dans un dossier nommé "ListeAppel-Matin". J'appelle la fonction GetFolder (FolderName = GetFolder) qui me retourne le chermin du dossier sélectionné.



la fonction ci dessus permet de crééer mes sous-fichiers avec mes filtres, donc pays par pays et de les enregistrer dans le dossier sélectionné (wbTarget.SaveAs FolderName & nomfichiert)



Voici ma fonction qui me permet de sélectionner le dossier voulu.

Le problème est donc que les fichiers créés s'enregistrent dans le dossier au dessus que celui sélectionné.


Pouvez-vous m'aider à résoudre ce problème s'il vous plait ?
Je vous remercie