Discussion :

[bigboss60]

Bonjour,

J'ai un gros souci en VBA. Je voudrais coller un presse papier qui contient un tableau. Dans ce tableau, j'ai une colonne contenant des dates. Et quand je fais un copié coller à la main dans excel directement, tout se colle nikel. Mais quand je passe par VBA et la fonction activesheets.paste, il me colle mon tableau mais convertit toute mes date qui sont comprise entre le jour 01 et le our 12 en date américaine. Par exemple la date en français 03/12/2007 il me le convertit en 12/03/2007par contre ce qui est vraiment bizarre, c'est q'il ne touche pas aux autres date qui sont par exemple 30/12/2007.

Comment faire.

Merrci à vous d'avance.

Très cordialement

[ouskel'n'or]

As-tu essayé avec PasteSpecial Valeurs et format des nombres ou Formules et format des nombres ?
Sinon, convertis la colonne des dates en nombre sans décimale, copie/colle et remets les formats partout.
Autre solution, ne pas utiliser paste
Si ça ne fonctionne pas, tu peux nous montrer ton code ?
A+

[ChrisoNE]

Salut !

Tout simplement : PasteSpecial Paste:=xlValue, Paste:=xlPasteFormats

@ +++

ChrisOne

[ouskel'n'or]

Oui, ou tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'ou
PasteSpecial Paste:=12

ou bien, s'il y a des formules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
'ou
PasteSpecial Paste:=11

[bigboss60]

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
18
19
20
21
Sub IntegrationEcrituresStandard()
 
' Importe des Ecritures COALA (venant du presse-papier) dans l'onglet 'Ecritures'
' Methode: Cree une page vierge, y colle le presse papier
'          Puis fais le traitement d'importation Coala
'          Enfin, on supprime la page et on envoie les ecritures dans la balance
 
    Dim FeuilEcrit As String
    Dim FeuilNew As String
    Dim FeuilNewEX As String
    Dim NbLig As Integer
    Dim i As Integer
    Dim j As Integer
    Dim jEX As Integer
 
'Demande la date Mini
    LaDate = inputbox("Date de debut des ecritures à recuperer" & Chr(13) & "Format: JJ/MM/AAAA")
 
'Cree une feuille vide et colle le presse papier dedans
    Sheets.Add
    ActiveSheet.Paste

Je vous ai evoyer le début de ma macro. Merci pour vos réponse. Je vais testé et je vous tiens au courant si ca fonctionne.

Cordialement