Discussion :

[kalwin]

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 :

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

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 !!!
Merci a vous de votre aide

[halaster08]

Bonjour,

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 ?

[kalwin]

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

Code :

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

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 :

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

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

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

[halaster08]

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:

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

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

[Igloobel]

Bonjour,

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

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

Fait F1

[kalwin]

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

Code :

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

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

[halaster08]

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.