Bonjour a tous !

veniroth

XLDnaute Nouveau
BONJOUR A TOUS !!!
j'ai un petit probleme avec VBA d'excel 2007.
j'ai effectué une macro qui marcahait j'etait dans les anges jusqu'au moment ou j'ai ouvert une autre feuille du classeur et ca m'a pris les valeurs de la feuille ouverte .
cad que mon code ne me prends les valeurs que de la feuille ouverte du classeur!et je ne c pas comment changé ca!!
voila mes lignes de code:

Sub MacroNBCDES()
'
' Macro2 Macro
Set AppExcel = CreateObject("P:\ASSURANCE QUALITE\SQ 2011\Suivi Qualité\SI 1 05 Tableau de bord 2011.xls")
Windows("SI 1 05 Tableau de bord 2011.xls").Activate
Range("P2:p13").Select
Selection.Copy
Windows("SI 2 08A Suivi des actions.xlsm").Activate
Range("c4").Select
ActiveSheet.Paste
Range("d8").Select
End Sub

Plus exactement j'ai envie de prendre les valeurs d'une feuille specifique qui est dans le classeur "SI 1 05 Tableau de bord 2011.xls"

AIdez moi SVP!!!
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Bonjour a tous !

Bonjour ,

je ne vois pas de sélection de le feuille spécifique dans le code
il faut la sélectionner directement derrière l'instruction suivante
Windows("SI 1 05 Tableau de bord 2011.xls").Activate
Sheets("feuille-à-sélectionner").Select

à+
Philippe
 

kjin

XLDnaute Barbatruc
Re : Bonjour a tous !

Bonsoir,
Il faudrait sans doute nommer les feuilles concernées...
Code:
Sub MacroNBCDES()
Dim ws As Worksheet, wb As Workbook
Set ws = ThisWorkbook.Sheets("le nom de la feuille")
On Error Resume Next
Set wb = Workbooks("SI 1 05 Tableau de bord 2011.xls")
If Not wb Is Nothing Then
    With wb.Sheets("le nom de la feuille")
        .Range("P2:P13").Copy ws.Range("C4")
    End With
End If
End Sub
A+
kjin
 

Discussions similaires

Réponses
2
Affichages
1 K

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof