Bonjour,
Je souhaite exporter une ou plusieurs feuilles d'un classeur excell.
Pour l'instant, je répète les instructions avant de me lancer dans les boucles.
Je rencontre deux soucis de mise en forme.
1)Les tableaux des deux feuilles que j'exporte n'ont pas la même taille.
Pour ajuster un tableau dans word j'utilise :
Celà marche impec pour le premier tableau, mais pour le deuxième tableau, si je répète cette ligne, il recadre. Si je ne l'a met pas, mon deuxième tableau ne rentre pas dans ma page word.
2)Pour sélectionner j'utilisee la commande range. J'aimerais que la sélection s'arrête à la première ligne vide du tableau. Je peux récupérer la dernière ligne du tableau (variable NumLigneVide) mais j'arrive pas à l'intégrer dans le range. Dans le code ci dessous j'ai choisis une fin de sélection fixe pour tester
Voici mon code :
Merci
Je souhaite exporter une ou plusieurs feuilles d'un classeur excell.
Pour l'instant, je répète les instructions avant de me lancer dans les boucles.
Je rencontre deux soucis de mise en forme.
1)Les tableaux des deux feuilles que j'exporte n'ont pas la même taille.
Pour ajuster un tableau dans word j'utilise :
Code:
DocWord.Tables(1).AutoFitBehavior wdAutoFitWindow
2)Pour sélectionner j'utilisee la commande range. J'aimerais que la sélection s'arrête à la première ligne vide du tableau. Je peux récupérer la dernière ligne du tableau (variable NumLigneVide) mais j'arrive pas à l'intégrer dans le range. Dans le code ci dessous j'ai choisis une fin de sélection fixe pour tester
Voici mon code :
Code:
Sub RecapWord()
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = CreateObject("Word.Application")
If Dir("D:\Recap.doc", vbHidden) = "" Then
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWrd = appWrd.Documents.Add
docWrd.SaveAs "D:\Recap.doc"
End If
If Dir("D:\Recap.doc", vbHidden) <> "" Then
appWrd.Visible = True
Set DocWord = appWrd.Documents. _
Open("D:\Recap.doc", ReadOnly:=True)
End If
appWrd.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
Dim numLigneVide As Integer
Worksheets("Gestion Missions").Activate
numLigneVide = ActiveSheet.Columns(7).Find("").Row
Range("A1:Q10").Copy
appWrd.Selection.Paste
DocWord.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode = False
Worksheets("Gestion ATE").Activate
numLigneVide = ActiveSheet.Columns(8).Find("").Row
Range("A2:P10").Copy
appWrd.Selection.Paste
Application.CutCopyMode = False
End Sub
Merci
Dernière édition: