Discussion :

[loucinev]

Bonjour,

J'aimerais enregistrer un classeur dans un répertoire donné en cliquant sur le bouton ok de mon userform.

Pour cela j'ai utilisé le code suivant :

Code :

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

ActiveWorkbook.SaveAs Filename:="D:\DATA\v.beguin\Documents\PTI\Test enregistrement de données" & Nom_fichier

Je n'ai aucun beugue mais je n'ai aucun enregistrement dans mon répertoire.
De plus étant donné que le nom du fichier peut varier, j'aimerais si c'est possible que la variable Nom_fichier prenne la valeur d'un de mes TextBox (Name = TbProjet1) de mon userform.

Notal : A la création d'un nouveau projet, un nouveau classeur s'ouvre et s'active



Merci par avance pour votre aide

Cordialement

[Kimy_Ire]

Bonjour loucinev,

1) ActiveWorkbook.SaveAs Filename:="D:\DATA\v.beguin\Documents\PTI\Test enregistrement de données\" & Nom_fichier. Ca devrait mieux marcher comme ça. =)
2) Simplement comme ceci, j'imagine : Nom_fichier = TbProjet1.Value.

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[loucinev]

j'ai un problème ça ne marche toujours pas ... j'ai ce message qui apparait alors que le répertoire existe ...

[Kimy_Ire]

loucinev,

Je ne sais pas trop quoi te dire...
As-tu vérifié les trois points mentionnés ?

J'ai fait un test pour m'assurer que ça fonctionne chez moi. C'est effectivement fonctionnelle...

Découpe tranquillement tes éléments pour savoir où ça bloque...
1) Sauvegarde dans un répertoire local.
2) Vérifie que tu peux coller un fichier dans le répertoire dans lequel tu veux placer le fichier.
3) dans ta variable, place une String que tu set manuellement avant de passer par ta TextBox.

N'hésite pas à revenir vers moi.

Cordialement,
Kimy

[loucinev]

alors je viens de modifier le chemin pour le simplifier, mon nouveau classeur excel se crée mais il ne prend pas le nom que j'ai donné dans ma textbox ...
je vais continuer à chercher...

[Kimy_Ire]

loucinev,

Avec un UserForm tout simple : une TextBox et un CommandButton, j'effectue une sauvegarde sans soucis comme cela :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim Nom_fichier As String
 
Nom_fichier = Me.TextBox1.Value
ActiveWorkbook.SaveAs Filename:="C:\Users\...\Desktop\test\" & Nom_fichier
 
End Sub

N'hésite pas à me dire si tu rencontres des difficultés.

Cordialement,
Kimy

[loucinev]

Alors j'ai fait les modifications que vous m'avez conseiller de faire, tout marche mais il y a juste une petite confusion ...
Ce n'est pas mon nouveau classeur qui prend est enregistré avec la valeur de ma textBox , c'est mon classeur déja ouvert ou se trouve tout mon programme :/ j'ai du faire une erreur

merci en tout cas

[kiki29]

Salut, qqs conseils supplémentaires : vérifier la validité des noms de fichiers via qqch comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function

Créer s'il n'existe pas le dossier via :

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub CreationDossier()
Dim FSO As Object, sDossier As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sDossier = ThisWorkbook.Path & "\" & "Essai"
    If Not FSO.FolderExists(sDossier) Then FSO.CreateFolder (sDossier)
    Set FSO = Nothing
End Sub

[Kimy_Ire]

Alors j'ai fait les modifications que vous m'avez conseiller de faire, tout marche mais il y a juste une petite confusion ...
Ce n'est pas mon nouveau classeur qui prend est enregistré avec la valeur de ma textBox , c'est mon classeur déja ouvert ou se trouve tout mon programme :/ j'ai du faire une erreur

merci en tout cas

C'est assez simple, tu utilises "ActiveWorkbook". C'est le classeur donc courant.
Si tu veux que ce soit un autre classeur, passe par la méthode Workbooks("Le nom de mon classeur")....

Cordialement,
Kimy

[loucinev]

Merci beaucoup pour toutes ces réponses, je vais tester cela dès à présent et je vous dirais le résultat