Bonjour à tous,
j'ai crée une macro permettant d'importer via un bouton l'intégralité des données d'une feuille d'un autre classeur EXCEL.
Et pour des raisons que je ne m'explique pas, certaines données ne sont pas importées.
les 321 premières lignes sont bien importées puis la données de la dernière colonne de la 322è ligne n'est pas importée
Je vous soumets ma macro, peut être que l'un d'entre vous aura une idée.
Merci d'avance pour votre aide
'import du contenu de la feuille 'BASE' du fichier MASQUE AG_Saisie
'(seules les données sont importées, pas les mises en forme)
Sub TestQuery()
fich$ = '\\\\Uf47-015\\TITEXP-C\\Emetteurs Central Dom\\Assemblées\\Statistiques\\Masque_AG_Saisie.xls'
'fich$ = 'C:\\Documents and Settings\\ROUXST\\Mes documents\\EN COURS\\Masque_AG\\Masque_AG_Saisie.xls'
Feuille$ = 'BASE'
QueryWorksheet fich, Feuille
End Sub
Public Sub QueryWorksheet(NomFichier$, Feuille$)
'nécessite une référence à la librairie Microsoft ActiveX Data Object 2.x Library
Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
' Crée la chaîne de connexion
szConnect = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & NomFichier & ';' & _
'Extended Properties=Excel 8.0;'
szSQL = 'SELECT * FROM [' & Feuille & '$];'
Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText
''' Vérifie qu'on a bien reçu des données
If Not rsData.EOF Then
Sheets('BASE').Range('A1').CopyFromRecordset rsData
Else
MsgBox 'Aucun enregistrement renvoyé.', vbCritical
End If
''' On nettoie pour finir...
rsData.Close
Set rsData = Nothing
End Sub :angry: :angry: :angry:
j'ai crée une macro permettant d'importer via un bouton l'intégralité des données d'une feuille d'un autre classeur EXCEL.
Et pour des raisons que je ne m'explique pas, certaines données ne sont pas importées.
les 321 premières lignes sont bien importées puis la données de la dernière colonne de la 322è ligne n'est pas importée
Je vous soumets ma macro, peut être que l'un d'entre vous aura une idée.
Merci d'avance pour votre aide
'import du contenu de la feuille 'BASE' du fichier MASQUE AG_Saisie
'(seules les données sont importées, pas les mises en forme)
Sub TestQuery()
fich$ = '\\\\Uf47-015\\TITEXP-C\\Emetteurs Central Dom\\Assemblées\\Statistiques\\Masque_AG_Saisie.xls'
'fich$ = 'C:\\Documents and Settings\\ROUXST\\Mes documents\\EN COURS\\Masque_AG\\Masque_AG_Saisie.xls'
Feuille$ = 'BASE'
QueryWorksheet fich, Feuille
End Sub
Public Sub QueryWorksheet(NomFichier$, Feuille$)
'nécessite une référence à la librairie Microsoft ActiveX Data Object 2.x Library
Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
' Crée la chaîne de connexion
szConnect = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & NomFichier & ';' & _
'Extended Properties=Excel 8.0;'
szSQL = 'SELECT * FROM [' & Feuille & '$];'
Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText
''' Vérifie qu'on a bien reçu des données
If Not rsData.EOF Then
Sheets('BASE').Range('A1').CopyFromRecordset rsData
Else
MsgBox 'Aucun enregistrement renvoyé.', vbCritical
End If
''' On nettoie pour finir...
rsData.Close
Set rsData = Nothing
End Sub :angry: :angry: :angry:
