Bonjour,
Nouvellement inscrit sur le forum et nouveau utilisateur des macros sous excel et je rencontre un léger problème.
Le voici :
Je dois ouvrir deux fichier excel, l'un a le même titre, l'autre change toute les semaines.
Je dois faire un copier coller des valeurs du second fichier et les incrémenter dans le premier.
Jusque la, je m'en suis sorti.
Le hic, c'est que le second fichier lui change obligatoirement de nom chaque semaine et je ne sais pas comment m'en sortir avec ma macro.
Ma macro se décompose en 2 phase : la première je vais aller sélectionner mon fichier et en seconde phase, je vais faire un copier-coller et étendre des cellules.
Mais vous aller mieux comprendre en la voyant :
Sub MAJ_Donnee()
'
'Ne pas voir les modifications réalisées
Application.ScreenUpdating = False
'Ouvrir un fichier
Classeur = Application.GetOpenFilename("Classeurs Excel,*.xls")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
'MAJ données débits Sud
Range("A4").Select
Selection.End(xlDown).Select
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Débit test 1.xlsm").Activate
Range("A1").Select
Selection.End(xlDown).Select
Cells(ActiveCell.Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Windows("06-03-2015 au 13-03-2015.xls").Activate
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Débit test 1.xlsm").Activate
Range("E18723").Select
ActiveSheet.Paste
Range("B18722").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B18722:B65534")
Range("B18722:B65534").Select
Range("C18722").Select
Selection.AutoFill Destination:=Range("C18722:C65534")
Range("C18722:C65534").Select
Range("D18722").Select
Selection.AutoFill Destination:=Range("D1872265534")
Range("D1872265534").Select
Application.ScreenUpdating = True
End Sub
NB : le fichier qui ne change pas de nom se nomme "Débit test 1" et celui qui change de nom toute les semaines et en gras dans la macro.
j'espère que vous pouvez m'aider avec mon léger soucis.
Merci d'avance pour vos réponse.
Nouvellement inscrit sur le forum et nouveau utilisateur des macros sous excel et je rencontre un léger problème.
Le voici :
Je dois ouvrir deux fichier excel, l'un a le même titre, l'autre change toute les semaines.
Je dois faire un copier coller des valeurs du second fichier et les incrémenter dans le premier.
Jusque la, je m'en suis sorti.
Le hic, c'est que le second fichier lui change obligatoirement de nom chaque semaine et je ne sais pas comment m'en sortir avec ma macro.
Ma macro se décompose en 2 phase : la première je vais aller sélectionner mon fichier et en seconde phase, je vais faire un copier-coller et étendre des cellules.
Mais vous aller mieux comprendre en la voyant :
Sub MAJ_Donnee()
'
'Ne pas voir les modifications réalisées
Application.ScreenUpdating = False
'Ouvrir un fichier
Classeur = Application.GetOpenFilename("Classeurs Excel,*.xls")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
'MAJ données débits Sud
Range("A4").Select
Selection.End(xlDown).Select
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Débit test 1.xlsm").Activate
Range("A1").Select
Selection.End(xlDown).Select
Cells(ActiveCell.Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Windows("06-03-2015 au 13-03-2015.xls").Activate
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Débit test 1.xlsm").Activate
Range("E18723").Select
ActiveSheet.Paste
Range("B18722").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B18722:B65534")
Range("B18722:B65534").Select
Range("C18722").Select
Selection.AutoFill Destination:=Range("C18722:C65534")
Range("C18722:C65534").Select
Range("D18722").Select
Selection.AutoFill Destination:=Range("D1872265534")
Range("D1872265534").Select
Application.ScreenUpdating = True
End Sub
NB : le fichier qui ne change pas de nom se nomme "Débit test 1" et celui qui change de nom toute les semaines et en gras dans la macro.
j'espère que vous pouvez m'aider avec mon léger soucis.
Merci d'avance pour vos réponse.