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

MEZ · 10 Septembre 2019

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

frangy · 10 Septembre 2019

Bonjour,

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

VB:

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

Cordialement.

Modeste geedee · 10 Septembre 2019

MEZ à dit:
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 · 10 Septembre 2019

Modeste geedee à dit:
??? 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 · 10 Septembre 2019

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 · 10 Septembre 2019

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 · 10 Septembre 2019

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

MEZ · 10 Septembre 2019

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 · 10 Septembre 2019

bonsour®

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

MEZ · 11 Septembre 2019

Modeste geedee à dit:
bonsour®

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

bonjour,
Merci pour votre aide!

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

MEZ

XLDnaute Junior

frangy

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

MEZ

XLDnaute Junior

MEZ

XLDnaute Junior

MEZ

XLDnaute Junior

MEZ

XLDnaute Junior

MEZ

XLDnaute Junior

Modeste geedee

XLDnaute Barbatruc

MEZ

XLDnaute Junior

Discussions similaires