Discussion :

[flav_cm]

Bonjour à tous,

Je suis à la recherche d'informations concernant les règles d'accès à des feuilles masquées.

En effet, je transfert des données d'un feuille Excel vers des signets d'un document Word. Toute fonctionne lorsque la feuille est visible dans mon classeur. Toutefois, lorsque cette feuille est cachée, le collage de mes cellules Excel sur mes signets Word ne s'effectue pas (mais les signets disparaissent) avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Range(Cells(6, 1), Cells(5 + m, 1)).Copy
wordDoc.Bookmarks("GrosOeuvre1").Range.PasteExcelTable False, False, False

Or le transfert (toujours depuis la même feuille cachée et vers le même document Word) vers d'autre signets de la manière suivante fonctionne bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wordDoc.Bookmarks(Cells(1, i) & j).Range.Text = Cells(2, i)

Auriez-vous des éléments pour expliquer cette différence ? Comment pourrais-je régler ce problème ?

Merci d'avance pour votre participation!

[antonysansh]

Bonjour flav_cm,

Je suis pas du tout familiarisé avec les échanges entre instance Excel et instance Word mais je suis sûr d'une chose :

Dans la ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(6, 1), Cells(5 + m, 1))

aucune feuille n'est spécifiée donc Excel va utiliser la feuille active qui ne peut pas être la feuille masquée.
Ça peut expliquer la différence de fonctionnement entre le cas où la feuille est visible et qu'il s'agit de la feuille active et le cas où cette feuille est masquée et donc ne peut pas être la feuille active.

Si le problème est bien celui-là, il suffit de préciser la feuille parente à l'aide d'un With par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook.Sheets("Nom de la feuille")
    .Range(.Cells(6, 1), .Cells(5 + m, 1))
End With

[flav_cm]

Bonjour antonysansh,

Merci pour votre réponse !

Malheureusement, la copie ne semble pas fonctionner lorsque la feuille est masquée, quelque que soit les écritures ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook.Sheets(f_aide_notice_ac)
   .Range(Cells(6, 1), Cells(5 + m, 1)).Copy
End With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets(f_aide_notice_ac).Range(Cells(6, 1), Cells(5 + m, 1)).Copy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(6, 1), Cells(5 + m, 1)).Copy

Y-aurait-il d'autres règles concernant l'accès à des feuilles masquées ?

D'autre part, j'utilise exactement le même code dans un autre module pour éditer un autre rapport et cela fonctionne normalement...

[antonysansh]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook.Sheets("Nom de la feuille")
    .Range(.Cells(6, 1), .Cells(5 + m, 1))
End With

[flav_cm]

Merci encore une fois pour la réponse. Malheureusement ça ne fonctionne pas même avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook.Sheets(f_aide_notice_ac)
   .Range(.Cells(6, 1), .Cells(5 + m, 1)).Copy
End With

J'ai finalement utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(f_aide_notice_ac).Visible = True

avant mes copies et ça fonctionne.

Encore merci pour ces précisions en tout cas !

[antonysansh]

Etrange !

Je viens de tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro1()
    Sheets("Feuil2").Visible = False
    Sheets("Feuil2").Range("A1:A4").Copy
    Sheets("Feuil1").Paste Sheets("Feuil1").Range("B1")
End Sub

et aucun problème