> Tous les forums > Forum Bureautique
 Macro inactive sur autre ordinateurSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
quillet
  Posté le 03/04/2008 @ 11:51 
Aller en bas de la page 
Petit astucien

Bonjour,

J'ai, sur mon ordi personnel, construit un fichier contenant des macros (une fournie par Ferrand le 24 mars à 23:17, l'aute par Galopin le 30 mars à 3:51) qui fonctionnent parfaitement sur mon ordi personnel.

J'ai transféré ce fichier, à l'aide d'une disquette, sur l'ordi du Bureau. Or là, les macros ne fonctionnent plus et le détail du débogage m'indique une erreur 1004

Qui pourrait me dire d'où provient cette anomalie et comment la réparer.

Merci d'avance

Publicité
Bérylion
 Posté le 03/04/2008 à 12:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


Salut

à l'odeur, ça ressemble à une "utilisation incorrecte de la propriété"

le mieux est encore de cliquer sur débugage et de nous donner le code avec la ligne jaune...
micami
 Posté le 03/04/2008 à 12:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

bonjour,

lorsque ton message de débogage s'affiche tu as la possibilité soit de cliquer sur débogage soit sur d'autres icônes (je ne me souviens exactement des libellés) qui te permettent de t'amener dans le détail de ta macro.

lorsque le détail de ta macro s'affiche tu as une ligne en surbrillance jaune (de mémoire) qui t'indique que c'est à cet endroit que ta macro plante

je ne suis pas sûre d'avoir été claire !

ferrand
 Posté le 03/04/2008 à 12:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

L'erreur 1004 (=erreur de l'application), ça peut être n'importe quoi...

La première question à considérer est : est-ce que au bureau tu tournes sur une version différente d'Excel et laquelle ? (Et quelle est ta version personnelle tant qu'on y est).

Ensuite, sur quelle(s) ligne(s) ça bloque précisément ? Peux-tu nous les reproduire.

A plus.

ferrand
 Posté le 03/04/2008 à 12:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

L'abondance ne nuit pas!!!
ferrand
 Posté le 03/04/2008 à 12:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Re, après recherche le 24 mars à 23:17 c'est une solution sans macro que je t'ai transmis ; elle devrait donc avoir du mal à planter . Reste la macro Galopin, et ya vraiment pas beaucoup de lignes sur quoi planter ??
quillet
 Posté le 03/04/2008 à 14:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Rebonjour,

Mon ordi perso est équipé de Excel 2003 et celui du Bureau de Excel 2000.

Voici les macros qui sont surlignées en jaune (indiqué ici en caractères rouge)

La macro Ferrand:

Module 4

Sub Tri_Noms()

Range("A6").Select
Application.Goto Reference:="R6C1:R150C3"
ActiveWindow.SmallScroll Down:=-5
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub

Feuille 1

Private Sub Worksheet_Deactivate()
Sheets("Données").Range("A6:C150").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


End Sub

Macro Galopin

Module 3

Sub Tri_Clôture()
ActiveSheet.Unprotect
i = 3
Do
i = i + 1
Loop Until Cells(i + 1, 2) = 0
Range("B4:G" & (i)).Sort Key1:=Range("B4")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Range("G2").Select
End Sub

Si vous pouvez trouver une solution, Merci

ferrand
 Posté le 03/04/2008 à 19:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Voici la version modifiée que j'ai fourni le 26/03 à 13:13 :

Sub Tri_Liste()
Range("A6").Select
Application.Goto Reference:=Worksheets("Données").Range("A6:C150")
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns
End Sub

Une toute petite différence avec celle que tu utilises (qui plantait chez moi -- je travaille toujours sur Excel 2000). Fais donc un essai.

ferrand
 Posté le 03/04/2008 à 19:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Re,

Et sur la macro de galopin, fais donc un essai en réduisant la ligne qui plante de cette façon :

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

A plus

quillet
 Posté le 03/04/2008 à 20:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut Ferrand,

Merci de ton obligeance. Je ne pourrais passer au bureau que demain soir. je te donnerai alors le résultat des modifications.

Toutefois, avec ta version du 03 mars à19:20, la macro à saisir dans la feuille est-elle toujours la même soit:

Sheets("Données").Range("A6:C150").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

A bientôt

galopin01
 Posté le 03/04/2008 à 21:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Il y a un problème d'incompatibilté entre le codage des passwords entre Excel 2000 et Excel 2003 : La seul manière de passer d'excel 2000 à 2003 et vice versa est de ne pas protéger par mot de passe.

A+

ferrand
 Posté le 04/04/2008 à 09:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

En règle générale la compatibilité entre versions successives d'un programme est ascendante mais non descendante. Excel 2003 va en principe pouvoir utiliser sans difficulté des fichiers issus de Excel 2000 mais l'inverse n'est pas forcément vrai. Depuis Excel 97 (jusqu'à 2003) il n'y a pas eu modification du type de fichiers créés par Excel mais il y a parfois quelques petits détails, pas forcément décrits dans les nouveautés de la version et pas toujours facile à déceler.

Pour faire fonctionner ta procédure de tri sous Excel 2000, j'avais simplement passé en revue tous les arguments utilisés et éliminés ceux qui n'étaient pas répertoriés pour Excel 2000 (VBA 6). Ceci fait, ça ne boguait plus. Je me souviens avoir eu l'idée de te le signaler pour que tu puisses vérifier l'impact des arguments supprimés dans l'aide de VBA pour Excel 2003 et j'ai oublié de le faire.

Modification opérée sur la dernière que tu indiques :

Sheets("Données").Range("A6:C150").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns xlTopToBottom, _
DataOption1:=xlSortNormal

en rouge = supprimé, en vert = ajouté

A plus

quillet
 Posté le 04/04/2008 à 20:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir et merci messieurs. Que ferais-je sans vous! Vos précieux conseils m'ont permis de faire fonctionner mon fichier comme il faut.

Le problème est donc résolu.

A une prochaine fois

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Portable 15.6 pouces Lenovo IdeaPad 1 15ALC7 (FullHD, Ryzen 7 5700U, 16 Go, SSD 512 Go, sans OS) à 469,99 €
469,99 € 649 € -28%
@Cdiscount
Adaptateur USB C Ethernet 2,5 Gbit/s Sabrent à 14,99 €
14,99 € 29,99 € -50%
@Amazon
Grosses promotions pour le 11/11 chez Geekbuying
-1 -50%
@Amazon
Smartphone Google Pixel 8a 5G (6.1' FHD+, 8 coeurs, 8 Go RAM, 256 Go, Android 14) à 479 €
479 € 569 € -16%
@Amazon
Ecran 32 pouces Titan Army P32A2S2 (QHD, IPS, 240 Hz, 1 ms, HDR400) à 289,99 €
289,99 € 399 € -27%
@Geekbuying
Ecran PC 27 pouces Dell S2722DC (QHD, IPS, 2xHDMI, USB-C PD, HP) à 229,99 €
229,99 € 299 € -23%
@Amazon

Sujets relatifs
Macro Copier ligne vers un autre fichier
(Macro) Copier onglet sur autre fichier Excel (2007)
Passer plusieurs variables dans une autre macro excel VBA
visualiser excel a partir d'un autre ordinateur
EXCEL RECHERCHEV pour autre fichier. Macro?
Appeler une macro à partir d'une autre sous excel
Logiciel à installer sur un autre ordinateur
[excel 2007] macro pour aller sur autre feuille
Ouvrir avec macro un fichier dans autre classeur
fichiers corrompus d'un ordinateur à un autre
Plus de sujets relatifs à Macro inactive sur autre ordinateur
 > Tous les forums > Forum Bureautique