L
Loulou
Guest
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
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