XL 2013 bug récupération mois et année vba

[MEZ]

Bonjour,
J'ai un bout de code qui ne marche pas et pourtant il est tout simple

Sub aa()

Dim nom_fichier As String
Dim temp1 As Integer
Dim mois As Integer


   Application.ScreenUpdating = False


    chemin = Workbooks(ActiveWorkbook.Name).Path & "\"
    nom_source = ActiveWorkbook.Name
    temp1 = Month(Sheets("A").Range("K8").Value)
    mois = Year(Sheets("A").Range("K8").Value)

Il bu a ligne où je veux récupérer la valeur de temp1


LA cellule K8 est une date au format date/

Un grand merci pour votre aide

 

[frangy]

Bonjour,

Essaie ce code et regarde ce qu'il retourne ...

Sub test()
Dim temp1 As Variant
    temp1 = Month(Sheets("A").Range("K8").Value)
    MsgBox "Valeur de temp1 : " & temp1
End Sub

Cordialement.

 

[Modeste geedee]

Bonjour,
J'ai un bout de code qui ne marche pas et pourtant il est tout simple

Sub ExportFichierDecision()

Dim nom_fichier As String
Dim temp1 As Integer
Dim mois As Integer
   Application.ScreenUpdating = False
    chemin = Workbooks(ActiveWorkbook.Name).Path & "\"
    nom_source = ActiveWorkbook.Name
    temp1 = Month(Sheets("A").Range("K8").Value)
    mois = Year(Sheets("A").Range("K8").Value)

Il bu a ligne où je veux récupérer la valeur de temp1


LA cellule K8 est une date au format date/

Un grand merci pour votre aide

??? en vba
Month signifie MOIS
Year signifie ANNEE

la variable temp1 retourne donc le mois !!!
la variable mois contient alors l'année !!!
logique NON ????

 

[MEZ]

??? en vba
Month signifie MOIS
Year signifie ANNEE

la variable temp1 retourne donc le mois !!!
la variable mois contient alors l'année !!!
logique NON ????

Au delà de la cohérence des noms de variables, la macro fait crasher le ficher et il ferme...

 

[MEZ]

Pour faire simple, j'ai une date dans une cellule ( par exemple 15/10/2019)

Je veux récupérer dans une variable 201910

C'est le but de ma petite macro..

Merci!

 

[MEZ]

Le plus étrange est que ce bout de macro fonctionne dans un classeur excel nouveau mais pas dans mon fichier de travail.

En créant un nouveau classeur et en insérant ce bout de macro, mes variables récupérent bien le mois et l'année comme je veux...

Pour le coup, je ne vois pas d'où vient le problème ??

 

[MEZ]

autre point La cellule où il y'a la date est une formule... Ca peut influer?

 

[MEZ]

Apres plusieurs vérifications c'est bien mon fichier qui a un problème.
Du coup, à votre avis quelles pourraient être les raisons qui font qu'un code fonctionne sur un fichier et pas sur un autre?

Merci d'avance!

 

[Modeste geedee]

bonsour®

lavariable = Format(WorkSheets("A").Range("K8").Value,"yyyymm"))

 

[MEZ]

bonsour®

lavariable = Format(WorkSheets("A").Range("K8").Value,"yyyymm"))

bonjour,
Merci pour votre aide!