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.", vbExclamationCordialement
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
Graphikris.
Partager