Discussion :

[djoumusic]

Bonjour,
j'ai preparé un fichier avec macro chez, j'arrive au boulot,
je travaille avec tout va !
je rentre chez moi,
je recupere le fichier sur mon pc, et là j'ai 1 macro qui ne veut pas s'executer...
le lendemain, soit aujourd'hui, ce fichier qui ne marchait pas chez moi,
marche au boulot..??
au boulot :
winXP office2003
chez moi
Win7 office 2003

j'ai essayer de supprimer quelques modifications que j'avais pu faire sur ce module..
mais rien ne semble aller..
y a t il moyen de le lire chez moi, ou pas du tout...?
ou quelqu'un a dejà eu le souci..
y a peut etre juste une bidouille a faire...

[Qwazerty]

Salut
Miroir oh mon beau miroir, désolé de te déranger mais le peu d'informations données par cet internaute ne me permet pas de réfléchir à son problème, pourrais tu, dans ton immense bonté, me procurer le code source qui ne fonctionne pas.

Je plaisant mais bon, tu imagines le nombres de causes possibles a de tels problèmes? comment veux tu que l'on te vienne en aide sans savoir de quoi il retourne?

Si quelqu'un te donne la bonne réponse ou il est devin ou il a un bol terrible ou tu as un bol terrible et justement hier matin c'est arrivé la même chose a un gars et il a passé sa journée a trouver la solution et que justement fort de cette nouvelle expérience, il s'est dit tiens et si j'allais voir sur Dev.net si quelqu'un a pas le même problème que moi.

Comme tu peux le voir, j'ai peur que les chances soient minces :p

A++
Qwaz

[djoumusic]

voila le code du module8

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub MAJPLANNING()
Application.ScreenUpdating = False
 
 
    Dim fichier As FileDialog
    Dim chaine As String
    Set fichier = Application.FileDialog(msoFileDialogFilePicker)
    fichier.Show
 
 
 'MsgBox fichier.InitialFileName ' affiche le repertoire du fichier selectionné uniquement
 'MsgBox fichier.SelectedItems(1) 'affiche le repertoire complet
 
    chaine = fichier.SelectedItems(1)
    chaine = Right(chaine, InStr(1, StrReverse(chaine), "\") - 1)
'MsgBox chaine 'msgbox qui premet de recuperer uniquement le nom du fichier selectionné ex : toto.xls
 
Worksheets("ACCUEIL").Unprotect Password:="djou"
     Worksheets("CODE HORAIRE").Unprotect Password:="djou"
      Worksheets("PLANNING").Unprotect Password:="djou"
       Worksheets("GXP").Unprotect Password:="djou"
 
Sheets("ACCUEIL").Range("c16").Value = chaine
Sheets("ACCUEIL").Range("c20").Value = fichier.InitialFileName
 
MAJPLCH
 
Worksheets("ACCUEIL").Protect Password:="djou"
     Worksheets("CODE HORAIRE").Protect Password:="djou"
      Worksheets("PLANNING").Protect Password:="djou"
       Worksheets("GXP").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, Password:="djou"
perso.Show
Application.ScreenUpdating = True
End Sub

qui fonctionne au boulot...
je l'utilisais il ya encore 3 heures...

quand j'essaie de rentrer dans VB chez moi, et de selectionner ce module,
ça me renvoie, "erreur de chargement DLL"

je ne sais même pas comment recuperer meme une partie du fichier

peut etre copier tous mes codes VBA au boulot, dans un fichier texte..
et repartir de chez moi, en inserant les codes progressivement...

mais c'est tres etrange... puisque c'est chez moi que j'ai creer le fichier qui marchait au boulot, et une fois retransferer de l'ordi boulot vers DDur externe et remis dans ma machine... ne marche plus...

peut etre a tu une idée...

ré-installer excel chez moi..??
mais je vois pas pourquoi....

[Qwazerty]

As tu essayé de faire une réparation de ton fichier a l'aide d'excel.
La démarche est la suivante
-Ouvrir Excel
-Aller dans Fichier -> Ouvrir
-Sélectionner le fichier
-En bas a droite, tu as un bouton "Ouvrir" avec une bouton de liste déroulante, utilise la liste déroulante associée et choisi, "Ouvrir et réparer"

Parfois les fichier Excel deviennent capricieux, si ça ne fonctionne pas tu peux essayer la même manip avec Excel 2007 mais attention au perte de données possible (j'en ai fait les frais)

A++
Qwaz

[djoumusic]

je viens d'essayer d'ouvrir comme tu me l'as dit.. rien... n'y fait...

excel 2007 peut mieux y arriver...?

[Qwazerty]

J'ai eu un probleme au taff avec un fichier qui déconné, Excel 2003 a rien fait, 2007 l'a "réparé".

[djoumusic]

je vais tenter...
je te tiens informé

[djoumusic]

avant de passer par 2007...
j'ai ouvert excel desactiver toutes les macros..
ouvert mon fichier,
aller dans vba,
exporter tous mes codes, usf.. etc...
enregistrer le tout.
fermer excel

ouvert excel, activer toutes les macros.. aucune securité
fermer excel

ouvert mon fichier,
excel m'ouvre une reference macros manquante "ref edit control"
je ne sais meme pas a quoi ca sert... j'en avais pas l'utilité..
je decoche la case..
poursuit..
reaffecte toutes les macro..
et tout remarche !
incroyable !

c'est quoi ce ref edit control...??? dans les references macros ?