Macro qui ne fonctionne pas avec Excel 2000

[degap05]

Bonjour,

La macro du fichier joint, mise au point par BrunoM45 (Merci beaucoup à lui), fonctionne parfaitement chez moi (Excel 2007 et BrunoM45 Excel 2003).

Par contre à mon travail (Excel 2000), la macro se déroule normalement, sans blocage, mais celle-ci qui est sensée recueillir, trier et transférer des données ne le fait pas. La feuille destinataire reste vide.🙁

Si l'un d'entre vous pouvez tester ou me conseiller.

Merci beaucoup.

 

[pierrejean]

Re : Macro qui ne fonctionne pas avec Excel 2000

bonjour degap05

Difficile de travailler sur un fichier ne comportant qu'une feuille vide et sans aucune macro !!!

 

[degap05]

Re : Macro qui ne fonctionne pas avec Excel 2000

Bonjour Pierrejean, sans doute une mauvaise manipulation de ma part, avec mes excuses.

Nouvel envoi du dossier qui comprend deux fichiers. La macro se trouve dans le fichier Degap transfert.

Merci.

Je ne comprends pas Pierrejean, je viens de télécharger mon premier upload, il comprend bien les deux fichiers😕😕

 

[abtony]

Re : Macro qui ne fonctionne pas avec Excel 2000

Bonjour degap05, pierrejean,

je confirme que les deux fichiers sont bien présent dans la première PJ.

A+

 

[Compte Supprimé 979]

Re : Macro qui ne fonctionne pas avec Excel 2000

Salut tout le monde,

Degap05, j'ai testé sur Excel 2000 et effectivement.

Tu as une bibliothèque manque quand tu vas dans références de l'éditeur VBA.
"MainWindow 1.0 Type Library"
A DECOCHER

Donc la macro s'arrête sur

Private Sub UserForm_Initialize()
  If Sheets("Identifiants").Range("J1") <> "" Then
    DateDeb = DateValue(Sheets("Identifiants").Range("J1"))
  Else
    DateDeb = DateValue("01/01/2008")
  End If
[COLOR=red][B] DateFin = Date[/B][/COLOR]
  '
  Me.TextBox1 = DateDeb
  Me.TextBox2 = DateFin
End Sub

A remplacer d'ailleurs par
DateFin = Format(Now(), "dd/mm/yyyy")

A+

 

[degap05]

Re : Macro qui ne fonctionne pas avec Excel 2000

Bonjour à tous et à BrunoM45,

Merci de suivre mon "petit" problème et à BrunoM45 qui après avoir mis en place la macro se préoccupe de son fonctionnement🙂🙂

J'ai eu la sensation que mon souci était résolu après avoir appliqué tes recommandations. Hélas coché, décoché, rien n'y fait.🙁

La macro ne bloque pas mais la feuille destination ne recueille aucune données, alors que chez moi cela fonctionne parfaitement.

Cette librairie: "MainWindow 1.0 Type Library" semble avoir une relation avec Sophos, logiciel de filtrage de mon entreprise. Est-ce que cela pourrait avoir une incidence sur le transfert de données???

Merci.

 

[pierrejean]

Re : Macro qui ne fonctionne pas avec Excel 2000

Re

Uniquement pour presenter mes excuses

J'avais deja un fichier Transfert et c'est celui-ci que j'ai ouvert
Je laisse Bruno traiter le problème

 

[Compte Supprimé 979]

Re : Macro qui ne fonctionne pas avec Excel 2000

Re,

Je pense que le problème vient des dates !
C'est souvent le soucis d'un ordinateur à l'autre .... 🙄

Dans la procédure : Private Sub CommandButton2_Click()
Place un point d'arrêt (F9) sur la ligne : DateFin = DateValue(Me.TextBox2.Value)

Ensuite vérifie les valeurs de DateDeb et DateFin
Tu mets le curseur de la souris dessus, ça te donne la valeur
Ou sinon dans la fenêtre d'éxécution tu tapes :
Debug.Print DateDeb + Entrée

Puis même chose mais avec DateFin

Et tu nous dis ...

A+

 

[degap05]

Re : Macro qui ne fonctionne pas avec Excel 2000

Bonsoir BrunoM45,

J'essaie demain au travail.

Merci.

 

[degap05]

Re : Macro qui ne fonctionne pas avec Excel 2000

Bonjour BrunoM45,

Selon les modalités que tu m'as indiqué:
"Dans la procédure : Private Sub CommandButton2_Click()
Place un point d'arrêt (F9) sur la ligne : DateFin = DateValue(Me.TextBox2.Value)

Ensuite vérifie les valeurs de DateDeb et DateFin
Tu mets le curseur de la souris dessus, ça te donne la valeur",

Lorsque je mets le curseur de la souris, cela ne me donne aucune valeur🙁


"Ou sinon dans la fenêtre d'éxécution tu tapes :
Debug.Print DateDeb + Entrée

Puis même chose mais avec DateFin"

Là je fait: Affichage, Fenêtre d'exécution, qui s'ouvre en bas, je note: Debug.Print DateDeb puis je fais "entrée" et rien🙁 Idem pour Debug.Print DateFin.

Qu'en penses-tu?

 

[Compte Supprimé 979]

Re : Macro qui ne fonctionne pas avec Excel 2000

Salut Degap05,

Là je fait: Affichage, Fenêtre d'exécution, qui s'ouvre en bas, je note: Debug.Print DateDeb puis je fais "entrée" et rien🙁 Idem pour Debug.Print DateFin.

Ben voilà le problème !?

Peux tu nous joindre ton dernier fichier sur lequel tu travailles !?

A+

 

[degap05]

Re : Macro qui ne fonctionne pas avec Excel 2000

Bonjour BrunoM45,

Voilà les deux fichiers.

Merci.

 

[degap05]

Re : Macro qui ne fonctionne pas avec Excel 2000

Bonjour BrunoM45,

Je me permets de remettre mon sujet en avant puisque tu voulais savoir sur quel fichier se produisait le problème.

Sans doute message passé inaperçu au milieu des très nombreux sujets que tu traites.

Merci.

 

[Compte Supprimé 979]

Re : Macro qui ne fonctionne pas avec Excel 2000

Salut Degap05,

Désolé 😱 je n'ai effectivement pas vu passer ton post 😉

J'ai essayé chez moi avec tes 2 fichiers et ca marche !?
Je ne comprends pas ...

Dans le code du bouton ajoute un MsgBox comme suit

Private Sub CommandButton2_Click()
  Dim DerLig As Long, Lig As Long
  Dim DateCel As Date
  Dim Produit As String
  Dim VInc As Integer
  ' Vérifier les dates saisies
  If Not IsDate(Me.TextBox1.Value) Then
    MsgBox "Merci de saisir la date de début au format 'JJ/MM/AAAA'"
    Me.TextBox1.SetFocus
    Me.TextBox1.Value = ""
  End If
  DateDeb = DateValue(Me.TextBox1.Value)
  '
  If Not IsDate(Me.TextBox2.Value) Then
    MsgBox "Merci de saisir la date de fin au format 'JJ/MM/AAAA'"
    Me.TextBox2.SetFocus
    Me.TextBox2.Value = ""
  End If
  DateFin = DateValue(Me.TextBox2.Value)
[B][COLOR=blue]msgbox "Date début : " & Datedeb & " Date fin : " & DateFin[/COLOR][/B]
...

Et dis moi ce qui s'affiche ?

A+

 

[degap05]

Re : Macro qui ne fonctionne pas avec Excel 2000

Bonjour BrunoM45,

L'affichage des dates dans le message correspond exactement aux dates renseignées.

A+