Problème vba

Résolu/Fermé

Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021 - 24 nov. 2020 à 17:47
Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021 - 26 nov. 2020 à 18:23

Bonjour,

Je bloque sur mon code VBA qui ne réponds pas à ma demande ...
Je cherche à actualiser mes données on ouvrant un fichier (si pas déjà ouvert), puis le refermer
OU si déjà ouvert, le fermer et le réouvrir pour mettre à jours les nouvelles donnée
Pouvais voir ou est mon erreur...

Je sais qu’une photo n’est pas très acceptable pour m’aider mais la macro ce trouve sur le fichier de mon entreprise et il est interdit d’utiliser internet

Akatsucki

A voir également:

Problème vba
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 Ambassadeur 1 579
24 nov. 2020 à 18:00

bonjour,
le code ne se comporte pas comme tu le souhaites?
que fait-il?
il n'a jamais fonctionné?

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 1 579
Modifié le 24 nov. 2020 à 18:08

tu as bien

option explicit

en début de module?
merci de montrer ton code complet.

Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
24 nov. 2020 à 19:10

Enfaite il m’actualise les données mais il me garde jamais le fichier ouvert ( pour la condition 2: si déjà ouvert alors fermer puis réouvrir ) et jai le message d’erreur ( votre fichier et déjà ouvert voulez vous le réouvrir ) que je ne veux pas qu’il s’affiche

Non je n’ai pas Option explicit en début de module

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 1 579 > Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
24 nov. 2020 à 19:27

cela me fait penser à cette discussion:
https://forums.commentcamarche.net/forum/affich-36885396-fonction-si-multiple-en-vba

ajouter

Option explicit

peut t'aider à découvrir tes erreurs.

merci de montrer ton code complet.

Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021 > yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025
Modifié le 24 nov. 2020 à 19:54

Oui je n’ai toujours pas résolu mon soucis depuis ce temps là... j’avais arrêté mes recherches

Voici mon code : (J’ai taper à la main lol )

 Sub actualité 

Application.screenupdating = false
Application.enableevents = false

Dim classeur as worbook, chemin as string, gardeouvert as boolean

Select case thisworkbook.sheets("ACCUEIL").range("k20")
Case "poste 1"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P1 pour P2.xlsm"

Case "poste 2"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P2 pour P3.xlsm"

Case "poste 3"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P3 pour P1.xlsm"

End select 

'Si classeur ouvert, alors fermer puis reouvrir ( pblm msg erreur fichier déjà ouvert ??

If classeurouvert then
    Classeurouvert.close savechanges:= false
    Gardeouvert = true
Else 
    Gardeouvert = false

End if 

'Si classeur fermé, alors ouvrir puis refermer (sans sauvegarde)

Set classeur = workbooks.open(filename:=chemin, readonly:=1, updatelinks:=0)
Thisworkbook.refreshall

If not gardeouvert then 
          Classeur.close savechanges:= false

End if 

Application.screenupdating = true
Application.enableevents = true

End sub

Private function dejaouvert (chemin)
Dim wb as workbook 
For each wb un workbooks
If wb.fullname = chemin then 
Set dejaouvert = wb

Exit function 
End if

Next wb
Classeurouvert = false
End function

je ne vois pas trop comment ce code pourrait fonctionner.
s'il s'agit du même problème qu'avant, plutôt que de recommencer avec ce nouveau code, je suggère de continuer avec l'ancien code, que me semble plus prometteur.

Réponse 2 / 2

Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
Modifié le 24 nov. 2020 à 23:49

J’ai de nouveau le debogage ligne 11 de ton code ...
T’es sur d’avoir le même code que moi car vbCrLf ça veut dire quoi ??

Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
25 nov. 2020 à 10:30

Est ce que la function doit ce mettre en début de module ou en fin (Comme j’ai moi)

Peu être que c’est cela le problème ??

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 1 579
25 nov. 2020 à 13:55

quel message d'erreur avant le debogage?
vbCrLf, c'est un saut de ligne.

la fonction peut-être n'importe où dans le module.

Je ressaye après ou boulot et je te renvoie le code comme moi je l’ai écris avec ton ancien code

Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021 > Akatsucki Messages postés 90 Date d'inscription jeudi 1 octobre 2020 Statut Membre Dernière intervention 16 décembre 2021
25 nov. 2020 à 17:07

Alors ça fonctionne pour trouvé les erreurs, mais ça me donne debogage

Erreur d’exécution 91
Variable objet ou variable de bloc with non définie

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0