Enregistrement Classeur Via variable Chemin et variable NomFichier

Bonjour à tous,

Suite à un formulaire (Userform) je rempli des cases d'un classeur excel, à la fin du remplissage, je souhaiterai via un bouton valider :
Et au moment de valider :
1 - Je ferme mon Formulaire

2 - Une boite de dialogue s'ouvre en recherchant un repertoire de destination mais le nom du classeur est variabilisé en fonction des cases remplies via mon formulaire, soit :
MonFichier = Format(Date, "yyyymmdd") & "_" & Tbx_Nom_DAT & "_" & Cbx_DAT_Out & ".xlsx" => Format(Date, "yyyymmdd") mon nom de fichier commence par la date
=> Tbx_Nom_DAT corresspond a une case rempli par mon formulaire
=> Cbx_DAT_Out corresspond a une case rempli par mon formulaire

2 - Selectionner un repertoire avec une boite de dialogue qui va chercher le repertoire, soit :
' Ouverture de la fenêtre de choix du répertoire

Code:

---

1 2 3 4 5 6 7 8 9 10

.......... MonFichier = Format(Date, "yyyymmdd") & "_" & Tbx_Nom_DAT & "_" & Cbx_DAT_Out & ".xlsx" Dim ShellApp As Object Dim chemin As String   Set ShellApp = CreateObject("Shell.Application") chemin = ShellApp.BrowseForFolder(0, "Repertoire de destination", 0).self.Path Set ShellApp = Nothing ActiveWorkbook.SaveAs Filename:= chemin & "\" & MonFichier

---

3 - enregistre et ferme tout


Je n'arrive pas a trouver comment je peux enregistrer ce classeur ... mode debug et ça fait 2 jours que je suis dessu ... tout en sachant que c'est certainemeent simple mais !!! je bug aussi !!!
Le problème est la derniere ligne ... du moins ça Bug !!! :roll: :calim2:
Merci a vous de votre aide

Bonjour,

Citation:

---

Ca bug

---

N'est pas un message d'erreur très explicite.

Quels sont les valeurs de "chemin" et "MonFichier" au moment de l'erreur ?

Je precise je suis débutant en VBA ... mais je ne comprends pas le message :

Code:

---

1 2 3 4 5 6

Erreur d'execution '1004': Impossible d'utiliser cette extension avec le type de fichier Selectionné. Modifiez l'extension du fichier dans la zone texte Nom du fichier ou selectionnez un autre type de fichier dans la zone Type de fichier.

---

C'est sur

Code:

---

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & MonFichier

---

que cela s'arrête ...
Tout le reste fonctionne ... :aie:

L'aide sur save as: https://msdn.microsoft.com/fr-fr/VBA...s-method-excel
Vu que tu passe d'un fichier xlsm a un fichier xlsx, il me parait judicieux de préciser "FileFormat"

et tu n'as pas répondu a ça:

Citation:

---

Quels sont les valeurs de "chemin" et "MonFichier" au moment de l'erreur ?

---

Elles sont visibles dans la fenêtre des variables locales.

Bonjour,

Histoire d'ajouter de l'eau au moulin ...:mrgreen:

Personnellment j'utiliserai les FileDialog qui te permette très facilement de gérer ouverture, fermeture des classeurs.

Fait F1

Je l'ai mis dans mon première intitulé :

Code:

---

1 2 3 4 5

MonFichier = Format(Date, "yyyymmdd") & "_" & Tbx_Nom_DAT & "_" & Cbx_DAT_Out & ".xlsx"   chemin = ShellApp.BrowseForFolder(0, "Repertoire de destination", 0).self.Path

---

Ca c'est le code, pas la valeur.
Tu as des variables dans ton code, es tu sur qu'ils ont la valeur que tu attendais ?
Le meilleur moyen de le vérifier c'est d'aller voir dans la fenêtre des variables locales, parfois on a des surprises.

Re ...
Merci en tout cas pour ta réactivité c'est vraiment trés agréable :P:D

J'avance ... un peu ...
La fenêtre variable ... !!??? c'est une application qui sera partagée mes variables locales ... sous windaube !?

en tous cas voici le résultat apres changement

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim ShellApp As Object Dim chemin As String   Set ShellApp = CreateObject("Shell.Application") chemin = ShellApp.BrowseForFolder(0, "Repertoire de destination", 0).self.Path Set ShellApp = Nothing Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=chemin & "\" & Format(Date, "yyyymmdd") & "_" & Tbx_Nom_DAT & "_" & Cbx_DAT_Out, FileFormat:=xlOpenXMLWorkbook

---

Mon fichier s'enregistre très bien dans le bon chemin et le bon nom ... mais pas avec l'extension xlsx :calim2::calim2: ... j'ai un fichier sans extension !!!

Pour voir la valeur de tes variables: Pièce jointe 331007

Citation:

---

Mon fichier s'enregistre très bien dans le bon chemin et le bon nom ... mais pas avec l'extension xlsx ... j'ai un fichier sans extension !!!

---

Je n'ai jamais eu ce problème, as-tu des caractères spéciaux dans le nom de ton fichier ? si tu l'envoie dans un répertoire fixe avec un nom fixe (genre c:\test.xlsx) ça fonctionne ?