Probleme formule VBA (date et copier coller)

M

Mikael_D

XLDnaute Nouveau
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
 
Trier par date Trier par votes
Poto

Poto

XLDnaute Occasionnel
Re : Probleme formule VBA (date et copier coller)

Salut,

pour ton probleme numero 1, qui est récurent avec Excel dès que tu joues avec des dates, la seule solution que je connaisse est de forcer le formatage de la date que tu veux, comme ca :

format(laDateQueTuVeuxFormater, "dd/mm/yyyy")
Cliquez pour agrandir...

pour ton 2eme probleme, ta selection m'a l'air très bizzare... perso, je partirais sur qq chose de plus simple, type :

Cells.Select
Cliquez pour agrandir...

qui à pour effet de selectionner l'integralité des cellules de la feuille

voilà, amuses toi bien ;)

++
 
Dernière édition:
Vote positif 0 Vote négatif
M

Mikael_D

XLDnaute Nouveau
Re : Probleme formule VBA (date et copier coller)

Merci pour ta réponse mais las dates sont restes en format standard 05.03.2013

pour la 2ème partie je selectionne tous les colonnes et lignes (qui varie en fonction des jours) de mon fichier pour les colles dans une autre feuille ou ce trouve des formules
 
Vote positif 0 Vote négatif
M

Mikael_D

XLDnaute Nouveau
Re : Probleme formule VBA (date et copier coller)

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
Workbooks("Modèle KPI LINE REP.xlsx").Worksheets("SAP").Activate
Range("A:AZ").Select
Selection.AutoFilter
Selection.Clear
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
'Format ("dd/mm/yyyy")
'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


'Selection de la plage et copier
Columns("A:AZ").Select

' Range("A1").Select
' Range(Selection, Selection.End(xlToRight)).Select
' Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks("Modèle KPI LINE REP.xlsx").Activate
Sheets("SAP").Select
ActiveSheet.Paste
Application.CutCopyMode = False



' coller dans fichier KPI LINE REP
' Workbooks("Modèle KPI LINE REP.xlsx").Sheets("Brut").Activate
'Range("A1").Select
'Application.CutCopyMode = False
End Sub
 

Pièces jointes

  • KPI.XLS
    147.7 KB · Affichages: 73
  • KPI.XLS
    147.7 KB · Affichages: 43
  • KPI.XLS
    147.7 KB · Affichages: 45
  • Modèle KPI LINE REP TEST.xlsx
    708.5 KB · Affichages: 36
Vote positif 0 Vote négatif

Discussions similaires

E
  • Résolu(e)
Microsoft 365 Convertir en -tete tableau en date
Réponses
14
Affichages
332
eric72
E
M
  • Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
156
marie3107
M
R
  • Question
XL 2016 Barre de progression
Réponses
1
Affichages
609
sylvanu
sylvanu
KTM
  • Question
XL 2016 Remplacer cellules vides par zéro dans plage variable.
Réponses
2
Affichages
548
job75
job75
J
  • Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
2 K
jui42
J
Ferbank
  • Question
XL 2019 modifier une macro
Réponses
2
Affichages
745
Ferbank
Ferbank
K
  • Question
XL 2016 Ouverture d'un fichier .txt (avec partie variable) puis enregistrement sous .csv avec nom défini
2
Réponses
15
Affichages
2 K
dysorthographie
dysorthographie
S
  • Question
Aide sur La fin d'une Macro SVP
Réponses
3
Affichages
559
sylvanu
sylvanu
E
  • Résolu(e)
XL 2019 Format Date Anglais / Francais
Réponses
5
Affichages
2 K
EDI9366
E
luke3300
  • Question
Microsoft 365 Mauvais format date dans l'export de données csv avec code VBA
Réponses
5
Affichages
2 K
chris
chris

Membres actuellement en ligne

20 membres et 359 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 239
Messages
2 086 494
Membres
103 234
dernier inscrit
matteo75654548