[VBA] Problème macro Excel Résolu/Fermé

Question

Bonjour,

Ma macro consiste a récupérer des données sur une autre feuille et les coller dans une nouvelle mais la elle ne veut pas l'effectuer d'ou vient le probleme s'il vous plait?????

Voici un bout de code : 

Public Function Charge_Fichier_N2()
'Charge le fichier résultant des requetes de niveau2
Dim i As Integer
Dim NewClasseur As Variant
Dim NewSheet As Variant
Application.ScreenUpdating = False  'Désactive la mise à jour de l'écran
Set NewClasseur = Workbooks.Add 'Création du classeur contenant les différentes requetes de N2
    With NewClasseur
        .Title = "Requetes Niveau 2"
        .Subject = "Query N2"
        .SaveAs Filename:="Requetes Niveau 2.xls"
    End With
For i = 1 To Nb_Query_N2
File_txt = "QueryN2_File" & i
Set NewSheet = Worksheets.Add ' Création de la feuille pour chaque requete
NewSheet.Name = File_txt    'Nomage de la feuille du nom de la requete Zadig
 
LE PROBLEME COMMENCE ICI JE PENSE 

Workbooks("QueryN2_File" & i).Activate
 Sheets("N2SDB").Select
 Range(Cells(1, 1), Cells(300, 100)).Select
 Selection.Copy
 Workbooks("Requetes Niveau 2.xls").Sheets("QueryN2_File" & i).Activate
  Cells(1, 1).Select
  ActiveSheet.Paste
  ThisWorkbook.Sheets("QueryN2_File" & i).Activate

Next i

lermite222 · Answer

Bonjour,
Nb_Query_N2  n'est pas initialisé ? ou alors quel est sa valeur ?
A+

lermite222 · Answer

Je sais que quand ont a une idée dans la tête il est parfois difficile de se la sortir mais...
WORKBOOK c'est un CLASSEUR et Sheets c'est UNE FEUILLE et ca m'étonnerais que tu ai un classeur avec le même nom que la feuille !!
Quel est le nom DU CLASSEUR ?
Quel est le nom DE LA FEUILLE ?

lermite222 · Answer

Faut pas abandonner  vite... examine bien mes rematques..

'Mon avis, ajouter ces lignes
Dim CeClasseur As String
    CeClasseur = ThisWorkbook.FullName
'------------------------------------------------------------------------
    'ICI tu crée un nouveau classeur avec le nom Requetes Niveau 2.xls
    Set NewClasseur = Workbooks.Add 'Création du classeur contenant les différentes requetes de N2
    With NewClasseur
        .Title = "Requetes Niveau 2"
        .Subject = "Query N2"
        .SaveAs Filename:="Requetes Niveau 2.xls"
    End With
'------------------------------------------------------------------------
    For i = 1 To Nb_Query_N2 'd'aptès tes dires = 16
        'ICI tu ajoute des nouvelles feuilles NOMS =
        'QueryN2_File1 : QueryN2_File2 : QueryN2_File3  etc.. jusque 16
        File_txt = "QueryN2_File" & i
        Set NewSheet = Worksheets.Add ' Création de la feuille pour chaque requete
        NewSheet.Name = File_txt 'Nomage de la feuille du nom de la requete Zadig
        '-----------------------------
    'LE PROBLEME COMMENCE ICI JE PENSE
    'ICI tu veux activer des classeurs avec les NOMS =
    'QueryN2_File1 : QueryN2_File2 : QueryN2_File3  etc.. jusque 16
    'MAIS OU SONT-IL ??, je ne vois nulle part que tu a créer des classeurs
    'avec ces noms, à moins que tu les ai créer sur le DD
    'et que tu les ai déjà OUVERT
    Workbooks("QueryN2_File" & i).Activate
    'ICI tu veux sélectionner une feuille dans un classeur qui je pense
    'n'existe pas.
'ICI Je pense que tu doit remplacer la ligne du dessus par
'Workbooks(CeClasseur).activate
    Sheets("N2SDB").Select
    Range(Cells(1, 1), Cells(300, 100)).Select
    Selection.Copy
    Workbooks("Requetes Niveau 2.xls").Sheets("QueryN2_File" & i).Activate
    Cells(1, 1).Select
    ActiveSheet.Paste
    ThisWorkbook.Sheets("QueryN2_File" & i).Activate
'ICI Je pense que tu doit remplacer la ligne du dessus par
'Workbooks(CeClasseur).activate
    Next i
Ca peu ne pas être juste je n'ai pas l'ensemble de l'appli.
Quel est le nom du classeur sur lequel les donnée sont déjà
tu dit..
A+

lermite222 · Answer

Bonjour,
Avec les explications qie tu donne ont est reparti pour la gloire, tâche d'EXPLIQUER CA CLAIREMENT ET COMPLETEMENT, avec des extraits de codes si nécessaire.
A+

medeuy · Answer

Bonjour, 

Je suis en train de concevoir une macro qui génère automatiquement un fichier et l'enregistre dans un dossier. 
La macro marche cependant j'ai un petit problème: comme cette application est tenue à etre utilisée plusieurs fois lorsque je l'execute Windows me demande si je veux l'enregistrer et écraser le fichier deja existant.... 

SI JE METS OUI : TOUT MARCHE CORRECTEMENT!!! 
SI JE METS NON :LA MACRO S'EXECUTE QUAND MM MAIS BUG AUSSITOT ET EXCEL N'EST PLUS UTILISABLE!!!

lermite222 · Answer

La macro marche cependant j'ai un petit problème: comme cette application est tenue à etre utilisée plusieurs fois lorsque je l'execute Windows me demande si je veux l'enregistrer et écraser le fichier deja existant.... 
SI JE METS OUI : TOUT MARCHE CORRECTEMENT!!! 
SI JE METS NON :LA MACRO S'EXECUTE QUAND MM MAIS BUG AUSSITOT ET EXCEL N'EST PLUS UTILISABLE!!!


Pour qu'Excell te demande ca, c'est que tu ferme un classeur !!! sinon dans ce que tu montre rien ne permet d'avoir cette demande, alors réfléchi bien encore une fois et MONTRE OU TU FERME UN CLASSEUR.
A+

lermite222 · Answer

quand ont a un problème avec une macro ont met JAMAIS On Error Resume Next , sinon ou veut-tu voir où sont situées les erreurs.
Une macro bien faite n'a pas besoin de ca. Sauf cas exceptionnel.
Tu met cette ligne en Rem et tu lance la macro... comme ca tu verras déjà où ca plante

lermite222 · Answer

ta macro debuguée avec les erreurs en commentaire..
Public Chemin As String

'Charge le fichier résultant des requetes de niveau2
Public Function Charge_Fichier_N2()
Dim i As Integer
Dim NewClasseur As Variant
Dim NewSheet As Variant

Nb_Query_N2 = 1 'Pour mon test
    Chemin = ThisWorkbook.Path & "\" 'ou mettre le nom du répertoir + \
    'ca aussi c'est à neutraliser pour le debug, pour permettre de suivre au pas à pas.
    Application.ScreenUpdating = False 'Désactive la mise à jour de l'écran
    Set NewClasseur = Workbooks.Add 'Création du classeur contenant les différentes requetes de N2
    With NewClasseur
        'définit le titre de la page Web
        .Title = "Requetes Niveau 2"
        'utilisé uniquement pour les Macintosh
        .Subject = "Query N2"
        'Manque le répertoir où sauver
        .SaveAs Filename:=Chemin & "Requetes Niveau 2.xls"
    End With

    For i = 1 To Nb_Query_N2
        File_txt = "QueryN2_File" & i
        Set NewSheet = Worksheets.Add ' Création de la feuille pour chaque requete
        NewSheet.Name = File_txt 'Nomage de la feuille du nom de la requete Zadig
    
        'LE PROBLEME COMMENCE ICI JE PENSE
        'OUI,FAUT AJOUTER L'EXTENSION & ".xls"
        Workbooks("QueryN2_File" & i & ".xls").Activate
        Sheets("N2SDB").Select
        Range(Cells(1, 1), Cells(300, 100)).Select
        Selection.Copy
        Workbooks("Requetes Niveau 2.xls").Sheets("QueryN2_File" & i).Activate
        Cells(1, 1).Select
        ActiveSheet.Paste
        'ICI AUSSI ERREUR
        Workbooks("QueryN2_File" & i & ".xls").Activate
    
    Next i
End Function
et comme tu peu le constater, elle fonctionne sans On Erreur !!
A+

lermite222 · Answer

met le curseur sur la ligne..
.SaveAs Filename:=File_Out_N2
ensuite tu tape F9 (la ligne va être surlignée en brun) et tu lance la macro...
la macro va s'arrété sur cette ligne.
Ensuite tu promène la souris sur File_Out_N2
et tu dit ce que tu lit.
Si pas de bulle, tu ouvre la fenêtre exécution (Afficher >> Exécution) et tu tape..
Print File_Out_N2 >> Enter
Et ont va pas laisser tomber, c'est pas ma nature :D

EDIT: Tu a enlever le ON Error goto ou mis les On Error Goto 0 où je les ai mis. C'est impératif sinon ca ira pas
EDIT2: essaye en mettant AVANT la ligne..
Set NewClasseur 
de mettre Application.DisplayAlert = False
Remettre après à true.

lermite222 · Answer

Laisse tomber, j'ai mis ce poste en résolu, continue dans l'autre ou ouvre un 3èm

[VBA] Problème macro Excel

10 réponses

Discussions similaires