[VBA-E]sauvegarde de .xls

Version imprimable

Voir 40 message(s) de cette discussion en une page

10/02/2006, 19h59
ouskel'n'or

Non, pas facile du tout, :oops: 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 ! :lol:

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

voila le bouton

Code:

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

10/02/2006, 20h11
ouskel'n'or

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 ? :wink:

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'
10/02/2006, 20h16
ogenki

Citation:

(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 :D

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 ???
10/02/2006, 20h23
ouskel'n'or

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... :lol:
Je pense que tu connais ça...
10/02/2006, 20h25
jmfmarques

un simple "drapeau" incrémentable (dans cellule ou en dur... un .txt par exemple)
10/02/2006, 20h27
ogenki

lol oui je conais sa :lol: :lol:

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

Code:

.Name = Name(0)

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

et sa je peu pas le bougé.. enfin.. je pense pas pouvoir..
10/02/2006, 20h29
ogenki

Citation:

Envoyé par jmfmarques

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

va y developpe..argumente...stp
10/02/2006, 20h35
jmfmarques

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

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:

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

10/02/2006, 20h42
ogenki

:oops: :oops: soit je suis mancho soit j'ai vrement un prob avec VBA.. pourquoi je voi pas ton bouton ??? :?: :?:
10/02/2006, 20h54
ouskel'n'or

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
10/02/2006, 20h58
ThierryAIM

Citation:

Envoyé par ogenki

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

les 2, a mon avis :roll:

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

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)

10/02/2006, 21h07
ogenki

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
10/02/2006, 21h16
ouskel'n'or

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'
10/02/2006, 21h19
ogenki

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...
10/02/2006, 21h20
ouskel'n'or

Citation:

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'
10/02/2006, 21h23
ogenki

Citation:

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

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

Citation:

Sur quel fichier ?

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

Citation:

Toujours le même ?

enfait je travaille toujour sur le meme fichier

je sais pas si je m'exprime bien..
10/02/2006, 21h24
ouskel'n'or

:?: :?: :?: :?: :?: :?: :?:

Citation:

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'

Voir 40 message(s) de cette discussion en une page