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

MEZ

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

VB:
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
 
Dernière édition:

Modeste geedee

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

VB:
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

XLDnaute Junior
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 ??
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 841
dernier inscrit
ferid87