Discussion :

[Chewi]

Bonjour au forum et Re pour certain.

Comment créer, via une macro cachée sous un bouton d'un UserForm, un classeur Excel qui porterait le nom de la ComboBox de ce même UserForm?

Un peu comme pour créer un nouveau classeur qui porte le nom d'une certaine cellule.

Merci d'avance,

Chewi

[SfJ5Rpw8]

...
Un peu comme pour créer un nouveau classeur qui porte le nom d'une certaine cellule....

ben pareil..

[Chewi]

Euh... Merci bbil

Mais je ne sais pas comment faire non plus!
C'était juste dans le but d'éclaircir ma question!

[SfJ5Rpw8]

tiens pour débuter,

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
 Dim wk As Workbook
 If ComboBox1 <> "" Then
    Set wk = Workbooks.Add
    wk.SaveAs ComboBox1
   End If
End Sub

ensuite on manque d'info ... que fait'on si le classeur existe déjà ..? ou enregistre t'on le classeur ...?

[Chewi]

Merci

En principe, le classeur n'est pas sensé exister.
Au pire, s'il existe, juste l'activer.

Lieu où l'enregistrer:

Code :

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

1
2
3
4
 
"C:\Documents and Settings\Moi\Desktop\[Uf2.ComboBox1.Value].xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

[Chewi]

Re

Désolé qu'il faille me prendre par la main pour un bout de code mais je narrive pas à combiner ton code avec un chemin d'enregistrement!



chewi

[Chewi]

merci

[Chewi]

Re,

Je reviens avec ce post car il m'arrive d'être dans le cas où le classeur existe déjà.
Et je souhaiterais que dans ce cas, Excel ne m'affiche pas de message " Ce fichier existe déjà, désirez-vous le remplacer" mais affiche une MsgBox que je crée moi-même "Ce fichier existe déjà, voulez-vous l'ouvrir?" oui - non
oui: l'ouvrir
non: revenir à ma ComboBox de départ

Quelque chose du genre:

Code :

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

1
2
3
4
5
6
If "C:\Documents and Settings\moi\Desktop\" & ComboBox1 exist Then
Open "C:\Documents and Settings\moi\Desktop\" & ComboBox1
Else Set wk = Workbooks.Add
      wk.SaveAs ...
      ...
End If

Comment faire?

Merci

[SfJ5Rpw8]

pour tester l'existence tu as Dir...

[Chewi]

Salut bbil,

J'ai une erreur de compilation "Invalid qualifier" sur la ligne Fichier.Open

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
18
19
20
21
22
23
24
25
26
Private Sub Valider_Click()
Dim wk As Workbook
    If ComboBox1 <> "" Then
        Dim Fichier As String
        Dim reponse As Boolean
        Fichier = Dir("C:\Documents and Settings\moi\Desktop\" & ComboBox1)
        If Fichier <> "" Then
        reponse = MsgBox("Ce fichier existe déjà, voulez-vous l'ouvrir?", vbYesNo)
        If reponse = vbNo Then
        Exit Sub
        End If
        reponse = vbYes
        Fichier.Open
        'le fichier existe
        Else
        'le fichier n'existe pas
            Set wk = Workbooks.Add
            wk.SaveAs "C:\Documents and Settings\moi\Desktop\" & ComboBox1
            Unload Uf1
            Load Uf2
            Uf2.Show
        End If
    Else
            MsgBox "Vous n'avez pas entré de Lot"
    End If
End Sub

Quelqu'un peut-il me dire la correction à apporter?

Merci,

Chewi

[SfJ5Rpw8]

ben fichier c'est une variable texte (string), tu ne peu pas y appliquer la méthode open...!

Code :

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

Set wk = Workbooks.Open("C:\Documents and Settings\moi\Desktop\" & Fichier)

[AlainTech]

As-tu lu l'aide sur la méthode Open?