Bonjour le Forum
J'ai un classeur XLS qui reprend des données de prestations. Ici il n'y a qu'un seul salarié pour l'exemple.(en jaune (classeur joint)
J'ai une commande ADO qui:
- crée un classeur XLS au nom du salarié = OK
- transfère la ligne de chaque salarié dans un classeur XLS fermé = OK
(ligne à transférer en jaune)
(ligne effectivement transféree dans mon classeur fermé en gris)
Cela affiche donc du texte avec un apostrophe devant , pour obtenir des heures j'ai tenté ceci au niveau de la ligne en gris.
Les deux soucis sont :
A. récupérer les heures sous format 00:00
'ici pour convertir les texte en format "heures: minutes" j'ai tésté le code suivant :
Range("AD7").Select
Selection.NumberFormat = "[hh]:mm"
'Range("AF7:AK7").Select
' Selection.NumberFormat = "[hh]:mm"
B. pour supprimer les apostrophes en début de cellule
'J. Walkenbach, mpep
For Each cell In Range("A7:AC7,AE7") 'In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
Faut- il d'abord éliminer les apostrophes ou convertir au format heures.... ?
Rien n'y fait, jene parveins pas à récupérer mes heures au format 152:00
Merci pour votre aide
Bien à vous
J'ai un classeur XLS qui reprend des données de prestations. Ici il n'y a qu'un seul salarié pour l'exemple.(en jaune (classeur joint)
J'ai une commande ADO qui:
- crée un classeur XLS au nom du salarié = OK
- transfère la ligne de chaque salarié dans un classeur XLS fermé = OK
(ligne à transférer en jaune)
(ligne effectivement transféree dans mon classeur fermé en gris)
Cela affiche donc du texte avec un apostrophe devant , pour obtenir des heures j'ai tenté ceci au niveau de la ligne en gris.
Les deux soucis sont :
A. récupérer les heures sous format 00:00
'ici pour convertir les texte en format "heures: minutes" j'ai tésté le code suivant :
Range("AD7").Select
Selection.NumberFormat = "[hh]:mm"
'Range("AF7:AK7").Select
' Selection.NumberFormat = "[hh]:mm"
B. pour supprimer les apostrophes en début de cellule
'J. Walkenbach, mpep
For Each cell In Range("A7:AC7,AE7") 'In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
Faut- il d'abord éliminer les apostrophes ou convertir au format heures.... ?
Rien n'y fait, jene parveins pas à récupérer mes heures au format 152:00
Merci pour votre aide
Bien à vous