mikael2403
XLDnaute Junior
Bonjour,
J'ai créé la macro suivante qui ne fonctionne pas.
Je souhaites ajouter plusieurs conditions mais ça bugg. Avec 1 condition ça fonctionne parfaitement.
Lorsque j'exécute la macro ci-dessous j'ai le message :
Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.
Y-a-t-il une erreur dans mon code ou ai-je oublié quelque chose ?
J'ai essayé pleins de solutions mais c'est toujorus la même chose.
Merci d'avance pour votre aide.
J'ai créé la macro suivante qui ne fonctionne pas.
Je souhaites ajouter plusieurs conditions mais ça bugg. Avec 1 condition ça fonctionne parfaitement.
Lorsque j'exécute la macro ci-dessous j'ai le message :
Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.
Code:
If Sheets("Accueil").Range("B9:J9") = "Assistance Clients" And y <> "" Then
Do
y = Dir("T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
m = m + 1
Loop While y <> ""
ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
End If
If Sheets("Accueil").Range("B9") = "Acquisition & développement" And z <> "" Then
Do
z = Dir("T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
m = m + 1
Loop While y <> ""
ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
End If
Y-a-t-il une erreur dans mon code ou ai-je oublié quelque chose ?
J'ai essayé pleins de solutions mais c'est toujorus la même chose.
Merci d'avance pour votre aide.