Boîte de dialogue au démarrage

**graphikris** · 28/03/2015, 14h16

Bonjour,

Depuis peu j'ai un souci avec une boîte de dialogue (information) qui se déclenche au démarrage.

J'ai essayé de l'ouvrir avec Excel 2013, idem

çà bug sur Chr$13 à la ligne 12. Normalement Chr$13 sert à effectuer un espace entre deux ligne

Sinon autre bug sur le second code à la ligne 4, çà bug sur le mot LEFT (après nom = Left). Cette macro sert à faire une sauvegarde sur le serveur K en prenant le nom du fichier Excel ainsi que la date et l'heure de sauvegarde.

Je tiens à préciser que tout fonctionnait avant sur Excel 2010, il y a peut etre eu une mise à jour sur la version mais je ne contrôle pas le serveur de ma societe. J'ai essayé sur une version 2013, çà bug aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
 
'
' RAZ_Ouverture Macro
'
 
'
 
    Sheets("Accueil").Select
 
' indication heure et date
CreateObject("Wscript.shell").Popup "Bonjour," & Chr$(13) & Chr$(13) & "nous sommes le " & Date & ", il est exactement " & Time & "." & Chr$(13) & Chr$(13) & "Une réinitialisation des cellules de la base de données va avoir lieu." & Chr$(13) & Chr$(13) & "Attendre le retour sur la page d'accueil avant toute manipulation.", 10, "Application développée par moi.", vbExclamation

Code :

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

1
2
3
4
5
6
7
8
'Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'Dim nom As String
 '   nom = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & " - svg du " & Format(Date, "dd mmm yyyy") & " à " & Format(Time, "hh") & " h " & Format(Time, "mm") & " mm " & Format(Time, "ss") & " sec" & ".xls"
 '   ThisWorkbook.SaveCopyAs K:\DIR\LST\Sauvegardes\Base de donnees\" & nom
 '   ThisWorkbook.Save
 '   rep = MsgBox("Une sauvegarde supplémentaire a été transmise vers K:\DIR\LST\Sauvegardes\Base de donnees, sous le nom suivant : " & nom, vbYes + vbInformation, "Compilation des données pour sauvegarde...")
 'End Sub

Cordialement
Graphikris.

Invité · 28/03/2015, 18h25

Bonjour,
Les références aux librairies sont enregistrées dans le projet vb.
Même si tu n'as sélectionné aucune librairies il y en a une par défaut c'est visual Basic application!

Tu dois sans doute utiliser l'application sur une autre machine que celle de développement.

Dans le menu outils ->références de vb décoche le librairies manquantes

**graphikris** · 28/03/2015, 18h36

Bonjour et merci mais la machine sur laquelle j'ai commencé à créer le code a rendu l'âme.
Je n'avais rien modifié dans VB => Références

donc je ne vois pas pourquoi çà bug sur le nouveau PC ! ! !

**SfJ5Rpw8** · 28/03/2015, 19h07

Envoyé par graphikris

...
donc je ne vois pas pourquoi çà bug sur le nouveau PC ! ! !

bonsoir,

et les références cochées actuellement dans ton projet tu les vois ou pas !!!!

Invité · 29/03/2015, 00h26

Tu n'as pas bien lus ce que j'ai écris!
Visual Basic for application est cocher par défaut!

Si elle n'est pas cocher c'est impossible de faire des macros mais 2 exemplaire c'est trop!

**graphikris** · 29/03/2015, 09h04

La case est bien cochée

**graphikris** · 29/03/2015, 09h10

Envoyé par bbil

bonsoir,

et les références cochées actuellement dans ton projet tu les vois ou pas !!!!

Oui je les vois
Voici une copie avec tout ce qui est coché
Pièce jointe 173045

Invité · 29/03/2015, 09h40

Bonjour,
Décoches tout ce qui est manquant

**Promethee25** · 29/03/2015, 10h46

Bonjour,

J'ai déjà rencontré le problème il y a quelques années au boulot: ça marchait sur certains PC et pas sur d'autres alors que les mêmes références étaient cochées.
Essaie avec VBA.Chr$ & VBA.Left; ça avait résolu le problème pour moi (depuis, je mets toujours VBA devant les fonctions texte Trim, InStr, Left, Right...).

Invité · 29/03/2015, 11h23

Tant qu'il n'aura pas décoché les librairies manquantes,il aura ce problème.

La solution de Promethee25 est un palliatif pour une application utiliser sur plusieurs machine!

Mais je commencerai par faire le ménage dans les références.

**graphikris** · 30/03/2015, 18h26

Bonjour et merci pour vos infos mais je ne comprends pas pourquoi il faut DECOCHER au lieu de COCHER

Sinon les personnes qui utilisent la BdD sont disséminées aux 6 coins de l' héxagone et je ne sais meme pas quelles sont celles qui utilisent la BdD, donc impossible de leur demander de voir leur références VBA

Cordialement.

**Promethee25** · 30/03/2015, 18h38

Bonjour,

Sauf erreur, le fait de cocher des références est lié au fichier et non au PC.
Le fait que certaines références soient manquantes ou non est par contre propre à chaque PC.

As-tu essayé avec VBA.?

Invité · 30/03/2015, 19h16

Bonjour,
Exactement les références manquantes sont liés à ton nouveau pc
Mais elle ont été inscrites dans ton projet vb par ton ancien pc et c'est pour cela qu'il faut les décocher,elles entrent en conflit avec celle actuelles!

Ton nouveau pc ne serait pas les quelles utiliser!

**SfJ5Rpw8** · 30/03/2015, 19h19

Envoyé par graphikris

Bonjour et merci pour vos infos mais je ne comprends pas pourquoi il faut DECOCHER au lieu de COCHER

...

Bonsoir,

Il ne faut cocher que les référence dont tu as besoin ...dans ton cas tu as au moins une référence cochée pour une librairie "Acrobad 3D..." qui n'est pas installé sur ton PC ... quand je vois la liste de références cochées je doute vraiment de leur utilités ...

qu'elle sont les fonctions de ton classeur excel ...?

**clementmarcotte** · 30/03/2015, 21h47

Bonjour,

Envoyé par graphikris

Bonjour et merci pour vos infos mais je ne comprends pas pourquoi il faut DECOCHER au lieu de COCHER

Sinon les personnes qui utilisent la BdD sont disséminées aux 6 coins de l' héxagone et je ne sais meme pas quelles sont celles qui utilisent la BdD, donc impossible de leur demander de voir leur références VBA

Cordialement.

Oui, mais, si tu décoches les références manquantes et que la macro tourne sans problème sur ta machine, tu peux t'en ficher. Si ta macro, sur ta machine n'a pas besoin des références qui n'y sont pas, ce sera la même chose sur les autres machines pour ta macro. Les références sont limitées au classeur et peuvent varier sans problème d'un classeur à l'autre.

Et puis tant que tu ne protèges pas ton projet VBA ou ton classeur, ou que tu fournis les mots de passe au besoin, n'importe quel utilisateur peut cocher les références en cas de besoin.

Invité · 30/03/2015, 22h00

Déjà décoches les et après on voit!
Tu nous parles d'un problème récurant lors tu n'auras pas de solution sans rien faire!

**graphikris** · 31/03/2015, 19h21

Ok j'ai tout décoché sauf ce qu'Excel m'a interdit de decocher puisqu'il l'utilise.

Ca marche pour le premier code

Par contre pour le second code çà bug a la ligne 4 maintenant il me surligne THISWORBOOK : nom = Left(ThisWorkbook.Name
Cordialement.

**SfJ5Rpw8** · 31/03/2015, 21h03

bonsoir,

as tu relus ton message ?

c'est quoi ce code que tu nous montre ? , présente nous le entre balises de code [code] [/code] et montre nous quelques lignes avant et après la ligne fautive ....

qu'est ce qui te fait dire que ça beugue ? c'est juste surligné en jaune, pas de message ?