Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bonjour a tous !

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion veniroth
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

veniroth

Guest
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😛13").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!!!
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
256
Atiom
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
130
Eric 888
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
269
LaurentVasseur
L
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
851
Phil69970
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
886
Electron24
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
C
  • Résolu(e)
Autres code barre dans textbox pour sélectionner ligne a afficher dans listbox
2 3
Réponses
33
Affichages
3 K
herve62
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
2 K
patricktoulon
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
766
Staple1600
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
1 K
Kevin38
K
L
  • Question Question
XL 2019 BOUTON A DOUBLE OPTION
Réponses
4
Affichages
768
LEPATOCHE
L
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
K
  • Question Question
XL 2016 script vba pour sécurise et personnalise les pages
Réponses
0
Affichages
676
kheiro31
K
B
  • Question Question
Autres Tester l'existence d'une feuille
Réponses
14
Affichages
1 K
botanicus
B
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
4 K
Staple1600
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
A
  • Question Question
XL 2013 Utilisation de la fonction "Case" dans VBA
Réponses
12
Affichages
2 K
AnjyD
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…