Bonjour,
Je n'ai pas reçu de réponse à ma question... Est-ce que l'explication n'est pas claire?
N'hésitez pas si je peux vous transmettre les informations supplémentaires dont vous avez besoin.
Ce problème est vraiment un mystère pour moi
J'ai une macro qui converti des données en heures minutes pour des horaires.
Je dois copier des données extraites d'une application que je ne peux pas modifier mais seulement exporter les données.
Je reçois un classeur Excel en anglais avec l'extension .xlsx
Lorsque je copie le range de cellule de ce fichier et que j'essaie de le coller, ça ne fonctionne pas, je reçois des messages d'erreur.
J'ai fait un test en prenant le fichier ayant une extension .xlsx et en le sauvegardant en format .xlsm que j'ai par la suite ouvert. Aucun problème pour copier et coller les données. Tout fonctionne bien.
Est-ce qu'il y a quelque chose que je peux faire dans ma programmation pour contrer ce problème?
Un gros merci à l'avance pour votre aide
Sub Ellipse5_Cliquer()
Dim cellule As Range
For Each cellule In Range("E5:F88")
If cellule.Value > "0" Then
cellule.NumberFormat = "hh:mm;@"
cellule.Value = TimeValue(cellule)
Else
cellule.ClearContents
End If
Next
Application.EnableEvents = False
Sheets("feuil3").Range("D5:I88").Copy
Sheets(nomfeuille).Range("D5").PasteSpecial Paste:=xlValues
Sheets("Feuil5").Cells.Copy
Sheets("Feuil3").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.EnableEvents = True
Sheets(nomfeuille).Select
Range("D5").Select
End Sub