[VBA-E]sauvegarde de .xls

Version imprimable

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

bonjour

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

1 2 3 4 5 6 7 8 9 Public Sub SaveFiles() 'sauvegarde le .xls dans sauvegarde FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & Application.Caller & ".xls", _ "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & Application.Caller & ".xls" Workbooks.Open Filename:="C:\Documents and Settings\avaysse\Mes documents\" _ & Application.Caller & ".xls" End Sub
mais enfait je voudrais que sur chaque click sur le bouton..
le .xls qui est copier dans sauvegarde vois son nom incrementé+1 par raport au precedent...

j'ai essayé en metent simplement un compteur mais sa ne marche pas...

je demande donc votre aide..

10/02/2006, 15h49
bouley

Salut ogenki,

l'indice que l'on doit incrementer est déja dans application.caller ?
Pour etre clair qui ya t-il dans application.caller

@+
10/02/2006, 15h51
ogenki

il y a le nom du fichier... exemple " testfichier"
10/02/2006, 16h01
bouley

donc si tu dois incrémenter application.caller contiendra la prochaine fois testfichier01 par exemple
ou mieux testfichier_01 par exemple

t'es d'accord ?
10/02/2006, 16h02
ogenki

Citation:

donc si tu dois incrémenter application.caller contiendra la prochaine fois testfichier01 par exemple
ou mieux testfichier_01 par exemple

t'es d'accord ?

oui exactement
10/02/2006, 16h05
ouskel'n'or

Pour quelle raison le compteur ne fonctionnet-t-il pas ? Ton compteur se trouve réinitialisé pour chaque nouveau fichier ?

A+

je croi que c'est juste parseque j'ai ecrit une belle conerie

genre

Code:

1
2
3
4
5
6
7
8
9
10
Public Sub SaveFiles()
'sauvegarde le .xls dans sauvegarde
dim cmp
for cmp = 1 to 100
    FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & Application.Caller & ".xls", _
    "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & Application.Caller & cmp & ".xls"
    Workbooks.Open Filename:="C:\Documents and Settings\avaysse\Mes documents\" _
    & Application.Caller & ".xls"
next
End Sub

j'ai un peu de mal a comprendre la...

j'ai mis ton code... sa marche.. c'est a dire qu'il fait bien la sauvegarde et il ouvre le fichier

mais il plante....avec une erreur

Citation:

permission refusée

sur
Code:

1 2 FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & Application.Caller & ".xls", _ "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & Application.Caller & cmp & CStr(i) & ".xls"

10/02/2006, 16h30
SfJ5Rpw8

cela ressemble à ça non ?
http://www.developpez.net/forums/vie...51716&start=25 :wink:
10/02/2006, 16h34
ogenki

:oops: sa a l'air de ressemblé mais je ne vois pas trop comment m'en servir...
:oops:
10/02/2006, 16h42
bouley

salut a tous

Dites moi si j'ai mal compris j'ai un doute !

Au prochain clic ogenki m'a confirmé que par exemple
application.caller contiendrai testfichier_01 par exemple

donc avec ton code ouskel'nor
le fichier devient testfichier_01+compteur -->testfichier_01_02

et non testfichier_02

merci de m'éclairer
@+
10/02/2006, 16h43
ouskel'n'or

Tu n'aurais pas mis une protection sur ton classeur autre que le readOnly ?
Si tu enregistres une première fois ton fichier avec ReadOnly, tu ne peux pas la suivante l'enregistrer sous le même nom... tu sais ça.
J'émets cette hypothèse en raison de l'une de tes questions récentes concernant la protection d'un classeur (readOnly, pas readOnly... au fait, tu as réglé le pb ?)

A+
10/02/2006, 16h45
ogenki

lol non le classeur ne devrais pas etre protejé.. et non toujour pas de solution...

Citation:

Dites moi si j'ai mal compris j'ai un doute !

Au prochain clic ogenki m'a confirmé que par exemple
application.caller contiendrai testfichier_01 par exemple

donc avec ton code ouskel'nor
le fichier devient testfichier_01+compteur -->testfichier_01_02

et non testfichier_02

merci de m'éclairer

tu a tres bien compris... et tu a reson le code de ouskel'n'or est bugger

Adapte ceci avec application.caller

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub IncrementeFichier()
Dim test As String
test = "TestFichier_01"
    If InStr(1, test, "_") = 0 Then
        'Pas d'incrementation trouvé = premierfichier
        increment = "01"
    Else
        'Si incrementation trouvée
        pos = InStr(1, test, "_")
        increment = Format(CStr(CDbl(Mid(test, pos + 1, Len(test)) + 1)), "00")
    End If
'ici increment = "02"
test = Left(test, pos) & increment
End Sub

Citation:

donc avec ton code ouskel'nor
le fichier devient testfichier_01+compteur -->testfichier_01_02

Oui, parce que tu re-ouvres le fichier que tu viens d'enregistrer, autant pour moi. :oops: Je n'avais pas compris comment ça marchait
Dans ce cas là, du dois formater cmp et placer une balise (voir la réponse de Bouley) Je prends underscore comme lui.
Code:

1 2 3 4 5 6 7 8 9 10 Public Sub SaveFiles() 'sauvegarde le .xls dans sauvegarde dim cmp for cmp = 1 to 100 FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & Application.Caller & ".xls", _ "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & Left(Application.Caller,instr(_)-1) & "_" & cstr(cmp) & ".xls" Workbooks.Open Filename:="C:\Documents and Settings\avaysse\Mes documents\" _ & Left(Application.Caller,instr(_)-1) & "_" & cstr(cmp) & ".xls" next End Sub
Essaie de comprendre ce que j'ai fait afin de l'adapter à ce que tu souhaites... Je ne connais pas l'ensemble de ton appli... et je ne suis pas le seul... :wink:

A+

Edit
Pour FileCopy, je considère que tu parts d'un fichier sans N°
Sinon, tu dois connaître le N° de départ (!)

10/02/2006, 16h53
ogenki

le probleme etant que le "fichier source" et de la forme..fichiertest et non fichiertest_01
10/02/2006, 16h57
ogenki

pourquoi il aime pas le _ dans instr(_)-1???
10/02/2006, 16h58
ouskel'n'or

Parce que j'ai laissé un bug :oops: :oops:

("_")

Edit
Mais ça, tu aurais pu le voir tout seul, non ? :evil: ça m'aurait évité de rougir de honte...

Code:

1
2
3
4
5
6
7
8
9
10
Public Sub SaveFiles()
'sauvegarde le .xls dans sauvegarde
Dim cmp
For cmp = 1 To 100
    FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & Application.Caller & ".xls","C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & Left(Application.Caller,instr(_)-1) & cstr(cmp)  & ".xls"
 
    Workbooks.Open Filename:="C:\Documents and Settings\avaysse\Mes documents\" _
    & Left(Application.Caller,instr(_)-1) & cstr(cmp)  & ".xls"
Next
End Sub

ne marche pas non plus.. la meme erreur

10/02/2006, 17h01
ogenki

j'ai enlevé les "_"... mais sa marche pas..

dans instr(_) le _ est consideré comme caractere incorect... :s

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