Jonathan1986
XLDnaute Nouveau
Bonjour le forum, bonjour à tous,
je suis débutant en vba et voilà maintenant 2 / 3 jours que je reste sur un problème et ne m'en sort pas. J'espère que quelqu'un aura un peu de temps pour voir ce qui va pas
Dans mon classeur, après avoir rempli un onglet nouvellement créé, je souhaite l'exporter dans un nouveau fichier que je créé en même temps, et que le fichier ai le nom de l'onglet exporté, j'ai réussi à mettre en place un code mais il y a une erreur : " erreur 9 l'indice n'appartient pas à la sélection" le problème doit venir du nom d'onglet, et donc du nouveau fichier, que je récupère sur la feuille active du fichier source.
le code :
Sub enre()
Dim M As String
Dim Response As Byte
Dim L As String
M = Workbooks("DEVIS CERIC 1.xlsm").ActiveSheet.Range("I20").Text
Response = MsgBox(" Vous êtes sur le point d'enregistrer votre Proforma dans la base de données et dans un fichier indépendant, souhaitez-vous continuer ? ", vbCritical + vbOKCancel, T)
If Response = 1 Then
Workbooks.Add
ChDir "C:\Users\Dropbox\DEVIS"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Dropbox\DEVIS\" & M & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Save
Workbooks("DEVIS 1.xlsm").Sheets(2).Copy After:=Workbooks(M & ".xlsm").Sheets(1)
' erreur sur la ligne ci dessus
Workbooks("DEVIS 1.xlsm").Sheets(M).Activate
MsgBox "Opération accomplie", vbInformation, T
'Si Réponse Annulation on envoie un message et on a rien fait
Else: MsgBox "Opération annulée", vbInformation, T
End If
End Sub
Merci d'avance !!
je suis débutant en vba et voilà maintenant 2 / 3 jours que je reste sur un problème et ne m'en sort pas. J'espère que quelqu'un aura un peu de temps pour voir ce qui va pas
Dans mon classeur, après avoir rempli un onglet nouvellement créé, je souhaite l'exporter dans un nouveau fichier que je créé en même temps, et que le fichier ai le nom de l'onglet exporté, j'ai réussi à mettre en place un code mais il y a une erreur : " erreur 9 l'indice n'appartient pas à la sélection" le problème doit venir du nom d'onglet, et donc du nouveau fichier, que je récupère sur la feuille active du fichier source.
le code :
Sub enre()
Dim M As String
Dim Response As Byte
Dim L As String
M = Workbooks("DEVIS CERIC 1.xlsm").ActiveSheet.Range("I20").Text
Response = MsgBox(" Vous êtes sur le point d'enregistrer votre Proforma dans la base de données et dans un fichier indépendant, souhaitez-vous continuer ? ", vbCritical + vbOKCancel, T)
If Response = 1 Then
Workbooks.Add
ChDir "C:\Users\Dropbox\DEVIS"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Dropbox\DEVIS\" & M & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Save
Workbooks("DEVIS 1.xlsm").Sheets(2).Copy After:=Workbooks(M & ".xlsm").Sheets(1)
' erreur sur la ligne ci dessus
Workbooks("DEVIS 1.xlsm").Sheets(M).Activate
MsgBox "Opération accomplie", vbInformation, T
'Si Réponse Annulation on envoie un message et on a rien fait
Else: MsgBox "Opération annulée", vbInformation, T
End If
End Sub
Merci d'avance !!
Dernière édition: