Problème VBA
Résolu
marc0280
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
marc0280 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
marc0280 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai le code suivant dans une feuille de calcul Excel:
Private Sub CommandButton1_Click()
Dim Mois As String
Dim Liste As String
Dim Nom As String
Dim Validité As String
Dim Extension As String
Dim EnregistrementfUN As String
Dim NomFichier As String
Mois = Worksheets("Feuil1").Range("F3").Value
Liste = ActiveSheet.Name
Nom = Worksheets("Feuil1").Range("H3").Value
Validité = Worksheets("Feuil1").Range("K3").Value
Extension = ".xls"
EnregistrementfUN = "Q:....\150019"
NomFichier = Liste & " " & Mois & " " & Nom & " " & "ab " & Validité & Extension
If Worksheets("Feuil1").Range("H3").Value = " fUN" Then
ActiveWorkbook.SaveAs Filename:=EnregistrementfUN & "\" & NomFichier, FileFormat:=56
End If
(j'ai volontairement enlevé certaines lignes qui n'avaient pas lieu d'être).
Pour la fonction If
Sur mon PC qui tourne avec MS Office 2007, tout fonctionne comme il faut. Par contre, chez mes collègues qui utilisent excel 2013, la fenêtre d'erreur vient à chaque fois comme quoi la macro n'a pas s'effectuer correctement. En cliquant sur débogage, la ligne commençant par "ActiveWorkbook...." est mise en jaune car apparemment l'erreur se trouve là, mais je ne comprend pas.
Quelqu'un pourrait-il svp m'aider ?
J'ai le code suivant dans une feuille de calcul Excel:
Private Sub CommandButton1_Click()
Dim Mois As String
Dim Liste As String
Dim Nom As String
Dim Validité As String
Dim Extension As String
Dim EnregistrementfUN As String
Dim NomFichier As String
Mois = Worksheets("Feuil1").Range("F3").Value
Liste = ActiveSheet.Name
Nom = Worksheets("Feuil1").Range("H3").Value
Validité = Worksheets("Feuil1").Range("K3").Value
Extension = ".xls"
EnregistrementfUN = "Q:....\150019"
NomFichier = Liste & " " & Mois & " " & Nom & " " & "ab " & Validité & Extension
If Worksheets("Feuil1").Range("H3").Value = " fUN" Then
ActiveWorkbook.SaveAs Filename:=EnregistrementfUN & "\" & NomFichier, FileFormat:=56
End If
(j'ai volontairement enlevé certaines lignes qui n'avaient pas lieu d'être).
Pour la fonction If
Sur mon PC qui tourne avec MS Office 2007, tout fonctionne comme il faut. Par contre, chez mes collègues qui utilisent excel 2013, la fenêtre d'erreur vient à chaque fois comme quoi la macro n'a pas s'effectuer correctement. En cliquant sur débogage, la ligne commençant par "ActiveWorkbook...." est mise en jaune car apparemment l'erreur se trouve là, mais je ne comprend pas.
Quelqu'un pourrait-il svp m'aider ?
3 réponses
Bonjour,
Sur un PC équipé en excel 2013, exécutez l'enregistrement avec l'aide de l'enregistreur de macro, vous verrez bien la syntaxe utilisée .
Cdlt
Sur un PC équipé en excel 2013, exécutez l'enregistrement avec l'aide de l'enregistreur de macro, vous verrez bien la syntaxe utilisée .
Cdlt
J'ai essayé justement en mettant 51, 52 ou encore xlOpenXMLWorkbook mais rien n'y fait.