[VBA-E]sauvegarde de .xls

**ogenki** · 10/02/2006, 15h35

bonjour

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

Code :

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

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

**bouley** · 10/02/2006, 15h49

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

@+

**ogenki** · 10/02/2006, 15h51

il y a le nom du fichier... exemple " testfichier"

**bouley** · 10/02/2006, 16h01

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 ?

**ogenki** · 10/02/2006, 16h02

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

**ouskel'n'or** · 10/02/2006, 16h05

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

A+

**ogenki** · 10/02/2006, 16h15

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

genre

Code :

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

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

**ogenki** · 10/02/2006, 16h28

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

permission refusée

sur

Code :

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

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"

**SfJ5Rpw8** · 10/02/2006, 16h30

cela ressemble à ça non ?
http://www.developpez.net/forums/vie...51716&start=25

**ogenki** · 10/02/2006, 16h34

sa a l'air de ressemblé mais je ne vois pas trop comment m'en servir...

**bouley** · 10/02/2006, 16h42

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
@+

**ouskel'n'or** · 10/02/2006, 16h43

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+

**ogenki** · 10/02/2006, 16h45

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

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

**bouley** · 10/02/2006, 16h49

Adapte ceci avec application.caller

Code :

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

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

@+

**ouskel'n'or** · 10/02/2006, 16h51

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.

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 :

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

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

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 (!)

**ogenki** · 10/02/2006, 16h53

le probleme etant que le "fichier source" et de la forme..fichiertest et non fichiertest_01

**ogenki** · 10/02/2006, 16h57

pourquoi il aime pas le _ dans instr(_)-1???

**ouskel'n'or** · 10/02/2006, 16h58

Parce que j'ai laissé un bug

("_")

Edit
Mais ça, tu aurais pu le voir tout seul, non ?

ça m'aurait évité de rougir de honte...

**ogenki** · 10/02/2006, 16h59

Code :

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

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