High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Erreur 1004 VBA

Dernière réponse le 30 jun 2009 à 16:30:52 titofaussie, le 15 jun 2009 à 20:26:18 
 Signaler ce message aux modérateurs

Bonjour,

comme beaucoup, je rencontre l'erreur 1004 sous vba.

je suis novice, j'ai essayé de regarder les différents forums, mais sans résultat.
je me retourne donc vers vous pour me trouver une solution.

voici le code:

Private Sub validation_Click()
Sheets("saisie").Select
Range("A4:m36").Select
Selection.Copy
If Range("B1") = "janvier" Then
Sheets("janvier").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("saisie").Select
Application.CutCopyMode = False
Range("B1").Select
Else
If Range("B1") = "février" Then
Sheets("février").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("saisie").Select
Application.CutCopyMode = False
Range("B1").Select
Else
If Range("B1") = "mars" Then
Sheets("mars").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("saisie").Select
Application.CutCopyMode = False
Range("B1").Select
End If
End If
End If





End Sub


merci par avance

titof aussie

Configuration: Windows Vista Internet Explorer 7.0

Meilleures réponses pour « erreur 1004 VBA » dans :
Codes d'erreur de Windows VoirLa liste ci-dessous détaille les codes d'erreur s'affichant dans les boîtes de dialogue sous Windows : Code Description ------------------------ 1 Fonction incorrecte. 2 Le fichier spécifié est introuvable. 3 Le chemin d'accès spécifié...
[IE] Erreur de script / Effectuer un débogage VoirDe temps en temps, lorsque vous naviguez sur le Net et que vous chargez une page Web, un message d'erreur de script survient : Une erreur est survenue. Une erreur est survenue sur le script de cette page. Souhaitez-vous effectuer un débogage...
[MSN] Erreur de connexion (80048820) VoirErreur 80048820 Avant toute modification sur votre système, vérifiez l'état des serveurs MSN Messenger, afin de déterminer si le problème ne vient pas de là : http://messenger.msn.com/Status.aspx?mkt=fr-fr Il peut également s'agir d'un problème...
Messages d’erreur liés aux formules Voir
Le contrôle des erreurs VoirLe contrôle d'erreurs Le codage binaire est très pratique pour une utilisation dans des appareils électroniques tels qu'un ordinateur, dans lesquels l'information peut être codée grâce à la présence ou non d'un signal électrique. Cependant le...
Posez votre question Répondre

1

Polux31, le 15 jun 2009 à 22:38:58

Bonjour,

Essais ça : 

Private Sub validation_Click()
Dim wsSaisie As Worksheet
Dim wsJanvier As Worksheet
Dim wsFevrier As Worksheet
Dim wsMars As Worksheet

   Set wsSaisie = Worksheets("saisie")
   Set wsJanvier = Worksheets("janvier")
   Set wsFevrier = Worksheets("février")
   Set wsMars = Worksheets("mars")

   ws.Saisie.Range("A4:m36").Select
   Selection.Copy

   If ws.Saisie.Range("B1") = "janvier" Then
      ws.Janvier.Range("A6").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      wsSaisie.Range("B1").Select
   End If

   If ws.Saisie.Range("B1") = "février" Then
      wsFevrier.Range("A6").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      wsSaisie.Range("B1").Select
   End If

   If ws.Saisie.Range("B1") = "mars" Then
      wsMars.Range("A6").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      wsSaisie.Range("B1").Select
   End If

End Sub


;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

2

titofaussie, le 16 jun 2009 à 09:05:07

Bonjour polux31,

merci pour ta réponse, qui, malheureusement n'a pas résolu le pbm...

serait-il possible de poursuivre via nos mails perso pour que je puisse t'envoyer le fichier?

cordialement

Titof aussie

   
Répondre à titofaussie

3

Polux31, le 16 jun 2009 à 11:05:43

Bonjour,

Tu peux déposer le fichier sur www.cjoint.com et tu colles le lien ici pour qu'on puisse charger le fichier.

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

4

titofaussie, le 16 jun 2009 à 11:19:20

Voici le lien: http://cjoint.com/?gqln1HQcG1

pour info, voila ce que je souhaite faire:

en cliquant sur le bouton "validation" cela enregistre la plage de "saisie" de la feuille "saisie" dans la feuille du mois concerné.
à l'inverse, je souhaite également pouvoir "charger" n'importe quel Mois dans la feuille "saisie" à travers le bouton "appel budget du mois"

j'essaie de développer un petit programme pour une personne qui n'y connais pas grand chose en informatique (encore moins que moi) pour qu'il ait le moins de manipulation à faire et qu'il puisse suivre son "budget".

si tu as des questions, n'hésite pas

Merci beaucoup

titofaussie

   
Répondre à titofaussie

5

Polux31, le 16 jun 2009 à 12:27:51

Tu as Excel 2007 ... j'ai Excel 2003, je ne peux pas le lire

Il faut que tu le sauvegardes en 2003 ou inférieur.

Merci «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

6

titofaussie, le 16 jun 2009 à 12:35:20

Voici, en espérant que cela marche cette fois

http://cjoint.com/?gqmIkxKJcV

Merci bien

   
Répondre à titofaussie

7

Polux31, le 16 jun 2009 à 15:21:24

C'est mieux ...

Je n'ai pas trop le temps de le regarder maintenant, je glisserai un oeil dedans ce soir et je te tiens au courant.

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

8

Polux31, le 16 jun 2009 à 19:41:22

Bonsoir,

Je viens de regarder le fichier.

Je vais réfléchir un peu et je te proposerai peut être autre chose. Ce n'est pas que ton fichier ne tienne pas la route, mais ça sera plus facile pour de refaire que d'adapter.

Je reviens vers toi dans quelques jours

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

9

titofaussie, le 16 jun 2009 à 20:48:41

Ok merci.

ne connaissant pas trop VBA (quelques instructions par ci par là), je me suis servi de l'enregistreur de macro et j'ai fait un copier coller pour l'affecter au bouton "validation".

la procédure me parait simple, un bouton d'enregistrement dans les feuilles du mois concerné et un autre qui charge le mois voulu...

merci d'avance pour ton aide

   
Répondre à titofaussie

10

 titofaussie, le 30 jun 2009 à 16:30:52

Bonjour polux31,

as tu eu le temps de te pencher sur mon fichier?

cordialement

titofaussie

   
Répondre à titofaussie
Posez votre question Répondre
Ils ont besoin de votre aide