Re : attachement module
Bon,
je crois comprendre enfin ton besoin :
en fait, tu souhaites que ta macro fonctionne sur n'importe quel fichier préalablement ouvert?
Si oui :
1/ouvrir ton fichier avec la macro
2/ouvrir ton fichier sur lequel tu veux travailler (le garder activé=à l'écran)
3/lancer la macro ci dessous
Re : attachement module
Bonjour fredl,
la voici mais c'est un peu du bidouillage...
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 20/12/2011 par '
''''''''''''''''''''''''''''''''''''''''''''''''''''''Workbooks.Open Filename:="\\ddd\démarche qualité\MF\test RO BD.xls"
'Columns("N:S").Select
Sheets("Feuil1").Select
Sheets("Feuil1").Copy After:=ThisWorkbook.Sheets(4)
Sheets("Feuil1 (2)").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("Feuil1 (2)").Name = "extract"
Range("A1").Select
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Windows("test RO BD.xls").Activate
ActiveWindow.Close
Sheets("Feuil5").Select
'Range("A17:M1941").Select
'Range("M28").Activate
' ActiveWindow.SmallScroll Down:=-15
Columns("A:m").Select
Selection.Copy
Sheets("extract").Select
'ActiveWindow.SmallScroll Down:=-39
'ActiveWindow.ScrollColumn = 2
'ActiveWindow.ScrollColumn = 1
'ActiveWindow.SmallScroll Down:=-12
Range("A1").Select
ActiveSheet.Paste
Rows("1:16").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
'maintenant si tu souhaites que la macro ouvre d'elle meme d'autre fichiers, tu peux en début de macro donner à l'utilisateur la possibilité de choisir le(s) fichier à traiter:
Sub essai()
'INvite de choix de fichier
FichiersAOuvrir = Application.GetOpenFilename(, , , , True)
'//////////////récup des données dans les fichier et intégration ds fichier bilan/////////////////////
If IsArray(FichiersAOuvrir) Then
'VnbSeries = UBound(FichiersAOuvrir, 1)
'traitement ds différents fichiers les uns apres les autres.
For i = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)
Workbooks.OpenText Filename:=FichiersAOuvrir(i) _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) 'Columns("N:S").Select
Sheets("Feuil1").Select
Sheets("Feuil1").Copy After:=ThisWorkbook.Sheets(4)
Sheets("Feuil1 (2)").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("Feuil1 (2)").Name = "extract"
Range("A1").Select
ActiveWindow.Close
Sheets("Feuil5").Select
'Range("A17:M1941").Select
'Range("M28").Activate
' ActiveWindow.SmallScroll Down:=-15
Columns("A:m").Select
Selection.Copy
Sheets("extract").Select
'ActiveWindow.SmallScroll Down:=-39
'ActiveWindow.ScrollColumn = 2
'ActiveWindow.ScrollColumn = 1
'ActiveWindow.SmallScroll Down:=-12
Range("A1").Select
ActiveSheet.Paste
Rows("1:16").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Next
End If
End Sub
'Ces propositions répondent t'elles à ton besoin?
'A+
Frédéric