Re : Macro Excel a l 'ouverture du fichier excel
Voila mon Macro Complet :
Dim TimeToRun
Sub Aut
pen()
Call scheduleJb
End Sub
Sub scheduleJb()
TimeToRun = Now + TimeValue("00:00:2")
Application.OnTime TimeToRun, "MacroAutoJB"
End Sub
Sub MacroAutoJB()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim oWdApp As Object 'Lancer Word
Dim i As Byte
Dim sChemin As String
On Error Resume Next
Dim nom As String
On Error Resume Next
Dim j As Integer
j = ActiveSheet.UsedRange.Rows.Count
Dim n As Byte
n = Cells(1, Columns.Count).End(xlToLeft).Column
If ActiveWorkbook.Name Like "AA*.xls" Then ' par exemple le nom du fichier est "AA211"
For j = 2 To j
Set WordApp = CreateObject("word.application")
nom = Sheets(1).Cells(j, 2)
user = Environ("username")
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\" & user & "\PaieJb.doc")
Set oWdApp = CreateObject("Word.Application")
Set WordDoc = oWdApp.Documents.Open("C:\Documents and Settings\" & user & "\PaieJb.doc")
For i = 1 To n
WordDoc.Bookmarks("Sig" & i).Range.Text = Cells(j, i) ' enregistre la ligne selectionné
Next i
WordDoc.Bookmarks("Signet").Range.Text = Cells(j, 2)
On Error Resume Next
nom = Replace(nom, ":", "")
nom = Replace(nom, """", "")
nom = Replace(nom, "/", "")
nom = Replace(nom, "\", "")
nom = Replace(nom, "*", "")
nom = Replace(nom, "?", "")
nom = Replace(nom, "<", "")
nom = Replace(nom, ">", "")
nom = Replace(nom, "|", "")
WordDoc.SaveAs Filename:=nom & ".doc"
WordApp.Visible = False
oWdApp.Quit
ActiveDocument.Close True
WordDoc.Quit 'ferme le document word en sauvegardant les données
WordApp.Quit 'ferme la session Word
Next j
Application.Quit
End If
If ActiveWorkbook.Name Like "BB*.xls" Then
For j = 2 To j
Set WordApp = CreateObject("word.application")
nom = Sheets(1).Cells(j, 2)
user = Environ("username")
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\" & user & "\AbsenceJb.doc")
Set oWdApp = CreateObject("Word.Application")
Set WordDoc = oWdApp.Documents.Open("C:\Documents and Settings\" & user & "\AbsenceJb.doc")
For i = 1 To n
WordDoc.Bookmarks("Sig" & i).Range.Text = Cells(j, i)
WordDoc.Bookmarks("Signet").Range.Text = Cells(j, 2)
On Error Resume Next
nom = Replace(nom, ":", "")
nom = Replace(nom, """", "")
nom = Replace(nom, "/", "")
nom = Replace(nom, "\", "")
nom = Replace(nom, "*", "")
nom = Replace(nom, "?", "")
nom = Replace(nom, "<", "")
nom = Replace(nom, ">", "")
nom = Replace(nom, "|", "")
WordDoc.SaveAs Filename:=nom & ".doc"
WordApp.Visible = False
oWdApp.Quit
ActiveDocument.Close True
WordDoc.Quit
WordApp.Quit
Next j
Application.Quit
End If
If ActiveWorkbook.Name Like "CC*.xls" Then
For j = 2 To j
Set WordApp = CreateObject("word.application")
nom = Sheets(1).Cells(j, 2)
user = Environ("username")
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\" & user & "\CotisationJb.doc")
Set oWdApp = CreateObject("Word.Application")
Set WordDoc = oWdApp.Documents.Open("C:\Documents and Settings\" & user & "\CotisationJb.doc")
For i = 1 To n
WordDoc.Bookmarks("Sig" & i).Range.Text = Cells(j, i)
Next i
WordDoc.Bookmarks("Signet").Range.Text = Cells(j, 2)
On Error Resume Next
nom = Replace(nom, ":", "")
nom = Replace(nom, """", "")
nom = Replace(nom, "/", "")
nom = Replace(nom, "\", "")
nom = Replace(nom, "*", "")
nom = Replace(nom, "?", "")
nom = Replace(nom, "<", "")
nom = Replace(nom, ">", "")
nom = Replace(nom, "|", "")
WordDoc.SaveAs Filename:=nom & ".doc"
WordApp.Visible = False 'affiche le document Word
oWdApp.Quit
ActiveDocument.Close True
WordDoc.Quit
WordApp.Quit
Next j
Application.Quit
End If
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime TimeToRun, "MacroAutoJB", , False
End Sub
*******
Une autre question , si vous permettez bien sure ; Mon macro , enregistre chaque ligne du fichier excel dans un nouveau document word , et comme résultat j obtient n document word ouvert = n lignes du fichiers excel , alors que je veut bien si c possible , enregistré ces lignes dans un Seul DOCUMENT mais des fenêtres différentes ( ou des pages differentes, au lieu d ajouter un document on ajoute une nouvelle page ) ??
Merci beaucoup pour votre aide