StagiairePasPayé
XLDnaute Nouveau
Bonjour à tous,
c'est encore moi.
J'ai un fichier excel contenant des affaires et dans chaque ligne il y a des dates, mon problème est que je veux les recopier dans un autre fichier sauf qu'elle pas du format FR au format US. Code pour la copie :
c'est encore moi.
J'ai un fichier excel contenant des affaires et dans chaque ligne il y a des dates, mon problème est que je veux les recopier dans un autre fichier sauf qu'elle pas du format FR au format US. Code pour la copie :
VB:
While colonne <> 18
lot1SuiviSydev.Cells(i, colonne).NumberFormat = "mm / dd / yyyy"
lot1Recap.Cells(i, colonne).NumberFormat = "dd / mm / yyyy"
copieValue = lot1SuiviSydev.Cells(i, colonne).Value
copieBackColor = lot1SuiviSydev.Cells(i, colonne).Interior.ColorIndex
copieFontBold = lot1SuiviSydev.Cells(i, colonne).Characters.Font.Bold
copieFontColor = lot1SuiviSydev.Cells(i, colonne).Characters.Font.Color
copieBorder = lot1SuiviSydev.Cells(i, colonne).Borders.Value
lot1Recap.Activate
With lot1Recap.Cells(i, colonne)
.Value = Format(copieValue, "dd/mm/yyyy")
With .Characters.Font
.Bold = copieFontBold
End With
End With
colonne = colonne + 1
Wend