littlefish
Messages postés21Date d'inscriptionmardi 6 février 2007StatutMembreDernière intervention23 mars 2007
-
1 mars 2007 à 09:27
littlefish
Messages postés21Date d'inscriptionmardi 6 février 2007StatutMembreDernière intervention23 mars 2007
-
1 mars 2007 à 13:59
Bonjour, oui cela fonctionne, une étape de franchie, il me reste encore somme de détail qui m'empeche de bien faire les choses,comme:
j'ai cré un bouton crée une sauvegarde avec du mal:
Sub sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Dossier & nom & strDate & ".xls"
End Sub
Cela fonctionne nickel, par contre j'ai un bouton générer annexe_word et là je n'arrive pas à faire le meme principe pour compter,mon format est générer une fois, et après c'est mort, auriez vous une idée?
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 1 mars 2007 à 13:28
Re,
et je suis en train de penser, si c'est juste une histoire de numéro (à la place de la date), il te suffit de mettre 2 dans une cellule de ton choix du classeur, puis au lieu d'insérer la date et l'heure, tu insères ce numéro, et tu l'incrémentes de +1 à chaque enregistrement.
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 1 mars 2007 à 12:37
Salut,
ta Sub, c'est un truc de fou, tu peux aussi faire comme ceci :
Sub sauve()
ThisWorkbook.SaveCopyAs Filename:=Dossier & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Format(Now, " dd-mm-yy h-nn-ss") & ".xls"
End Sub
Par contre, juste une précision, il y a une demande, quelque part ???
(si elle y est c'est pas très bien formulé)
T'es dans Excel, tu veux un code pour Word .. ?
le même principe pour compter quoi ?
Le format généré est mort ? C'est à dire ?
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
littlefish
Messages postés21Date d'inscriptionmardi 6 février 2007StatutMembreDernière intervention23 mars 2007 1 mars 2007 à 13:05
Salut Mortalino, merci d'avoir répondu si vite c'est sympa, je vais créer un bouton dans l'userform pour cela.
Par contre pour word, j'avais fais cela après appuis sur le bouton générer annexes word:
Sub PilotageWord()
Dim MonBeauWord As Object
Dim wdCharacter As Variant
Dim wdLine As Variant
Dim wdExtend As Variant
Dim wdToggle As Variant
Dim wdPageBreak As Variant
Dim strDate As String
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!pour enregistrer directement sur mon PC!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MonBeauWord.ActiveDocument.SaveAs Filename:="C:\Documents and Settings\ALEX\Mes documents\FRBE_ANNEXE2.doc"
'Fermeture de ce document:
MonBeauWord.ActiveDocument.Close
Set MonBeauWord = Nothing
End Sub
Mais je le génére qu'un fois, ce qu'il me faudrait c'est comme dans le cas avec le programme excel, mais adapter à word, je reprend le nom de fichier, je vérifie,s'il existe et je met date et heure,ce'st possible?
littlefish
Messages postés21Date d'inscriptionmardi 6 février 2007StatutMembreDernière intervention23 mars 2007 1 mars 2007 à 13:59
J'ai mis du temps à répondre car je testai, mais cela marche plus je ne sais pas pourquoi avant cela fonctionnait et là non, j'avais fais le code sous word puis modifié sur excel ensuite, mais il ne fonctionne plus, là ou j'ai mis changer le code avec ' devant
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!PILOTAGE WORD ANNEXE 2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Sub PilotageWord()
Dim MonBeauWord As Object
Dim wdCharacter As Variant
Dim wdLine As Variant
Dim wdExtend As Variant
Dim wdToggle As Variant
Dim wdPageBreak As Variant
Dim strDate As String
Dim sNomDoc As String 'Petite modif de nom de variable
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!A CHEMIN ACCES MES DOCUMENTS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'MonBeauWord.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path &\\ISIS\users\NOM UTILISATEUR\My Documents\FRBE_ANNEXE2.doc"
'Fermeture de ce document: