Problème VBA
Résolu
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
-
Bonsoir,
Teste en mettantFileFormat:=52
au lieu deFileFormat:=56
-
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 -
Merci pour vos réponses, c'est tout bon !!
Le problème était lié aux variables pour enregistrer les fichiers. Le lecteur T: dans une entreprise, où se trouvent les données et les dossiers d'enregistrements, se trouve en fait sous le lecteur Q: . Pour cela que la macro ne fonctionnait pas.
