créer classeur Excel portant le nom d'une ComboBox

Version imprimable

20/11/2006, 16h48
Chewi

créer classeur Excel portant le nom d'une ComboBox

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
20/11/2006, 16h50
SfJ5Rpw8

Citation:

Envoyé par Chewi

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

ben pareil..;)
20/11/2006, 16h55
Chewi

Euh... Merci bbil:roll:

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

:koi:

tiens pour débuter,
Code:

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 ...?

Merci;)

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

Lieu où l'enregistrer:
Code:

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

20/11/2006, 20h25
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!

:help:

chewi
21/11/2006, 08h59
SfJ5Rpw8

:aie:

Code:

wk.SaveAs "C:\Documents and Settings\Moi\Desktop\" & ComboBox1
21/11/2006, 10h02
Chewi

merci;)
05/12/2006, 10h20
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:

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
05/12/2006, 12h51
SfJ5Rpw8

pour tester l'existence tu as Dir...

Salut bbil,

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

Code:

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

06/12/2006, 08h13
SfJ5Rpw8

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

Code:

Set wk = Workbooks.Open("C:\Documents and Settings\moi\Desktop\" & Fichier)
06/12/2006, 08h15
AlainTech

As-tu lu l'aide sur la méthode Open?
06/12/2006, 09h01
Chewi

Avec ceci ça fonctionne:

Code:

Workbooks.Open "Fichier"

Euh, AlainTech, pour répondre à ta question oui je lis les aides avant de poster. Et quand je poste, c'est dû au fait que je ne trouve pas réponse dans l'aide ou sur internet.

J'ai ainsi par exemple regarder l'aide sur "invalid quallifier" mais je n'ai pas trouvé réponse.

Je croyais que mon problème venait de "Fichier".

De plus, il est plus facile pour vous, habituées de trouver le topic dans l'aide qui va fournir la réponse tandis que pour ma part, je cherche souvent longtemps avant de trouver l'article résolvant mon problème.

Merci