demande d aide pour erreur 3704

Question

bonjour je suis un debutant en vba excel j ai faite une macro pour ouvrir et copier le contenu d une feuille d un classeur fermé mais ca me donne erreur 3704 (Operation is not allowed the objecy is closed)
si vous pouves me dire comment je peux corriger mon code pour qu il soit fonctionnel 

merci d avance

mon code est le suivant :

If Dir(Fichier) = "" Then
         Fichier = "chemin du fichier" & txtb1 & "\" & txtb1 & txtb2 & ".xls"
               
        Set Cn = New ADODB.Connection
        
        '--- Connection ---
        With Cn
            .Provider = "Microsoft.ACE.OLEDB.12.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;"
''            .Open
        End With
    Else
         Fichier =  "chemin du fichier" & txtb1 & "\" & txtb1 & txtb2 & ".xls"& "\" & txtb1 & " " & txtb2 & ".xls"
        Set Cn = New ADODB.Connection
        
        '--- Connection ---
        With Cn
            .Provider = "Microsoft.ACE.OLEDB.12.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;"
            .Open
    End With
    End If
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
    
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
    
    'Ecrit le résultat de la requête dans la cellule A2
    Range("A1").CopyFromRecordset Rst
    
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing

End Sub

f894009 · Answer

Bonjour,

regardez et vous trouverez

https://social.msdn.microsoft.com/Forums/fr-FR/939c7a68-56a3-40f1-80f3-a6a283260484/excel-2007-adodbconnection-amp-chart-sheets?forum=vbafr

zaibel · Answer

merci de ton aide sauf que je l ai essaayé mais ca ne marche pas aussi 
le fichier ne veut pas s ouvrir :(

f894009 · Answer

Bonjour,

Montrez votre code svp.

zaibel · Answer

mon code est le suivant
Application.ScreenUpdating = False
Application.DisplayAlerts = False

ChDir _
        "U:\Commun\CLIENT-FOURNISSEURS\clients\New Flyer Production\" & Range("N4").Value
    Workbooks.Open Filename:= _
        "U:\Commun\CLIENT-FOURNISSEURS\clients\New Flyer Production\" & Range("N4").Value & "\" & Range("N4").Value & Range("O4").Value & ".xls"
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("B2:M61").Select
    Selection.Copy
    Windows("New Flyer Master ( Blank for FDC Cayman ) v 2.xls").Activate
    Range("A2").Select
    ActiveSheet.Paste
   
    Windows("541326a.xls").Activate
    ActiveWindow.Close
 
    Range("A2").Select
End Sub 
 
encore merci

gros bravo

f894009 · Answer

Bonjour,

Ce fichier, vous voulez le lire en l'ouvrant  ou pas ????

zaibel · Answer

non 
merci

Demande d aide pour erreur 3704

6 réponses

Discussions similaires

Newsletters