[VBA-E] Questions en Vrac...

Version imprimable

07/02/2006, 23h38
Pouic

[VBA-E] Questions en Vrac...
Bonsoir,

Tout d'abord, je tiens à m'excuser de mon ignorance en vba : mon dada, c'est plutôt le C sur des systèmes embarqués, sous nux... Donc bien loin de vba... ;)
Donc pataper si les questions sont débiles... :P

Pour rendre service à mon père, je lui développe quelques macros. J'ai pas mal butiné sur le woueb, et j'ai réussi à faire plus ou moins ce que je voulais.

Mais malgré tout, j'ai encore quelques questions...

1)
Tout d'abord, j'ai une macro qui bosse sur une feuille. Pour le moment, afin de référencer ladite feuille, j'ai codé en dur ceci :
Code:

1 2 Set mafeuille = ThisWorkbook.Worksheets("Feuil1")
Ce que j'aurais voulu, c'est récupérer dynamiquement le nom de la feuille en question.... J'ai bien essayé avec une inputbox, pour récupérer une string que j'aurais passé en index à Worksheets, mais ça plantouille lamentablement....

2)
Dans une autre macro, je cherche à laisser la possibilité à l'utilisateur d'ouvrir un classeur déjà existant (via Application.GetOpenFilename), mais j'aimerai qu'il puisse créer un classeur, avec une boite de dialogue similaire (de façon à la créer où il le souhaite, sans passer de chemin, ni rien...)
Je suis bien tombé sur la fonction GetSaveAsFilename, mais ça plante...
Alors soit je n'ai pas compris comment m'en servir, soit elle n'est pas faite pour ce que je crois...
Donc si vous avez quelques lumières, elles sont les bienvenues :)

Et désolé pour le roman ;)
08/02/2006, 01h30
AlainTech

Pour la première question, va voir là:
http://www.developpez.net/forums/viewtopic.php?t=453656

Ca devrait te donner une piste.
08/02/2006, 10h23
ouskel'n'or
Hello,
Je ne comprends pas bien ce que tu veux faire là :

Citation:

Dans une autre macro, je cherche à laisser la possibilité à l'utilisateur d'ouvrir un classeur déjà existant (via Application.GetOpenFilename), mais j'aimerai qu'il puisse créer un classeur, avec une boite de dialogue similaire (de façon à la créer où il le souhaite, sans passer de chemin, ni rien...)

Si c'est "Ouvrir un classeur", tu as les boîtes de dialogue intégrées que tu peux ouvrir avec ça :

Code:

Application.Dialogs.Item(xlDialogOpen).Show

Si c'est créer un autre classeur, tu as
Code:

1 2 3 Workbooks.Add Chemin = "D:\xls\" ActiveWorkbook.SaveAs Chemin + "NouveauClasseur.xls"
Peux -tu préciser ?

A+

Re: [VBA-E] Questions en Vrac...

Citation:
Envoyé par Pouic
1)
Tout d'abord, j'ai une macro qui bosse sur une feuille. Pour le moment, afin de référencer ladite feuille, j'ai codé en dur ceci :
Code:

1 2 Set mafeuille = ThisWorkbook.Worksheets("Feuil1")
Ce que j'aurais voulu, c'est récupérer dynamiquement le nom de la feuille en question.... J'ai bien essayé avec une inputbox, pour récupérer une string que j'aurais passé en index à Worksheets, mais ça plantouille lamentablement....
tu peu aussi accéder au feuilles par leur numéro..
Code:

1 2 Set mafeuille = ThisWorkbook.Worksheets(1)
la proprièté .Name te renvoi le nom..., tu peu pour le choix de la feuille utiliser un userform dans lequel tu colle une combobox..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ' ' Initialise conbobox à l'ouverture ' Private Sub UserForm_Initialize() For Each f In ThisWorkbook.Sheets ComboBox1.AddItem f.Name Next End Sub Private Sub ComboBox1_Change() MsgBox "Selection feuille " & ComboBox1 End Sub
:wink:

08/02/2006, 12h31
Pouic

Merci de vos réponses :)
Je testerai tout ça chez moi ce soir, je vous tiendrai au courant...

Sinon, quant à mon histoire d'ouverture de classeur, je m'explique :
j'aimerais que l'utilisateur puisse soit selectionner un classeur existant (sur lequel je lancerai ma macro), soit qu'il puisse saisir un nouveau nom de classeur (que je créerai via Workbook.add, enfin j'imagine...), et sur lequel je lancerai aussi ma macro :)

En gros, qu'il puisse faire un "Ouvrir", et que si le nom qu'il saisit ne référence pas un classeur existant, le classeur correspondant soit créé....
Comme ça je récupère ce classeur (nouvellement créé ou non), et je bosse dessus...

J'espère avoir été un peu plus clair... :?

tiens pour l'ouverture...

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 08/02/2006 par pb
'
 
'
    Sheets(Array("Feuil2", "Feuil3")).Select
    Sheets("Feuil2").Activate
    Range("B10").Select
    ActiveCell.FormulaR1C1 = "12"
    Range("B11").Select
End Sub
Sub Macro2()
'
 
For i = 3 To Sheets.Count
  Sheets(i).Select (i = 3)
 
Next i
 
End Sub
 
 
 
Sub OuvreClasseur()
 Dim St
  Dim wk As Workbook
 St = Application.GetSaveAsFilename("", "Fichier xls (*.xls), *.xls", 1, "Nom du fichier")
 If St = "Faux" Then Exit Sub 'Abandon opérateur
 If Dir(St) = "" Then
    'Le fichier n'existe pas il est créé..
     Set wk = Workbooks.Add
     wk.SaveAs St
    Else
     Set wk = Workbooks.Open(St)
 End If
 
 'Quelques lignes d'exmple supplémentare pour agir sur fichier Sélectionné/créé...
 wk.Activate
 wk.ActiveSheet.Range("A3").Activate 'Par exemple
 MsgBox wk.Name
 '.....
 
End Sub

:wink:

08/02/2006, 13h50
Pouic

Merci beaucoup :D

Je teste tout ça ce soir, mais je pense que ça repondra à mes besoins ;)

Je met le sujet en Résolu pour le moment, si j'ai des problèmes, je reviendrai vous voir :)