Boucle pour copier le contenue d'une celule vers un autre fichier

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

Salut,

Pas de fichier, pas de réponse ?

Cordialement.

Rechercher des sujets similaires à "boucle copier contenue celule fichier"