Attribute VB_Name

[vince]

Bonjour
lorsque je copie cette macro dans un module

Attribute VB_Name = 'ADOImporterFeuilleEntiere'
apparait en rouge .pourquoi ?

MACRO

Attribute VB_Name = 'ADOImporterFeuilleEntiere'

'importer le contenu d'une feuille de calcul d'un classeur fermé
'(seules les données sont importées, pas les mises en forme)

Sub testQuery()
fich$ = 'D:\\ExempleTris.xls'
Feuille$ = 'Feuil1'
QueryWorksheet fich, Feuille
End Sub

Public Sub QueryWorksheet(NomFichier$, Feuille$)
'Rob Bovey, mpep
'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;'

' La requête est basée sur le nom de la feuille. Ce nom
' doit se terminer par un $ et doit être entouré de crochets droits.
' Adapter ce nom à vos besoins
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
Feuil1.Range('A1').CopyFromRecordset rsData
Else
MsgBox 'Aucun enregistrement renvoyé.', vbCritical
End If

''' On nettoie pour finir...
rsData.Close
Set rsData = Nothing

End Sub


MERCI

 

[ERIC S]

bonjour

je pense qu'à l'extérieur d'un

sub...

end sub

tu n'a le droit qu'aux commentaires

A+

 

[AV]

Ave,

'..Attribute VB_Name = 'ADOImporterFeuilleEntiere'
apparait en rouge .pourquoi ?...'

C'est une 'scorie' de sauvegarde de page de code au format texte.
C'est à supprimer !
Sans trop prendre de risque, on peut supposer que ce code provient diretement ou indirectement, du site de Frédéric SIGONNEAU
Ce 'truc' en est 'une marque de fabrique'

;-)
AV [MVP Excel]

 

[vince]

merci de vos explications