Bonjour à tous
Je vous décris mon problème:
Je voudrais créer une Macro qui vérifie si un fichier du nom x.xsl est
ouvert si c'est le cas la macro importe des données d'une feuille ha dans ce
fichier si non elle renoi une message d'erreur "Veuillez ouvrir le fichier
x.xls".
Merci de votre aide.
H
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
Daniel
Bonsoir. Utilise le code :
On Error Resume Next Workbooks("toto.xls").Activate If Err.Number > 0 Then Exit Sub ' importation de données
Cordialement. Daniel "Hicham Oudrhiri" a écrit dans le message de news:
Bonjour à tous Je vous décris mon problème: Je voudrais créer une Macro qui vérifie si un fichier du nom x.xsl est ouvert si c'est le cas la macro importe des données d'une feuille ha dans ce fichier si non elle renoi une message d'erreur "Veuillez ouvrir le fichier x.xls". Merci de votre aide. H
Bonsoir.
Utilise le code :
On Error Resume Next
Workbooks("toto.xls").Activate
If Err.Number > 0 Then Exit Sub
' importation de données
Cordialement.
Daniel
"Hicham Oudrhiri" <hichamoudrhiri@yahoo.fr> a écrit dans le message de news:
uz6O67LZHHA.3928@TK2MSFTNGP03.phx.gbl...
Bonjour à tous
Je vous décris mon problème:
Je voudrais créer une Macro qui vérifie si un fichier du nom x.xsl est
ouvert si c'est le cas la macro importe des données d'une feuille ha dans
ce fichier si non elle renoi une message d'erreur "Veuillez ouvrir le
fichier x.xls".
Merci de votre aide.
H
On Error Resume Next Workbooks("toto.xls").Activate If Err.Number > 0 Then Exit Sub ' importation de données
Cordialement. Daniel "Hicham Oudrhiri" a écrit dans le message de news:
Bonjour à tous Je vous décris mon problème: Je voudrais créer une Macro qui vérifie si un fichier du nom x.xsl est ouvert si c'est le cas la macro importe des données d'une feuille ha dans ce fichier si non elle renoi une message d'erreur "Veuillez ouvrir le fichier x.xls". Merci de votre aide. H