[VBA-E]sauvegarde de .xls

**ouskel'n'or** · 10/02/2006, 20h59

Non, pas facile du tout,

j'avais oublié que ton bouton était dans ta feuille, pas dans une form.
Le problème dans ce cas c'est qu'il va falloir trouver le moyen de récupérer le N° du fichier enregistré pour l'incrémenter.
Peux-tu me passer le code qui te sert pour nommer le bouton du nom du fichier, ça m'évitera d'avoir à le rechercher.

J'attends !

**ogenki** · 10/02/2006, 21h03

pourquoi ne pas faire l'incrementation dans la fonction ??

voila le bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
butTop = Range("k" & lastline + 7).Top
            butLeft = Range("k" & lastline + 7).Left
            butHeight = Range("k" & lastline + 7).Height
            butWidth = Range("k" & lastline + 7).Width
            Set Bouton = ActiveSheet.Buttons.Add(Left:=butLeft, Top:=butTop, Width:=butWidth, Height _
            :=butHeight * 2)
            With Bouton
                .OnAction = "SaveFiles"
                .Name = Name(0)
                .Caption = "sauve et ouvre"
            End With

**ouskel'n'or** · 10/02/2006, 21h11

Ouais ! Hé bien ça ne m'arrange pas pour le renommer. Il faut passer pas OLEObject et, comme je ne suis pas au boulot, je n'ai pas la syntaxe. Et comme je t'ai dit "un jour" je n'ai jamais eu à l'utiliser...

Tu me l'aisse un moment ?

Je vais déjeuner, on m'appelle, je reviens ensuite. Promis

Si quelqu'un connaît la syntaxe pour renommer un bouton se trouvant dans une feuille de calcul excel, qu'il n'hésite pas à l'indiquer. Ensuite ce sera du gâteau (!) (tu es en droit de douter un peu) mais je souhaite que tu aies réglé ce problème ce soir que tu passes, enfin, un week-end tranquille...

A tout'

**ogenki** · 10/02/2006, 21h16

(tu es en droit de douter un peu) mais je souhaite que tu aies réglé ce problème ce soir que tu passes, enfin, un week-end tranquille...

je te remercie

pour se qui est du probleme... pourquoi dans la fonction..ne pas scané sauvegarde..a la recherche de tout les NomFichier...de la on teste se qu'il y a deriere genre _01 ou _02...et quand ou arive aubout on fait +1... non ???

**ouskel'n'or** · 10/02/2006, 21h23

Parce qu'il serait necessaire de tester tous tes noms de fichiers pour connaître le N° du dernier. Bien sûr, ça peut se faire mais il serait moins coûteux si l'on pouvait renommer le bouton lui-même en l'incrémentant.
Mais j'ai la réponse sur le forum. J'espère la retrouvée puisque je l'ai donnée, Dark m'aidant apporté un élément qui me manquait.

A tout', on m'appelle toujours...

Je pense que tu connais ça...

**jmfmarques** · 10/02/2006, 21h25

un simple "drapeau" incrémentable (dans cellule ou en dur... un .txt par exemple)

**ogenki** · 10/02/2006, 21h27

lol oui je conais sa

le probleme... et que enfait le la ligne . Name

Code :

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

.Name = Name(0)

recupere se qui dans la fonction s'apelle Application.caller

et sa je peu pas le bougé.. enfin.. je pense pas pouvoir..

**ogenki** · 10/02/2006, 21h29

Envoyé par jmfmarques

un simple "drapeau" incrémentable (dans cellule ou en dur)

va y developpe..argumente...stp

**jmfmarques** · 10/02/2006, 21h35

Si cela t'échappe à ce point, n'en parlons plus!

**ouskel'n'or** · 10/02/2006, 21h35

Tiens, pour patienter, essaie ça.
Tu mets un bouton tout neuf, un seul, dans une feuille (feuil1) Excel
Tu mets ce code dans la feuille de code de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
For i = 1 To Worksheets("Feuil1").OLEObjects.Count
    Set LeBouton = Worksheets("Feuil1").OLEObjects(i)
    With LeBouton
    NoBouton = Val(Mid(.Name, 14, Len(.Name) - 13))
        Nom = Left(.Name, 13)
        .Name = Nom & Trim(Str(NoBouton + 1))
        MsgBox .Name
    End With
Next
End Sub

Ensuite, fais un clic sur le bouton, et puis un autre, et puis un autre...

Ce coup-ci, j'y vais

**ogenki** · 10/02/2006, 21h42

soit je suis mancho soit j'ai vrement un prob avec VBA.. pourquoi je voi pas ton bouton ???

:

**ouskel'n'or** · 10/02/2006, 21h54

C'est toi qui dois le mettre dans la feuille
Dans Excel, Menu Affichage -> Barres d'outils -> Commandes
et là tu choisi un bouton et tu le places n'importe ou dans la feuille.
A gauche de la barre de commandes, tu as une équerre. Une fois le bouton créé (dessiné) et pour faire l'essai, tu dois la dévalider.

A toi

**ThierryAIM** · 10/02/2006, 21h58

Envoyé par ogenki

soit je suis mancho soit j'ai vrement un prob avec VBA

les 2, a mon avis

**ouskel'n'or** · 10/02/2006, 22h06

Dans le code qui sert à nommer le bouton peux-tu ajouter un msgbox et me dire ce qu'il t'affiche ?

Code :

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

1
2
3
4
5
6
            With Bouton 
                .OnAction = "SaveFiles" 
                .Name = Name(0) 
           Msgbox .name '****************
                .Caption = "sauve et ouvre" 
            End With

Ça y est, tu t'en es sorti avec ce foutu bouton ?

A tout' j'ai fini de manger (sur le pousse)

**ogenki** · 10/02/2006, 22h07

ok j'ai fait il s'increment....
EDIT:
enfait sa renvoi le nom du fichier si le fichier c'est MonFichier.xls il renvoi MonFichier

**ouskel'n'or** · 10/02/2006, 22h16

Donc, je compte utiliser le bouton pour incrémenter le nom du fichier. Mais avant, je dois savoir plusieurs choses :
1 - Où se trouve le bouton qui te sert à créer les nouveaux fichiers ?
2 - Sur quel fichier ?
3 - Toujours le même ?
4 - Les fichiers créés ont-ils des boutons dont le rôle serait de créer de nouveaux fichiers incrémentés ?
Et enfin :
5 - Le fichier qui te sert à créer les nouveaux fichiers, doit-il les créer en continu ou peut-il être fermé puis re-ouvert pour créer de nouveau fichiers ?

A tout'

**ogenki** · 10/02/2006, 22h19

bon je suis pas sur d'avoir tout compris...

mais!! je n'ai pas de bouton pour crée de nouveau fichier... je ne fait que repertorié les fichier deja existant dans mes document et travaillé avec...

**ouskel'n'or** · 10/02/2006, 22h20

enfait sa renvoi le nom du fichier si le fichier c'est MonFichier.xls il renvoi MonFichier

C'est bien ce que j'avais compris. Ça, c'est ok !
Peux-tu me répondre sur le dernier post ?

A tout'

**ogenki** · 10/02/2006, 22h23

Où se trouve le bouton qui te sert à créer les nouveaux fichiers ?

il n'y en a pas ( voir mon dernier post)

Sur quel fichier ?

il n'y en a pas ( voir mon dernier post)

Toujours le même ?

enfait je travaille toujour sur le meme fichier

je sais pas si je m'exprime bien..

**ouskel'n'or** · 10/02/2006, 22h24

:

pour faire simple...j'ai un bouton qui fait sa..

C'est dans ton premier post...
En outre Application.caller ne donne pas le nom d'un bouton ?
Je parle de ce bouton là, celui que tu utilises pour créer tes fichier "à l'infini"

A tout'

[VBA-E]sauvegarde de .xls

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager