Re : Import d'access vers excell, bloquage à 65000 entrées
Re chris
Si le code VBA de réactivation des liens hypertext fait ramer un peu sur 126k lignes, ça n'est pas un problème, ceci se faisant automatiquement en pleine nuit, il peut se permettre de ramer un peu
Cet export excel sera fait toutes les semaines, logiquement dans la nuit de dimanche à lundi.
Ce fichier excel sera ensuite transmis à toutes les autres sections de mon entreprise afin qu'ils aient les tâches à effectuer.
J'aimerai qu'il soit en une seule feuille pour un souci pratique pour les autres sections. En effet, un simple Ctrl+F leur permettrai de trouver ce qu'ils recherchent, alors qu'ils devraient en faire plusieurs si il y a plusieurs feuilles.
A l'heure actuelle, j'ai réussi à automatiser l'export de la base access vers le fichier excel en une seule feuille de 126k lignes, et sur le fichier excel j'ai réussi à créer un module augmentant la largeur des colones et mettant à jour la colone de lien hypertext.
Voici le script de ce module excel:
Sub AutoExec()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
Cells.Select
Selection.ColumnWidth = 31.71
Cells.Replace What:="Lien PMRQ #", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="##Lien vers PMRQ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Je m'explique pour les cells.replace: mes liens hypertext importés sont du type :
Lien PMRQ #
https://LE_SITE_DE_MON_ENTREPRISE-ID_DE_LA_TACHE##Lien vers PMRQ
ça me permet de ne garder que le lien du site.
Pour autant, après cette manipulation, les liens hypertext ne sont pas actifs, je dois double clic dessus afin de les activer, c'est ça que je cherche à automatiser.
Je suis désolé, je suis sans doute difficile à comprendre, c'est que j'essaye aussi d'avancer en parallèle au lieu d'attendre la solution toute crue sans forcément la comprendre par la suite X) Merci en tout cas de l'aide que vous m'apportez depuis le début et de l'aide que vous continuez à m'apporter.