Discussion :

[ogenki]

ok j'avais vrement pas compris... mais il est toujour pas d'accord il atend un separateur ede fin de liste sur la ) lol

[bouley]

oops pardon pour mon erreur

Correction & amelioration

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
FichierIncremente = IncrementeFichier(Application.caller)
 
 Function IncrementeFichier(FichieraIncrementer)
 
    If InStr(1, FichieraIncrementer, "_") = 0 Then
        'Pas d'incrementation trouvé = premierfichier
        increment = "01"
  IncrementeFichier = FichieraIncrementer & "_" & increment
 
    Else
        'Si incrementation trouvée
        pos = InStr(1, FichieraIncrementer, "_")
        increment = Format(CStr(CDbl(Mid(FichieraIncrementer, pos + 1, Len(FichieraIncrementer)) + 1)), "00")
 IncrementeFichier = Left(FichieraIncrementer, pos) & increment
 
    End If
 
End Function

@+

[ouskel'n'or]

En relisant l'aide, je m'aperçois que ça risque plus de t'embrouiller compte tenu de l'utilisation que j'en fait
Supposons "Fichier.xls"
J'ajoute "_" et "1" après fichier, ce qui donne Fichier_1
Si je fais NomFichier = Left("Fichier_1", instr(Fichier_1,"_")-1)+ "_"+ "2"
J'obtiens Fichier+ "_" + "2" = "Fichier_2"

Mais en faisant ça, je m'aperçois que je m'ai trompé une nouvelle fois.. et que je t'ai fai perdre ton temps

CORRECTION

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(Application.Caller,"_")-1) & cstr(cmp)  & ".xls" 
 
    Workbooks.Open Filename:="C:\Documents and Settings\avaysse\Mes documents\" _ 
    & Left(Application.Caller,instr(Application.Caller,"_")-1) & cstr(cmp)  & ".xls" 
Next 
End Sub

J'espère que tu voudras bien m'excuser, je répondais entre deux coups de téléphone...

A+

[ogenki]

je doute de ton code... se que je voudrais.. c'est renommer uniquement les fichier du dossier sauvegarde... mais pas les autres..

J'espère que tu voudras bien m'excuser, je répondais entre deux coups de téléphone...

tu est tout excuser tu n'es pas a mon service.. mais tu es la pour m'aidé

EDIT

Code :

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

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

renvoi une

incompatibilité de type...

[ogenki]

juste pour savoir.. se serais possible de faire

Code :

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

1
2
3
4
5
copie de mon fichier dans sauvegarde
 
ouverture de mon fichier
 
modification de mon fichier sauvegarde...

aulieu d'essayer de tout faire en meme temp.. vu que sa plante.. lol

EDIT dans cette idée...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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 & ".xls"
    Workbooks.Open Filename:="C:\Documents and Settings\avaysse\Mes documents\" & Application.Caller & ".xls"
    Name "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & Application.Caller & ".xls" _
    As "C:\Documents and Settings\avaysse\Mes documents\" _
    & Left(Application.Caller, InStr(Application.Caller, "_") - 1) & CStr(cmp) & ".xls"
Next
End Sub

marche pas non plus

[ouskel'n'or]

hello, me revoilou,
Je suis allé faire des courses... Devine ! "Gost" ! Un logiciel de copie de disk...
Bon et si on reprenait tout au début ?
Tu veux copier ton fichier en lui affectant un N°
Ensuite, quoi ?

Pour que ce soit plus clair, ne peut-on pas passer par des variable ? Y a-t-il un empêchement ? Sinon :

Code :

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

1
2
3
4
5
6
7
8
Public Sub SaveFiles() 
'sauvegarde le .xls dans sauvegarde 
Dim cmp, NomFich
NomFich = Application.Caller 'Là, je ne peux pas tester (VBA97)
For cmp = 1 To 1   'laisse à 1 pour cet essai
    FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & NomFich & ".xls", _ 
    "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & NomFich & "_" & cstr(i) & ".xls"
Next

Si, sur cette dernière ligne, tu as erreur "Incompatibilité de type", c'est que cstr n'est pas accepté.
Si l'erreur survient sur "NomFich = Application.Caller" alors je ne comprends pas comment fonctionne cette propriété.

Tu dis pendant que je te concocte une suite

A+

Comme je n'ai pas (encore) ta version, je travaille en aveugle

[ogenki]

Si, sur cette dernière ligne, tu as erreur "Incompatibilité de type", c'est que cstr n'est pas accepté.

en plein dans le mille sa marche po

Je suis allé faire des courses... Devine ! "Gost" ! Un logiciel de copie de disk..

vi je me suis deja servi de se genre de truc lol

[ouskel'n'or]

Bon, on va trouver autre chose : En plus, tu viens d'apprendre trim...

Code :

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

1
2
3
4
5
6
7
8
Public Sub SaveFiles() 
'sauvegarde le .xls dans sauvegarde 
Dim cmp, NomFich 
NomFich = Application.Caller 'Là, je ne peux pas tester (VBA97) 
For cmp = 1 To 1   'laisse à 1 pour cet essai 
    FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & NomFich & ".xls", _ 
    "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & NomFich & "_" & trim(str(i)) & ".xls" 
Next

Essai ça

[ogenki]

tu veus une bonne nouvelle ?? sa a l'air de marcher impec

je comprend plus rien a se prog...

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, NomFich
NomFich = Application.Caller 'Là, je ne peux pas tester (VBA97)
For cmp = 1 To 1   'laisse à 1 pour cet essai
    FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & NomFich & ".xls", _
    "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & NomFich & "_" & Trim(Str(i)) & ".xls"
Next
Workbook.Open Filename:="C:\Documents and Settings\avaysse\Mes documents\" & NomFich & ".xls"
End Sub

[ouskel'n'or]

Donc, on continue !
ça vient !

A tout'

[ouskel'n'or]

Maintenant, tu peux faire sans te soucier de ce qu'il y a dans Application.Caller puisque NomFich ne changera plus jamais jamais

Tu mets

Code :

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

For i = 1 to 100

et picétou !

A moins que tu fasses autre chose en plus...

Tu dis

[ogenki]

oui je doit ouvrir le classeur que je copie ( celui qui n'est pas dans sauvegarde...) et LA sa plante...
EDIT


si je reclique sur le bouton la seconde suivante rien ne se passe.. il ne fait pas une copie a chaque click...

[ouskel'n'or]

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, NomFich 
NomFich = Application.Caller 'Là, je ne peux pas tester (VBA97) 
For cmp = 1 To 1   'laisse à 1 pour cet essai 
    FileCopy "C:\Documents and Settings\avaysse\Mes documents\" & NomFich & ".xls", _ 
    "C:\Documents and Settings\avaysse\Mes documents\sauvegarde\" & NomFich & "_" & trim(str(i)) & ".xls" 
    Workbooks.Open Filename:="C:\Documents and Settings\avaysse\Mes documents\" _ 
& NomFich & ".xls"
Next

Essaie ça

Tu dis

[ouskel'n'or]

Ce que je ne comprends pas c'est que tu ouvres 100 fois ton fichier.
Tu ne veux pas seulement l'ouvrir une fois que tes 100 copies sont réalisées ?

A+

[ogenki]

oui sa la bien ouvert merci mais regarde l'edit de mon dernier port

[ogenki]

erf

je croi qu'on c'est tres tres mal compris...

enfait se que je veu...

c'est juste que mon fichier soit copié et ouvert... la copie doit etre incrementale.... le 100.. etait pour donné une valeur max a cette incrementation...

j'ai ecri une belle conerie

[ouskel'n'or]

Tu as laissé le compteur à 1
Peux-tu répondre à ma dernière question ?

Où se trouve le fichier à copier ?
Où mets-tu la copie
Quel fichier ouvres-tu ?
Combien de fois veux-tu l'ouvrir ?

Ouf !

A tout'

Edit

Quel fichier ouvres-tu ?

Je précise, le fichier incrémenté ou le fichier d'origine ?
Pourquoi l'ouvrir 100 fois ?

[ogenki]

Où se trouve le fichier à copier ?

mes document

Où se trouve le fichier à copier ?

mes document \ sauvegarde

Quel fichier ouvres-tu ?

celui de mes document

Combien de fois veux-tu l'ouvrir ?

1 seule fois



ouf! lol

EDIT je veu rien ouvrir 100 foi.. on c'est mal compris ........

[ouskel'n'or]

Voilà j'ai vu ton dernier post... 1 fois ! ok, avant ou après avoir copié tes 100 fichiers ?

A tout'

[ogenki]

je veu pas ouvrir 100 foi

erf bon oublie ce 100... prend l'infinie... je veu que temp que je click sur mon bouton sa crée une copie qui s'increment...a l'infini...