Discussion :

[orguyrine006]

Bonjour

Sur le code suivant j'ai l'erreur de compilation erreur de syntaxe

Pouvez-vous m'aider

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
Sub Archivage()
'Déclaration des variables
'Dim NomDossier As String
Dim CheminDossier As String
'Nom de dossier
     NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
     CheminDossier = "D:\Mes documents\Excel\Facture\" & NomDossier & "\"
 
'Application.DisplayAlerts = False 'On désactive les messages d'alerte
'If Range("F9").Value = "" Then  'On test que le numéro de facture à bien été saisie
'MsgBox "Vous n'avez pas saisie le N° de facture ." & VbCrLf & " Meci de faire le nécessaire.",vbOkOnly + vbInformation,"SauveRange("F9").Select
'Else ' SINON
With ActiveWorkbook ' Enregistrement du classeur portant le N° de la cellule F9
    .SaveAs Filename:=CheminDossier & "\" & Range ("F9"), FileFormat:xlOpenXMLWorkbook
End With
' On affiche un message informant que le fichier a bien été sauvegardé.
MsgBox("Fiche Renseignement").Shapes("Bouton").Delete
En If
Application.DisplayAlerts = True 'On réactive la gestion des alertes.

En vous remerciant

Orguyrine
End Sub

[a_diard]

Bonsoir

cette ligne est très bizarre

Code :

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

MsgBox ("Fiche Renseignement").Shapes("Bouton").Delete

le if est neutralisé

le en if doit étre un End If