Discussion :

[sergio_gr66]

Bonjour et merci pour votre attention, je vous explique :

Je suis en train d’automatiser une base de données avec une macro, la macro cherche tous les documentes Excel que il y a dedans un dossier, elle fait une liste avec un hyperlien et âpres, pour copier quelle que données dans le fichier trouve la macro le ouvre et apre la macro copie les données et les colle dans le fichier ou c’est trouve la macro.
Mais chaque fois la macro ouvre le fichier pour copier les données Excel demande les choses dans les images :

[Krovax]

Soit tu travail sur le fichier fermer il y a un tuto la dessus et pas mal de discutions mais visiblement c'est loin d'être évident.

Sinon tu peut tout simplement essayer de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.DisplayAlerts = False
'ton code d'ouverture
Application.DisplayAlerts = true

Cela sélectionnera la réponse par défaut (celle qui est présélectionner quand tu a le message qui s'affiche). Je croit qu'il y a un myen de choisir d'autre option mais je ne m'en souvient plus

[sergio_gr66]

La solution ne marche pas
merci

[DeaD78]

La solution devrait marcher pourtant... Enfin bref, le message de départ était aps super clair et ce qui ne marche pas est encore moins clair

De plus, sans code, ça va être dur... Bref, jette un oeil du côté des SendKeys, ça pourrait le faire aussi.

[Krovax]

Effectivement ca ne fonctionne pas désolé par contre grace a notre ami l'enregistreur de macro j'ai retrouvé l'option qui permet de gérer directement lamise a jour des lien du coup il ne me pose pas la question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Workbooks.Open Filename:= _
        "C:\fichier.xls", UpdateLinks:=3

Visiblement 3 pour mettre a jour 0 pour ne pas le faire
Sinon les sendkey sont une solution mais un peu barbare

(pour une fois j'ai vérifié s'il y avait eu une réponse pas de pull aujourd'hui)

[sergio_gr66]

Effectivement ca ne fonctionne pas désolé par contre grace a notre ami l'enregistreur de macro j'ai retrouvé l'option qui permet de gérer directement lamise a jour des lien du coup il ne me pose pas la question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Workbooks.Open Filename:= _
        "C:\fichier.xls", UpdateLinks:=3

Visiblement 3 pour mettre a jour 0 pour ne pas le faire
Sinon les sendkey sont une solution mais un peu barbare

(pour une fois j'ai vérifié s'il y avait eu une réponse pas de pull aujourd'hui)

Desolé mais ne marhce pas, expliquez mois qu'est ce que sont les sendkeys, s'il vous plait

[DeaD78]

Le SendKey simule un appui sur une touche. Bref, cela pourrait simuler l'appui sur une touche pour valider automatiquement la fenêtre s'affichant dans ton cas. Krovax (mon partenaire de tricot que je salue ) a raison, c'est barbare mais ça a le mérite de marcher assez souvent.

Bref, demande à Google, il saura mieux que moi vu que c'est pas trop mon truc.

[sergio_gr66]

J'ai une autre question, si je veux le nom d'un fichier, sans l'adresse, comment j'ai besoin faire?, parce que avec .founfiles la macro m'ecrire tout l'adresse.

Merci beaucoup

[Krovax]

On fait peut être mieux mais je ne résiste jamais a une petit manipulation de chaine de caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Function name(ligne As String) As String
 
 Do While InStr(ligne, "\") <> 0
 ligne = Right(ligne, Len(ligne) - InStr(ligne, "\"))
 Loop
 name = ligne
 End Function
 
Sub test()
Dim ligne As String
 ligne = "c:\mondossier1\mondossier2\monfichier.xls"
  MsgBox name(ligne)
End Sub

[sergio_gr66]

Bonjour et merci pour votre aide,

j'ai une autre question, comment je peux compter le quantité de lignes que il y a dedans un fichier?

[Krovax]

En générale on fait un post par question
Je suppose que tu par du nombre de ligne d'une feuille excel
regarde un peu cette contribution

Si tu parle de toute les ligne tu peux boucler sur les onglet et aditionner (j'ai pas vérifier mais ca devrait ressembler a cela)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim sh as worksheet
dim nbligne as long
nbligne=0
for each sh inworksheets
nbligne=nbligne+ActiveSheet.UsedRange.Rows.Count
next sh

Si tu parle d'un fichier txt ou autre ca va etre un peu différent