Bonjour à toutes et tous
Je viens vers vous car je commence à me prendre un peu la tête (niveau vraiment moyen en VBA)
Pourriez vous m'aider si oui voici mon programme
Sub MAJ_KPI()
'Open de W
ChDir "\\noun\pvs\compta_groupe\caisse_client\Artois\BANQUE"
Workbooks.Open Filename:="V:\Artois\BANQUE\Modèle KPI LINE REP.xlsx", _
UpdateLinks:=0
Range("A1").Select
'Open fichier extraction KPI LINE_REP SAP
ChDir "\\noun\pvs\compta_groupe\caisse_client\Artois\BANQUE"
Workbooks.Open Filename:= _
"\\noun\pvs\compta_groupe\caisse_client\Artois\BANQUE\KPI.xls"
' Mise en forme du fichier KPI
Rows("10:10").Select
Selection.Delete Shift:=xlUp ' pour supprimer ligne
Rows("1:8").Select
Selection.Delete Shift:=xlUp ' pour supprimer ligne
Range("G:G").Select
Range("G1").Activate
Selection.Delete Shift:=xlToLeft ' pour supprimer colonne
Range("A:B").Select
Range("A1").Activate
Selection.Delete Shift:=xlToLeft ' pour supprimer colonne
' écrire Sté dans celulle A1
ActiveCell.Value = "Sté"
' Mise en forme de la date
Columns("D:E").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("D").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("E").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
' Mise à forme des montants
Range("T:T,V:V,X:X,Z:Z").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("T").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("V").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("X").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("Z").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks("Modèle KPI LINE REP.xlsx").Sheets("Brut").Activate
Application.CutCopyMode = False
End Sub
2 problèmes
1) je récupère un fichier de SAP que j'ouvre sur excel après un peu de mise en forme (suppression de lignes et de colonnes et remplacement de . en / pour la date) je converti les 2 colonnes date (format texte) afin d'avoir le bon format or je me retrouve avec le problème suivant 05.02.2013 en 02/05/2013 après macro
2) après la selection de l'ensemble des lignes et colonnes de mon 1er fichier je veux le coller dans une autre feuille mais le collage ne fonction pas?????
merci de voter aide
Mikael
Je viens vers vous car je commence à me prendre un peu la tête (niveau vraiment moyen en VBA)
Pourriez vous m'aider si oui voici mon programme
Sub MAJ_KPI()
'Open de W
ChDir "\\noun\pvs\compta_groupe\caisse_client\Artois\BANQUE"
Workbooks.Open Filename:="V:\Artois\BANQUE\Modèle KPI LINE REP.xlsx", _
UpdateLinks:=0
Range("A1").Select
'Open fichier extraction KPI LINE_REP SAP
ChDir "\\noun\pvs\compta_groupe\caisse_client\Artois\BANQUE"
Workbooks.Open Filename:= _
"\\noun\pvs\compta_groupe\caisse_client\Artois\BANQUE\KPI.xls"
' Mise en forme du fichier KPI
Rows("10:10").Select
Selection.Delete Shift:=xlUp ' pour supprimer ligne
Rows("1:8").Select
Selection.Delete Shift:=xlUp ' pour supprimer ligne
Range("G:G").Select
Range("G1").Activate
Selection.Delete Shift:=xlToLeft ' pour supprimer colonne
Range("A:B").Select
Range("A1").Activate
Selection.Delete Shift:=xlToLeft ' pour supprimer colonne
' écrire Sté dans celulle A1
ActiveCell.Value = "Sté"
' Mise en forme de la date
Columns("D:E").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("D").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("E").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
' Mise à forme des montants
Range("T:T,V:V,X:X,Z:Z").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("T").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("V").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("X").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("Z").Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks("Modèle KPI LINE REP.xlsx").Sheets("Brut").Activate
Application.CutCopyMode = False
End Sub
2 problèmes
1) je récupère un fichier de SAP que j'ouvre sur excel après un peu de mise en forme (suppression de lignes et de colonnes et remplacement de . en / pour la date) je converti les 2 colonnes date (format texte) afin d'avoir le bon format or je me retrouve avec le problème suivant 05.02.2013 en 02/05/2013 après macro
2) après la selection de l'ensemble des lignes et colonnes de mon 1er fichier je veux le coller dans une autre feuille mais le collage ne fonction pas?????
merci de voter aide
Mikael