Bonjour,

J'ai un problème avec l'utilisation de SendKeys. Ci-dessous, mon programme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'------ Remplacement des "." par des "," dans la colonne P ------
 
Range("P:P").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
 
'------ Il faudrait ici que j'utilise la méthode SendKeys pour faire l'équivalent
'd'un F2 (ou double clic) + ENTER afin que les infos soit utilisable dans 
'le tableau croisé dynamique qui suit. 
'(Actuellement, le TCD ignore les cellules en 'question...)
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    fichier & "!R1C1:R1048576C23", Version:= _
    xlPivotTableVersion12).CreatePivotTable TableDestination:= _
    fichier & "!R3C27", TableName:="MonTCD" & projet, _
    DefaultVersion:=xlPivotTableVersion12
Afin de tester la méthode SendKeys, j'ai fais le test sur une cellule sur laquelle le "replace" est passé, avec le code ci-dessous, mais ça ne fonctionne pas...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Range("P173").Select
Application.SendKeys "{F2}", True
Application.SendKeys "{Enter}", True
Merci d'avance pour votre aide

Alex