Renommer en série des doc

Bonsoir chers programmeurs

J'ai du boulot pour vous (lol!!)

J'ai crée cette macro s/ Word :

Sub Macro1()

ChangeFileOpenDirectory "C:\Documents and Settings\MesTest\Bureau\"

ActiveDocument.SaveAs FileName:="Doc(1).doc", FileFormat:=wdFormatDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

End Sub


Et mon souhait est le suivant:
chaque fois que word demarre il enregistre le doc. Si le doc a
le nom Doc(1) alors incrementation de 1: par exple : Doc(1), Doc(2),.;;Etc
j'arrive pas à utiliser pour ça ac for next


Bonne soirées
Merci d'avance

Salutattions,

J'ai du mal à comprendre ton souhait, que cherche tu à incrémenter, le (1) ?
Donc si j'ai bien compris, tu voudrais que lors de la prochaîne sauvegarde, le nom du fichier soit Doc(2).doc puis Doc(3).doc et caetera...
Mais je vois pas ce que viendrais faire une structure for... next
A moins que tu ne veuille que lors du lancement, il soit enregistré plusieurs fois...
A moins que tu ne veuilles sauvegarder le doc sous le nom de doc(2).doc si doc(1).doc existe mais là je vois toujours pas le rapport avec for... next

Pourrais-tu préciser ?

Merci d'avoir répondu
excuse moi je me suis mal exprimé ya pa de for next

Voila j'ai une lettre type sur word qui reçoit des textbox et combobox (par exemple noms et adresses des clients) qui sont chargé ailleurs.
Et moi je veux que : au demarrage de word enregistrer ,à l'aide d'une macro ,ces lettres (à chaque client correspond une lettre) sous le nom
Doc(1).doc, Doc(2).doc, etc

voila

Bon, ch'uis tjs pas sur d'avoir bien tout compris... (c vrai ch'usi pas non plus très rapide à la détente) [:-(]

mais bon, si j'ai cerné les grandes lignes, tu as une combobox qui contient le nom des clients... Et tu compte enregistrer une copie pour cahque client... et bein je crois que pour le coups le for... next est opportun !

'Pour chacun des membres du combobox
for i = 0 to Combo.listcount - 1
'On passe en la n ième entrée
combo.listindex = i
'Procédure de sauvegarde :

ActiveDocument.SaveAs FileName:="Doc(i + i).doc", FileFormat:=wdFormatDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

next

C'est bien ce que tu voulais ?

Arrrrrrrrrrg l'erreur !!!!

à la place de "Doc(i + i).doc", il fallais lire : "Doc(" & (i + 1) & ").doc"

Mais bon, tout le monde aura fait le correction de lui-même !

mais pas pour tous les clients, juste le client selectionné dans le combobox. Et à la fermeture enregistrer le document
sous : Doc(i) . Si doc (i) existe deja donc sous doc(i+1)

J sui vraiment désolé, j'ai du mal à m'exprimer

oki, j'ai compris !

Alors, il faut rajouter ça au début :

Dim Compt as Integer 'Va compter les fichiers existants
Dim Empl as String 'Emplacement des fichiers

' ChangeFileOpenDirectory "C:\Documents and Settings\MesTest\Bureau\" devient :
Empl = "C:\Documents and Settings\MesTest\Bureau\"

'On créé un objet FileSystemObject (Pour fileExists)
Set fso = CreateObject("Scripting.FileSystemObject")

Compt = 1
do until fso.fileexists(Empl & "Doc(" & Compt & ").doc" ) = False
'Tant que de tels fichiers existent, on incrémente de 1
Compt = Compt + 1
loop

Et ensuite tu sauvegardes, même procédure qu'avant, mais
ActiveDocument.SaveAs FileName:="Doc(1).doc"
devient :
ActiveDocument.SaveAs FileName:=Empl & "Doc(" & Compt & ").doc"

Voilà, vérifie quand même bien si ça marche, mais il ne devrait pas y avaoir de problème !

ça marche!!!
je suis content, vraiment je te remercie infiniment, et c'est trés gentil à toi;
J'ai failli faire une nuit blanche

Je te souhaite bonne nuit
et bonne prog

Ah j'ai oublié de te demander comment on fait pour enregistrer les fichiers doc precedents sous format pdf

merci

Alors, pour le coups je ne pense pas que l'on puisse convertir des documents Word en pdf, du moins pas par Word. Il est possible qu'OpenOffice.org, la suite burautique Open Source, le fasse... Sinon, je crois qu'il existe un programme qui puisse s'en charger, mais je ne l'ai pas personnellement utilisé, je ne peux que le citer : [ Lien ] ou alors pour directement le télécharger (ce qui évite de passer par le site en partie en allemand) https://sourceforge.net/project/showfiles.php?group_id=57796

Du reste, pour créer des pdf, j'utiliser le LaTeX, mais bon, il faut être motivé ! Peut-être que Lyx, serait plus accessible, mais ça reste un autre univers...