Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
Fabrice wrote:
Ci joint ma procédure :
Public Function Proc5() Dim Longueur As Integer Dim Nomcourt As String Longueur = 0 Nomcourt = "" NomSav = "" Longueur = Len(NomFichier) Longueur = Longueur - 4 Nomcourt = Mid(NomFichier, 1, Longueur) NomSav = Nomcourt & ".sav" Workbooks(NomFichier).SaveAs (NomSav) Workbooks(NomFichier).Close Kill NomFichier End Function
NB : les variables NomSav & NomFichier sont des variables publiques
J'ai une erreur d'exécution 9 sur Workbooks(NomFichier).SaveAs (NomSav) Je ne comprends pas pourquoi
Merci de m'aider
Fabrice
Bonjour Fabrice, Comment obtiens tu ton NomFichier ? NomFichier = ActiveDocument.Name essaye NomSav = Nomcourt + ".sav" Tu devrais gérer les actions si la longueur de ton nomfichier est <=4
Oliv'
Fabrice wrote:
Ci joint ma procédure :
Public Function Proc5()
Dim Longueur As Integer
Dim Nomcourt As String
Longueur = 0
Nomcourt = ""
NomSav = ""
Longueur = Len(NomFichier)
Longueur = Longueur - 4
Nomcourt = Mid(NomFichier, 1, Longueur)
NomSav = Nomcourt & ".sav"
Workbooks(NomFichier).SaveAs (NomSav)
Workbooks(NomFichier).Close
Kill NomFichier
End Function
NB : les variables NomSav & NomFichier sont des variables publiques
J'ai une erreur d'exécution 9 sur Workbooks(NomFichier).SaveAs
(NomSav) Je ne comprends pas pourquoi
Merci de m'aider
Fabrice
Bonjour Fabrice,
Comment obtiens tu ton NomFichier ? NomFichier = ActiveDocument.Name
essaye NomSav = Nomcourt + ".sav"
Tu devrais gérer les actions si la longueur de ton nomfichier est <=4
Public Function Proc5() Dim Longueur As Integer Dim Nomcourt As String Longueur = 0 Nomcourt = "" NomSav = "" Longueur = Len(NomFichier) Longueur = Longueur - 4 Nomcourt = Mid(NomFichier, 1, Longueur) NomSav = Nomcourt & ".sav" Workbooks(NomFichier).SaveAs (NomSav) Workbooks(NomFichier).Close Kill NomFichier End Function
NB : les variables NomSav & NomFichier sont des variables publiques
J'ai une erreur d'exécution 9 sur Workbooks(NomFichier).SaveAs (NomSav) Je ne comprends pas pourquoi
Merci de m'aider
Fabrice
Bonjour Fabrice, Comment obtiens tu ton NomFichier ? NomFichier = ActiveDocument.Name essaye NomSav = Nomcourt + ".sav" Tu devrais gérer les actions si la longueur de ton nomfichier est <=4
