Re : comment selectioner la totalité d'une feuille d'un classeur Excel et le copier d
Merci pour la réponse si rapide.
J'ai essayé ta solution en l'adaptant a mon contexte et ...ca marche !!!!!
Par contre j'ai un problème sur la boucle. Je joint mon code si dessous et si tu as 5minutes pourrait tu me dire ou ca cloche.
Le problème est que j'ai toujours la même feuille qui est copiée sous tous les signets.
Merci pour ton aide
Roger
Mon code :
Option Explicit
Sub essai()
'trie les feuilles par ordre croissant
Dim i As Integer, J As Integer
For i = 1 To Sheets.Count 'pour débuter le tri à la feuille x remplacer For I = 1 pat For I = x
For J = 1 To i - 1 'pour débuter le tri à la feuille x remplacer For J = 1 par For J = x
If UCase(Sheets(i).Name) < UCase(Sheets(J).Name) Then 'pour tri décroissant remplacer < par >
Sheets(i).Move Before:=Sheets(J)
Exit For
End If
Next J
Next i
'Ouverture de Word
'necesite d'activer la reference Microsoft Word xx.x Object Library
'depuis le menu Outils > Références...
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim sPath As String
Dim Fichier As String
'chemin d'accès du fichier Word à ouvrir
sPath = ThisWorkbook.Path & "\" 'tous les documents sont dans ce répertoire
Fichier = sPath & "Template-preco-Pneu-NTN-SNR2.dotx" 'A adapter
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.Visible = True 'pour que word soit apparent
Set docWord = appWrd.Documents.Open(Fichier)
'Copier une feuille vers Word
Dim Ws As Worksheet
Dim s As Byte 's comme Signet
For Each Ws In ActiveWorkbook.Sheets
MsgBox Ws.Name
ActiveSheet.Select
Ws.Cells.Copy
'Ws.Range("A1").Copy 'On copie les réponses du formulaire'
For s = 1 To 20
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
docWord.Bookmarks("Signet" & s).Select
docWord.Bookmarks("Signet" & s).Range.Font.Size = 20
docWord.Bookmarks("Signet" & s).Range.Bold = True
docWord.Bookmarks("Signet" & s).Range.Italic = True
docWord.Bookmarks("Signet" & s).Range.Paste 'colle le contenu du presse papier
'Application.CutCopyMode = False
'Selection.Paste.Bookmarks ("Signet" & s)
'appWrd.Selection.Paste
Next s
Next Ws
'Annuler le mode couper/copier
Application.CutCopyMode = False
End Sub