Boîte de dialogue au démarrage

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

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, 19h25

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, 19h36

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, 20h07

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, 01h26

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!