[VBA] Création d'un lien d'un classeur vers un autre... sans message lorsque la feuille source n'existe pas
3 réponses
HD
Bonjour,
Via une macro VBA je génère un lien pour récupérer une donnée sur une
feuille d'un classeur autre que celui sur lequel la macro s'exècute...
MonRange.Formula = "='" & RepRecup & "\[" & FicRecup & "]" & MaFeuille &
"'!$E$24"
Mon problème est que si MaFeuille n'existe pas alors j'ai un message me
proposant de sélectionner une feuille parmi celle existant dans le classeur
source... Or, je voudrais que l'on ne puisse pas choisir une autre feuille
pour ainsi faire apparaître un message d'erreur...
J'ai essayé Application.DisplayAlerts = False mais sans succès.... J'ai
aussi essayé de désactiver les mises à jour de lien pour ensuite les
réactiver après la macro mais sans succès non plus...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
BenZac
On 20 fév, 16:27, "HD" wrote:
Bonjour,
Via une macro VBA je génère un lien pour récupérer une donnée su r une feuille d'un classeur autre que celui sur lequel la macro s'exècute... MonRange.Formula = "='" & RepRecup & "[" & FicRecup & "]" & MaFeuille & "'!$E$24"
Mon problème est que si MaFeuille n'existe pas alors j'ai un message me proposant de sélectionner une feuille parmi celle existant dans le class eur source... Or, je voudrais que l'on ne puisse pas choisir une autre feuille pour ainsi faire apparaître un message d'erreur...
J'ai essayé Application.DisplayAlerts = False mais sans succès.... J 'ai aussi essayé de désactiver les mises à jour de lien pour ensuite les réactiver après la macro mais sans succès non plus...
Merci d'avance pour votre aide -- @+ HD
Bonjour,
Tente avec <On Error Resume Next> au début du code. Tu récupére une variable "systéme" <err> Sub MaMacro() On Error Resume Next ...... MonRange.Formula = "='" & RepRecup & "[" & FicRecup & "]" & MaFeuille &"'!$E$24" msgbox err.number & vbcrlf & err.description
End Sub
BenZac
On 20 fév, 16:27, "HD" <h...@anti.spam.fr> wrote:
Bonjour,
Via une macro VBA je génère un lien pour récupérer une donnée su r une
feuille d'un classeur autre que celui sur lequel la macro s'exècute...
MonRange.Formula = "='" & RepRecup & "[" & FicRecup & "]" & MaFeuille &
"'!$E$24"
Mon problème est que si MaFeuille n'existe pas alors j'ai un message me
proposant de sélectionner une feuille parmi celle existant dans le class eur
source... Or, je voudrais que l'on ne puisse pas choisir une autre feuille
pour ainsi faire apparaître un message d'erreur...
J'ai essayé Application.DisplayAlerts = False mais sans succès.... J 'ai
aussi essayé de désactiver les mises à jour de lien pour ensuite les
réactiver après la macro mais sans succès non plus...
Merci d'avance pour votre aide
--
@+
HD
Bonjour,
Tente avec <On Error Resume Next> au début du code.
Tu récupére une variable "systéme" <err>
Sub MaMacro()
On Error Resume Next
......
MonRange.Formula = "='" & RepRecup & "[" & FicRecup & "]" &
MaFeuille &"'!$E$24"
msgbox err.number & vbcrlf & err.description
Via une macro VBA je génère un lien pour récupérer une donnée su r une feuille d'un classeur autre que celui sur lequel la macro s'exècute... MonRange.Formula = "='" & RepRecup & "[" & FicRecup & "]" & MaFeuille & "'!$E$24"
Mon problème est que si MaFeuille n'existe pas alors j'ai un message me proposant de sélectionner une feuille parmi celle existant dans le class eur source... Or, je voudrais que l'on ne puisse pas choisir une autre feuille pour ainsi faire apparaître un message d'erreur...
J'ai essayé Application.DisplayAlerts = False mais sans succès.... J 'ai aussi essayé de désactiver les mises à jour de lien pour ensuite les réactiver après la macro mais sans succès non plus...
Merci d'avance pour votre aide -- @+ HD
Bonjour,
Tente avec <On Error Resume Next> au début du code. Tu récupére une variable "systéme" <err> Sub MaMacro() On Error Resume Next ...... MonRange.Formula = "='" & RepRecup & "[" & FicRecup & "]" & MaFeuille &"'!$E$24" msgbox err.number & vbcrlf & err.description
End Sub
BenZac
HD
Tente avec <On Error Resume Next> au début du code. Tu récupére une variable "systéme" <err>
Celà ne change rien... Excel me propose toujours de sélectionner une feuille du classeur Source...
@+ HD
Tente avec <On Error Resume Next> au début du code.
Tu récupére une variable "systéme" <err>
Celà ne change rien... Excel me propose toujours de sélectionner une feuille
du classeur Source...
Tente avec <On Error Resume Next> au début du code. Tu récupére une variable "systéme" <err>
Celà ne change rien... Excel me propose toujours de sélectionner une feuille du classeur Source...
@+ HD
isabelle
bonjour HD,
une solution serait de faire un test via Excel4 :
Fichier = "zz1.xls" rep = "c:zaza" Feuille = "Feuil100" On Error Resume Next x = ExecuteExcel4Macro _ ("'" & rep & "[" & Fichier & "]" & Feuille & "'!R1C1") If x <> 0 Then y = "erreur": Err.Clear
isabelle
Mon problème est que si MaFeuille n'existe pas alors j'ai un message me proposant de sélectionner une feuille parmi celle existant dans le classeur source... Or, je voudrais que l'on ne puisse pas choisir une autre feuille pour ainsi faire apparaître un message d'erreur...
J'ai essayé Application.DisplayAlerts = False mais sans succès.... J'ai aussi essayé de désactiver les mises à jour de lien pour ensuite les réactiver après la macro mais sans succès non plus...
Merci d'avance pour votre aide
bonjour HD,
une solution serait de faire un test via Excel4 :
Fichier = "zz1.xls"
rep = "c:zaza"
Feuille = "Feuil100"
On Error Resume Next
x = ExecuteExcel4Macro _
("'" & rep & "[" & Fichier & "]" & Feuille & "'!R1C1")
If x <> 0 Then y = "erreur": Err.Clear
isabelle
Mon problème est que si MaFeuille n'existe pas alors j'ai un message me
proposant de sélectionner une feuille parmi celle existant dans le classeur
source... Or, je voudrais que l'on ne puisse pas choisir une autre feuille
pour ainsi faire apparaître un message d'erreur...
J'ai essayé Application.DisplayAlerts = False mais sans succès.... J'ai
aussi essayé de désactiver les mises à jour de lien pour ensuite les
réactiver après la macro mais sans succès non plus...
Fichier = "zz1.xls" rep = "c:zaza" Feuille = "Feuil100" On Error Resume Next x = ExecuteExcel4Macro _ ("'" & rep & "[" & Fichier & "]" & Feuille & "'!R1C1") If x <> 0 Then y = "erreur": Err.Clear
isabelle
Mon problème est que si MaFeuille n'existe pas alors j'ai un message me proposant de sélectionner une feuille parmi celle existant dans le classeur source... Or, je voudrais que l'on ne puisse pas choisir une autre feuille pour ainsi faire apparaître un message d'erreur...
J'ai essayé Application.DisplayAlerts = False mais sans succès.... J'ai aussi essayé de désactiver les mises à jour de lien pour ensuite les réactiver après la macro mais sans succès non plus...