Collage

[Loulou]

Bonjour le Forum

je commence à perdre la tête, car je ne comprend pas.

Je n'arrive pas à coller les cellules copier sur un autre classeur, il bloque toujours à la même place : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Voilà mon code si vous pouvier m'aider.

Merci



Sub auto_open()

Application.ScreenUpdating = False

Sheets("Lien").Select
AdresseFichier = Cells(2, 1)
fichierencours = Cells(4, 1)
Application.CutCopyMode = False

Workbooks.Open(Filename:=AdresseFichier).RunAutoMacros Which:=xlAutoDeactivate

Dim m_feuille As String
Dim m_nb_fls As Integer
Dim m_jr_sem As Integer
m_nb_fls = Worksheets.Count
m_jr_sem = Weekday(Now)
Select Case m_jr_sem
Case 1
Sheets("Di").Select
Case 2
Sheets("Lu").Select
Case 3
Sheets("Ma").Select
Case 4
Sheets("Me").Select
Case 5
Sheets("Je").Select
Case 6
Sheets("Ve").Select
Case 7
Sheets("Sa").Select
End Select


Range("N6:N16,N19:N29,N32:N42,N45:N46,N49:N59").Select
Selection.Copy

Windows(fichierencours).Activate



Select Case m_jr_sem
Case 1
Sheets("Di").Select
Case 2
Sheets("Lu").Select
Case 3
Sheets("Ma").Select
Case 4
Sheets("Me").Select
Case 5
Sheets("Je").Select
Case 6
Sheets("Ve").Select
Case 7
Sheets("Sa").Select
End Select

Range("R6").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Application.CutCopyMode = False

Windows(AdresseFichier).Close SaveChanges:=False

End Sub

 

[jmps]

Bonjour Loulou,

Si j'ai bien tout suivi car je n'ai pas testé, tu fais un copy d'une sélection multiple et tu veux faire un pastespecial sur une seule cellule. Serait-ce là ton problème ?

A+

José

 

[jmps]

Re Loulou,

Rectification. Je viens de tester et ça devrait fonctionner. Il doit y avoir un autre problème. Quel est le message d'erreur ? Tes cellules cibles sont elles verrouillées et la feuille protégée ?

A+

José

 

[Loulou]

Bonjour

Merci jmps de ton coup de main.

Voici le message : cette opération requiert que les cellules fusionnées soient de taille identique

Merci

Loulou

 

[jmps]

Ok.

Tu as donc des cellules fusionnées dans ta plage copiée et pas dans ta cible. Ou alors fusionnées différemment.
Il faut que chaque plage de cellules fusionnées dans ta source soit également fusionnée (et de la même façon) dans ta plage cible.
Je ne sais pas si je suis clair mais en te penchant sur les cellules fusionnées tu dois pouvoir résoudre ton problème.

A+

José