Mais Coudonc
XLDnaute Nouveau
Bonjour à tous,
Première fois pour moi ici, mais je suis un ancien du MPFE.....
J'ai un script VBA qui me permet d'aller prélever des valeurs d'un fichier fermé et qui marche A1.
Mon problème est que la valeur que je vais piger dans le fichier fermé est dans un format très particulier du genre 000_±00. C'est un format de données de laboratoire avec précision à 2 chiffres. Mon problème est que la valeur importée ne vient pas avec le format. Une valeur du fichier fermé qui serait par exemple de 357±12 deviendrait une fois importée 35712, ce qui est évidement très perturbant. Ma question, y a-t-il un moyen, avec le bout de script que j'inclue ici, d'importer également le format de la cellule et non juste sa valeur.... Merci aux répondants.
PS
Je ne peux pas seulement modifier le format de cellules des plages du fichier "receveur" parce que les format de cellules du fichier "donneur" change constamment. EX : 00_±0 à 000_±00 à 00_±00 à 00000_±000 etc....
Salutations.
Sub Macro1()
Dim MaValeur As String
MaValeur = ExecuteExcel4Macro("'P:\LABRPTR\Rapport 2010\[2010.XLS]Huile'!R6C3")
Range("A1").Value = MaValeur
End Sub
Première fois pour moi ici, mais je suis un ancien du MPFE.....
J'ai un script VBA qui me permet d'aller prélever des valeurs d'un fichier fermé et qui marche A1.
Mon problème est que la valeur que je vais piger dans le fichier fermé est dans un format très particulier du genre 000_±00. C'est un format de données de laboratoire avec précision à 2 chiffres. Mon problème est que la valeur importée ne vient pas avec le format. Une valeur du fichier fermé qui serait par exemple de 357±12 deviendrait une fois importée 35712, ce qui est évidement très perturbant. Ma question, y a-t-il un moyen, avec le bout de script que j'inclue ici, d'importer également le format de la cellule et non juste sa valeur.... Merci aux répondants.
PS
Je ne peux pas seulement modifier le format de cellules des plages du fichier "receveur" parce que les format de cellules du fichier "donneur" change constamment. EX : 00_±0 à 000_±00 à 00_±00 à 00000_±000 etc....
Salutations.
Sub Macro1()
Dim MaValeur As String
MaValeur = ExecuteExcel4Macro("'P:\LABRPTR\Rapport 2010\[2010.XLS]Huile'!R6C3")
Range("A1").Value = MaValeur
End Sub