activer un autre classeur sous excel 2007

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion juju59
  • 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
J

juju59

XLDnaute Nouveau
Bonjour à tous,

je me permets de vous écrire car je rencontre un problème...

J'ai fait un code VBA sous excel 2003, dans ce code je passe d'un classeur à l'autre pour récupérer des données sur l'une et les copier sur l'autre.

sous 2003 j'utilisais pour cela :
Code: 
Windows(nomdufichier").Activate
ou encore
Code: 
Workbooks(nom3).Activate

avec nom3 = Dir("\\chemin\1234567899*.txt") par exemple

Cela ne marche pas sous 2007.

Je n'arrive pas a trouver comment activer une autre feuille ou comment passer d'une feuille à l'autre sans forcement l'activer.

Merci
 
Trier par date Trier par votes
Re : activer un autre classeur sous excel 2007

Bonjour juju59,

En général, il n'est pas obligatoire d'activer une feuille pour travailler dessus, cependant les codes que tu as fourni devraient fonctionner correctement en 2007.
As-tu un classeur exemple
 
Vote positif 0 Vote négatif
Re : activer un autre classeur sous excel 2007

Bonjour à tous,

Merci pour ta réponse tototiti2008, je ne comprends pas pourquoi je ne suis pas obligé d'activer le classeur pour travailler dessus ? Comment puis-je, dans ce cas, faire comprendre à excel qu'il doit changer de classeur ?

Et je suis étonné que ces codes devraient fonctionner sous 2007 ... Quelle peut être la raison de ce message d'erreur dans ce cas ?

Je ne met pas de fichier comme il en faut deux cela me parait un peu compliqué...
Mais voici le code que j'utilise :

Code: 
sub exemple ()
Dim classeur1 As Workbook
Dim nom1 As String
Dim chemin As String
 
 
 
 nom2 = Dir("\chemin\01234567899*.txt")
 chemin = "\cheminasuivre\"

If nom2 <> "" Then
    Set classeur2 = Workbooks.Open(chemin & nom2)
     
     ' MODIFICATION SUR CLASSEUR 2
   
    Range("I2").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows("Classeur1").Activate

    Range("D9").Select
    ActiveSheet.Paste
   
    Workbooks(nom2).Activate
    
    Range("I6").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("classeur1").Activate
    
    Range("E9").Select
    ActiveSheet.Paste
    'somme corrigée copiée
    
    Workbooks(nom2).Activate
    
    Range("A1").Select
    Selection.Copy
    Windows("classeur1").Activate
    Range("H9").Select
    ActiveSheet.Paste

    
    Windows("classeur1").Activate
    Range("B9").Select
    
    
    'MODIFICATION SUR CLASSEUR 1

     
    
    Workbooks(classeur2).Activate
    Application.DisplayAlerts = False
    ActiveWorkbook.Close SaveChanges:=No
     
   End If

end sub

Voila, j'ai un message d'erreur dès le premier Windows("classeur1").Activate

Merci par avance
 
Dernière édition:
Vote positif 0 Vote négatif
Re : activer un autre classeur sous excel 2007

Bonjour juju,

Classeur1, c'est censé être le classeur actif ?
Si c'est celui qui contient ta macro, tu peux remplacer tous tes

Windows("Classeur1").Activate
Cliquez pour agrandir...

par

Thisworkbook.Activate
Cliquez pour agrandir...

Thisworkbook désigne toujours le classeur contenant le code VBA

Maintenant ça plante peut-être parce que ton classeur ne s'appelle pas Classeur1 ?
 
Vote positif 0 Vote négatif
Re : activer un autre classeur sous excel 2007

Merci pour ta réponse.

Effectivement classeur1 contient la macro, ta solution fonctionne !
Et oui il s'appelle bien ainsi, pour preuve absolument tout fonctionne sur 2003... tout cela doit donc venir d'un problème de compatibilité.

Par contre je me demande si:

Workbooks(nom2).Activate va fonctionner...

j'essaie d'aller sur un pc avec excel 2007 au plus vite.

Merci
 
Dernière édition:
Vote positif 0 Vote négatif
Re : activer un autre classeur sous excel 2007

Tout fonctionne parfaitement à présent.

Le fichier est juste plus lent à réaliser les calcules... Faut-il que je change les formules avec des ";" par des "," par exemple pour qu'il ré-obtienne la rapidité qu'il avait sous 2003 ?

Ou avez vous des idées de l'origine de cette lenteur ?

Cordialement.
 
Vote positif 0 Vote négatif
Re : activer un autre classeur sous excel 2007

Oui, certes j'avoue bien volontiers que mes formules ne sont pas très très optimisées...

Mais elles ne l'étaient donc pas non plus sous excel 2003, donc ça n'explique pas la lenteur des calculs...

Bon et bien je ne change rien ! Tant pis pour la lenteur des calculs, le résultat est la c'est bien le principal.

Merci tototiti2008

Cordialement
 
Vote positif 0 Vote négatif
Re : activer un autre classeur sous excel 2007

Re,

Il va sans dire que tout dépend des formules utilisées
Cliquez pour agrandir...

T'invitais à nous fournir un exemple
Si tes formules s'appliquent à toute une colonne ou toute une ligne, la lenteur peut s'expliquer par l'agrandissement de la feuille de calcul entre 2003 et 2007, mais sans exemple de formule...
 
Vote positif 0 Vote négatif
Re : activer un autre classeur sous excel 2007

Voici un exemple de formule :

Code: 
    Range("K1").Select
    Selection.Copy
    Columns("K:P").Select
    ActiveSheet.Paste
    Range("I5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "somme corigée :"
    Range("I6").Select
    ActiveCell.FormulaR1C1 = "=SUM(C[2]:C[7])/6"
    Range("I7").Select
    'sommes finis
    Range("I2").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ThisWorkbook.Activate
    Range("D8").Select
    ActiveSheet.Paste
    'somme copiée
    Workbooks(nom1).Activate
    Range("I6").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ThisWorkbook.Activate
    Range("E8").Select
    ActiveSheet.Paste
    'somme corrigée copiée
    Workbooks(nom1).Activate
    Range("A1").Select
    Selection.Copy
    ThisWorkbook.Activate
    Range("H8").Select
    ActiveSheet.Paste

Voila, c'est à ce moment que la macro est la plus lente
 
Vote positif 0 Vote négatif
Re : activer un autre classeur sous excel 2007

Re,

Si tes formules s'appliquent à toute une colonne ou toute une ligne, la lenteur peut s'expliquer par l'agrandissement de la feuille de calcul entre 2003 et 2007
Cliquez pour agrandir...

ActiveCell.FormulaR1C1 = "=SUM(C[2]:C[7])/6"
Cliquez pour agrandir...

Et comme par hasard tu additionnes les valeurs de toute la colonne 🙂
En 2003, tu additionnais 65536 cellules par colonne
en 2007, tu additionnes plus d'un million de cellules par colonnes
D'où la lenteur occasionnée... Donc soit tu n'additionnes que les cellules remplies en modifiant ta formule, soit ça sera plus lent...
 
Vote positif 0 Vote négatif
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

Discussions similaires

jurassic pork
  • Résolu(e)
XL 2016 Impossible d'insérer un contrôle activeX Web Browser dans feuille Excel sous Windows 11
Réponses
6
Affichages
221
patricktoulon
patricktoulon
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
N
  • Question Question
Microsoft 365 Mise à jour de données d'un fichier Excel à un autre, sous Sharepoint
Réponses
0
Affichages
669
Newbeee
N
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
Dranreb
C
  • Question Question
Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien
Réponses
3
Affichages
1 K
Chapichapo
C
F
  • Question Question
Microsoft 365 Recherche mot Excel avec copie sur un autre tableau
Réponses
5
Affichages
688
Fybu13
F
A
  • Question Question
Microsoft 365 Copier/coller en boucle avec un nb variable de ligne
Réponses
4
Affichages
980
A-F
A
A
  • Question Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
1 K
A-F
A
B
  • Question Question
Microsoft 365 Ajouter ligne dans un autre classeur
Réponses
6
Affichages
1 K
babubil
B
A
  • Question Question
Autres Enregistrer un Devis sur Excel.
Réponses
4
Affichages
749
Azerox
A
J
  • Résolu(e)
XL 2016 Comment importer un classeur Excel dans un autre?
Réponses
2
Affichages
2 K
Jovial87
J
X
  • Question Question
XL 2010 Dupliquer ligne d'un onglet dans un autre sous condition, et inversement
2 3
Réponses
31
Affichages
4 K
Xplorer
X
E
  • Question Question
XL 2013 Copier ligne from last feuil d'1 classeur vers un autre classeur
Réponses
8
Affichages
2 K
ebenezerkonan
E
C
  • Question Question
XL 2013 Enregistrer un formulaire dans un autre classeur
Réponses
1
Affichages
1 K
CHALET53
C
S
  • Résolu(e)
Microsoft 365 automatiser macro pour copier/coller des données d´un classeur à un autre et sauver à chaque fois le classeur rempli
Réponses
8
Affichages
5 K
sevenkingdom
S
P
  • Question Question
XL 2019 Ouvrir un fichier Excel à l'aide d'un autre
Réponses
5
Affichages
1 K
Pieerre69
P
L
  • Résolu(e)
Autres Sélectionnez la feuille ayant le même nom dans un autre classeur
Réponses
6
Affichages
1 K
Lhomheureux
L
C
  • Question Question
Autres Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
1
Affichages
2 K
claivier_58
C
C
  • Question Question
Autres VBA - Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
3
Affichages
2 K
claivier_58
C
S
  • Question Question
XL 2010 Copie de classeur sous un autre nom
Réponses
1
Affichages
697
sams96
S
Retour