Problème pour copier coller une feuille

[fb62840]

Bonjour à toutes et tous,

Voici mon problème :
J'exécute une macro pour copier-coller une feuille d'un classeur dans un autre.

Sub CopySheetToAnotherWorkBook()

    Dim wbSource As Excel.Workbook, wbDestination As Excel.Workbook, fileLocationSource As String _ fileLocationDestination As String
   
    fileLocationSource = ThisWorkbook.Path & "\Générateur de cv V travail.xls"
    fileLocationDestination = ThisWorkbook.Path & "\test.xls"

    Set wbSource = Workbooks.Open(fileLocationSource)
    Set wbDestination = Workbooks.Open(fileLocationDestination)

    wbSource.Worksheets("Garde").Copy _
            After:=wbDestination.Worksheets(wbDestination.Worksheets.Count)

    wbSource.Close savechanges:=False
    wbDestination.Close savechanges:=True

    Set wbSource = Nothing
    Set wbDestination = Nothing
   
    End Sub

La copie s'exécute mais il y a un problème.
Une des cellules contient 810 caractères.
Seuls 255 caractères sont copiés.
Connaissez vous la solution pour copier la feuille tout en conservant les 810 caractères ?

Complément : comment devrais-je modifier la ligne After:=wbDestination.Worksheets(wbDestination.Worksheets.Count)
afin que la feuille copiée occupe la première position (devant toutes les autres feuilles du classeur) ?

Merci.
Fabrice

 

[job75]

Re : Problème pour copier coller une feuille

Bonjour fb62840,

Problème connu :

erreur « 255 caractères dans la cellule » lors de la copie d'une feuille de calcul

Au lieu de copier la feuille, copier les cellules de la feuille.

Quant au 2ème problème :

wbSource.Worksheets("Garde").Copy Before:=wbDestination.Sheets(1)

A+

 

[fb62840]

Re : Problème pour copier coller une feuille

Bonjour,

Merci pour cette réponse, je vais tester la proposition de copie/coller à partir de la sélection des celllules par contre la ligne :

wbSource.Worksheets("Garde").Copy Before:=wbDestination.Sheets(1)

Ne donne pas le résultat attendu la feuille ne se copie pas.

Bon après-midi,
Fabrice