Sub obsevcopy()
'macro pour exporter les observations
Dim osba As String
Dim i As Integer, f As Integer
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Application.DisplayStatusBar = True
Application.StatusBar = "Traitement en cours..."
Application.DisplayAlerts = False
Application.ScreenUpdating = False
''Application.Visible = False
On Error Resume Next
For i = 1 To 30 Step 2
If ActiveDocument.Tables(2).Cell(Row:=i + 1, Column:=1).Range.Text = Chr(13) & Chr(7) Then Resume Next
ActiveDocument.Tables(2).Cell(Row:=i + 1, Column:=1).Range.Select 'contenue
Selection.Copy
ChangeFileOpenDirectory CFileosb & (Left(ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range, (Len(ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range) - 2))) & "\Notes\" 'emplacement du fichier où coller le contenue
Documents.Open FileName:="Observation de " & (Left(ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range, (Len(ActiveDocument.Tables(2).Cell(Row:=i, Column:=1).Range) - 2))) & ".docm" 'nom du fichier où coller contenu
Selection.InsertDateTime DateTimeFormat:="dddd d MMMM yyyy", InsertAsField _
:=False, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
Selection.TypeParagraph
Selection.PasteAndFormat (wdFormatOriginalFormatting)
ActiveDocument.save
'ActiveDocument.Close
Next i
'Application.Visible = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Longue suite d'opérations !"
Application.DisplayStatusBar = False
End Sub
Bonjour j'ai une macro qui recupere les donner dans un tableau et copie le contenu vers un fichier le probleme c'est qu'elle ne marchque sur la premiere ligne
aurier vous une idee merci