Bonjour
Cela fait plusieurs jours que je cherche une solution.
J'ai réussi à faire une macro pour exporter un tableau dans un nouveau classeur :
Private Sub ExportFD_Click()
' nombre de ligne maxi du tableau
rang = Range("J2").Value
'sélection de l'ensemble des lignes
Range(Cells(1, 2), Cells(rang + 3, 11)).Select
'copier dans un nouveau classeur
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
With Selection
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlFormats
'ajuster la largeur des colonnes
Selection.Columns.AutoFit
End With
End Sub
Cela fonctionne dans l'ensemble par contre la largeur des cellules n'est correcte en fait le texte contenu est placé sur 2 ou 3 lignes dans la cellule alors que je désirerai que le texte ne soit que sur une ligne. A priori "Selection.Columns.AutoFit" n'est peut-être pas adapté
Par ailleurs la feuille originale est affichée en paysage dans l'export elle est restée en portrait.
Merci de m'aider. Je ne sais pas comment faire malgré mes recherches !
Cordialement
Cela fait plusieurs jours que je cherche une solution.
J'ai réussi à faire une macro pour exporter un tableau dans un nouveau classeur :
Private Sub ExportFD_Click()
' nombre de ligne maxi du tableau
rang = Range("J2").Value
'sélection de l'ensemble des lignes
Range(Cells(1, 2), Cells(rang + 3, 11)).Select
'copier dans un nouveau classeur
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
With Selection
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlFormats
'ajuster la largeur des colonnes
Selection.Columns.AutoFit
End With
End Sub
Cela fonctionne dans l'ensemble par contre la largeur des cellules n'est correcte en fait le texte contenu est placé sur 2 ou 3 lignes dans la cellule alors que je désirerai que le texte ne soit que sur une ligne. A priori "Selection.Columns.AutoFit" n'est peut-être pas adapté
Par ailleurs la feuille originale est affichée en paysage dans l'export elle est restée en portrait.
Merci de m'aider. Je ne sais pas comment faire malgré mes recherches !
Cordialement