JacKrauser
XLDnaute Nouveau
Bonjour à tous !
J'ai un problème avec une feuille dans laquelle j'essaie d'extraire des données.
Voici mon code :
Par contre j'aurai aimé savoir s'il était obligatoire d'avoir les deux feuilles enregistrées sur le pc ?
Car la feuille Classeur1 est créée par un autre logiciel et je souhaiterai éviter de l'enregistrer sur le pc.
L'erreur commence dès Windows("Classeur1.xlsx").Select, à laquelle il dit : L'indice n'appartient pas à la solution...
Quelqu'un aurait il une idée ?
Merci d'avance !
J'ai un problème avec une feuille dans laquelle j'essaie d'extraire des données.
Voici mon code :
Code:
Sub MAJ()
'
' MAJ Macro (MAJ : Mise A Jour)
'
'
Dim a As Integer
If MsgBox("Etes-vous certain de vouloir mettre à jour les calculs ?", vbYesNo, "Demande de confirmation") = vbYes Then
Application.ScreenUpdating = False
Windows("Classeur1.xlsx").Activate
Sheets("Feuil4").Select
Columns("A:J").Select
Selection.Copy
Windows("Indicateur commandes.xlsx").Activate
Sheets("RESULTATS").Select
Range("AD1").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End If
End Sub
Car la feuille Classeur1 est créée par un autre logiciel et je souhaiterai éviter de l'enregistrer sur le pc.
L'erreur commence dès Windows("Classeur1.xlsx").Select, à laquelle il dit : L'indice n'appartient pas à la solution...
Quelqu'un aurait il une idée ?
Merci d'avance !
Dernière édition: