Conversion format date en VBA

nounbxl76 · 22 Décembre 2012

Bonsoir,

Suite à l'import de données de différents classeurs dans mon classeur principal, le format de date de la colonne F telles que les données sont importées est "jj/mm/aaaa hh:ss" alors que j'aimerais qu'il soit juste "jj/mm/aaaa"... que dois-je intégrer dans mon code selon vous SVP?

Merci par avance pour votre aide.

Cordialement,

kjin · 22 Décembre 2012

Re : Conversion format date en VBA

Bonsoir,

nounbxl76 à dit:
....que dois-je intégrer dans mon code selon vous SVP?

...que nous n'avons pas !
A+
kjin

Grand Chaman Excel · 22 Décembre 2012

Re : Conversion format date en VBA

Bonjour,
Sans avoir vu ton code... peut-être comme ceci, en faisant une boucle sur les cellules de la colonne F :

VB:

For i = 1 to 100
Cells(i,6) = Format(Cells(i,6),"dd/mm/yyyy")
Next i

A+

Compte Supprimé 979 · 22 Décembre 2012

Re : Conversion format date en VBA

Re,

Avec le code précédent il faut changer celui de la boucle

VB:

 ' Copier chaque plage indépendamment  For Inc = 0 To 8
    ShtFils.Range(TabColS(Inc) & "5:" & TabColS(Inc) & LigFin).Copy
    ShtPère.Range(TabColD(Inc) & "17").PasteSpecial Paste:=xlPasteValues
    ' Si la colonne copiée est celle de la date
    If Inc = 6 Then
      ' Appliquer le format date à la colonne de destination
      ShtPère.Range(TabColD(Inc) & "17:" & TabColD(Inc) & 17 - 5 + LigFin).NumberFormat = "dd/mm/yyyy"
    End If
  Next Inc

A+

nounbxl76 · 22 Décembre 2012

Re : Conversion format date en VBA

C'est vrai... c'est un peu bête de ne pas transmettre le code... comme c'est un peu bête d'avoir ouvert une autre discussion alors que le code a été élaboré avec l'aide de BrunoM45 sur cette discussion... https://www.excel-downloads.com/threads/transfert-classeur-pere-classeur-fils-vba.197880/

Merci pour votre aide.

Cordialement

nounbxl76 · 22 Décembre 2012

Re : Conversion format date en VBA

Re,

J'ai un petit problème avec le code... il y a un petit bug car il ne trouve plus le fichier fils censé s'ouvrir avec

Code:

' Récupérer le nom entier du fichier
 nf = Dir(ThisWorkbook.Path & "\TW*.xls")
  ' Ouvrir le fichier
 Workbooks.Open Filename:=nf, ReadOnly:=True
  ' Définir la feuille source

Je n'ai pas modifié l'emplacement de ce fichier fils donc je ne vois pas trop...

nounbxl76 · 22 Décembre 2012

Re : Conversion format date en VBA

ne pas tenir compte... erreur d'aiguillage !
Désolé... d'où l'intérêt de ne pas multiplier inutilement les discussions...

Conversion format date en VBA

nounbxl76

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Grand Chaman Excel

XLDnaute Impliqué

Compte Supprimé 979

Guest

nounbxl76

XLDnaute Occasionnel

nounbxl76

XLDnaute Occasionnel

nounbxl76

XLDnaute Occasionnel

Discussions similaires