Soleil972

Soleil972

XLDnaute Nouveau
Bonjour,
Ma présentation :
Soleil972, c'est mon pseudo, pour dire que j'habite le département 972 (Martinique) où j'y travaille en tant qu'administrateur de bases de données et responsable tarification dans un grande entreprise française dont le siège est à Paris, je ne suis pas expert en vba ni en Excel d'ailleurs, mais j'aime bien chercher et trouver des solutions lorsqu'elles sont blocantes, histoire de prouver que celui qui cherche trouve, peu importe le temps que çà prendra. C'est à cette occasion, en surfant sur le net, que j'ai eu la joie de tomber sur votre équipe bien sympatique, en espérant pouvoir apprendre avec vous.
Ma question :
Nous venons de migrer vers office 365 et je tombe sur un os pour l'insertion d'un calendrier dans une application vba destinée à créer des devis.
Le code DTPicker ne passe plus et je cherche le code compatible qui remplacerait DTPicker pour l'affichage de mon calendrier. Quelqu'un peut-il m'aider svp ?
Avec mes remerciements anticipés.
 

Soleil972

XLDnaute Nouveau
j'ai juste omis de joindre le code actuel qui dysfonctionne, que voici :

Sub Rectangle2_Cliquer()
Dim DTPicker21 As Object
Application.ScreenUpdating = False
Range("F9").Activate
Range("F9:F16").Value = ""
Range("G12").Value = ""
'Range("F14:F15").Value = ""
Range("F18:F21").Value = ""
Range("F18:F21").Value = ""
Feuil8.DTPicker21.Value = Now
Feuil1.Range("M2") = Now
Range("F22") = 0
Range("P9:p16").Value = ""
'Range("P26").Value = ""
Range("N41") = ""
Range("N45") = "Formule1"
Range("N46") = "Sans"
Range("N47") = "Sans"
Range("F28") = ""
Range("C44:C94") = ""
Range("E44:E94") = "non"
Range("F44:F94") = 0
Range("G44:G94") = "non"
Range("H44:H94") = "non"
Range("F9").Activate
Application.ScreenUpdating = True
End Sub
 

Discussions similaires

Réponses
14
Affichages
3 K

Statistiques des forums

Discussions
312 215
Messages
2 086 329
Membres
103 182
dernier inscrit
moutassim.amine